TPageControl   의 Tab 색상을 바꿈..

 

 

1. PageControl->OwnerDraw = true;

 

2. OnDrawTab   Event  Handler 내에 아래처럼..

 

void __fastcall TDlgFavCode::PageControl1DrawTab(
      TCustomTabControl *Control, int TabIndex, const TRect &Rect,
      bool Active)
{
    TPageControl *p_control = (TPageControl*)Control;

    TCanvas *canvas = p_control->Canvas;
    canvas->Brush->Color =  (TColor)0x00E5EFF8;
    canvas->FillRect(Rect);
    canvas->Pen->Color = clBlack;

   

    String text;
    if(TabIndex == 0)
        text = "금순이"

    else if(TabIndex == 1)
        text = "은순이";

    int left_posi = Rect.Left + Rect.Width()/2 - Canvas->TextWidth(text)/2;
    canvas->TextRect( Rect, left_posi, 5, text);     // 위치는 적당하게...

 

}