cbc中PageColor如何更改TabSheet的顏色

TabSheet有一個 HighLighted屬性，設為ture時，此TAB就高亮顯示，但是有的客戶比較刁鑽，不僅要高亮，還要紅色顯示，

而PageColor沒有此屬性，只有手工去畫TAB的顏色了。

 

首先設定 Pagecontrol->OwnerDraw = true ;

在 PageControl  的 OnDrawTab事件裡裡重畫TAB,

 

void __fastcall TForm1::PageControl1DrawTab(TCustomTabControl *Control,
      int TabIndex, const TRect &Rect, bool Active)
{
    TTabSheet   *   ts   =   PageControl1-> Pages[TabIndex];
                TCanvas   *   can   =   Control-> Canvas;
                if(Active){
                      can-> Brush-> Color   =   clRed;
                      can-> FillRect(Rect);

                }
                TSize   size   =   can-> TextExtent(ts-> Caption);
                int   left   =   (Rect.Width()-size.cx+1)/2;
                int   top   =   (Rect.Height()-size.cy+1)/2;   //   計算畫caption的頂點
                can-> Pen-> Color   =   clWhite;
                SetBkMode(can-> Handle,TRANSPARENT);
                can-> TextOut(Rect.Left+left,Rect.Top+top,ts-> Caption);
}