C++ Builder 10.2 Tokyo > PageControl > 탭 색상 변경 > 2004년 정보: 할 수 없다 | 다른 방법: 위화감

RAD Studio 10.2 Tokyo Update 3
Windows 10 Pro (64bit) バージョン 1803 (April 2018 Update)

원하는 동작

정보 1. Delphi 구현 예 (2004년)

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PageControl1DrawTab(TCustomTabControl *Control, int TabIndex,
          const TRect &Rect, bool Active)
{
    switch(TabIndex) {
    case 0:
        Brush->Color = clAqua;
        break;
    case 1:
        Brush->Color = clLime;
        break;
    default:
        Brush->Color = clGray;
        break;
    }

    if (Active) {
        Brush->Color = clYellow;
    }

    Control->Canvas->FillRect(Rect);
    Control->Canvas->TextOutW(Rect.Left+4, Rect.Top+4, PageControl1->Pages[TabIndex]->Caption);
}
//---------------------------------------------------------------------------

정보 2. STACK OVERFLOW (2011년)