cbc中PageColor如何更改TabSheet的颜色

最新推荐文章于 2024-10-24 10:48:02 发布

旅行皮箱

最新推荐文章于 2024-10-24 10:48:02 发布

阅读量2.3k

点赞数

分类专栏： C＋＋Builer

C＋＋Builer 专栏收录该内容

23 篇文章

订阅专栏

本文介绍如何通过设置PageControl的OwnerDraw属性为true，并在OnDrawTab事件中自定义绘制TabSheet，实现TabSheet高亮并显示为特定颜色，如红色。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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);
}