【结】pagecontrol用代码改变颜色后图标不见了[问题]**

新来小职员

pagecontrol用代码改变颜色后图标不见了，怎么让图标显示出来？

atiger

请楼主提供
1、是怎么改变的颜色的
2、改变前效果图
3、改变后效果图

新来小职员

procedure THJKM.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
      AText:   string;
      APoint:   TPoint;
begin
      with   (Control   as   TPageControl).Canvas   do
      begin
          Brush.Color   :=   graphics.clwhite;//TabSheet的颜色
          FillRect(Rect);
          AText   :=   TPageControl(Control).Pages[TabIndex].Caption;
          with   Control.Canvas   do
          begin
              APoint.x   :=   (Rect.Right   -   Rect.Left)   div   2   -   TextWidth(AText)   div   2;
              APoint.y   :=   (Rect.Bottom   -   Rect.Top)   div   2   -   TextHeight(AText)   div   2;
              TextRect(Rect,   Rect.Left   +   APoint.x,   Rect.Top   +   APoint.y,   AText);
          end;
      end;
end;
代码改变颜色

新来小职员

改变前

新来小职员

改变后

jiahaiminghr

楼主，可以试试使用GraphicTab和GraphicPageControl这两个控件，效果很不错的！

新来小职员

GraphicPageControl有点问题，写代码判断当前激活的tab但就是判断不了，同样的方法在pagecontrol中就起作用。而且GraphicPageControl有时出些小bug比如caption改变了要关闭后再开才看得见，所以为了保险起见我就用pagecontrol了

jiahaiminghr

GraphicTab没有楼主说的bug

lixy

procedure TMainForm.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
      AText:   string;
      APoint:   TPoint;
      icon:TIcon ;
begin
      with   (Control   as   TPageControl).Canvas   do
      begin
          icon:=TIcon.Create;
          try
            ImageList1.GetIcon(TabIndex,icon);
            Brush.Color   :=   graphics.clwhite;//TabSheet的颜色
            FillRect(Rect);
            AText   :=   TPageControl(Control).Pages[TabIndex].Caption;
            with   Control.Canvas   do
            begin
                APoint.x   :=   (Rect.Right   -   Rect.Left)   div   2   -   TextWidth(AText)   div   2;
                APoint.y   :=   (Rect.Bottom   -   Rect.Top)   div   2   -   TextHeight(AText)   div   2;
                TextRect(Rect,   Rect.Left   +   APoint.x,   Rect.Top   +   APoint.y,   AText);
                Draw(Rect.Left,3,icon);
            end;
          finally
              icon.Free;
          end;

      end;

end;
Ticon对象放在窗体的事件上创建比较好，这样些效率不会太好。例子只是描述一个方法

新来小职员

结贴吧，用别的控件做了