zoukankan      html  css  js  c++  java
  • 改变TPageControl的活动标签颜色

    设置PageControl的owndraw属性为TRUE.

    procedure TForm1.pgc1DrawTab(Control: TCustomTabControl; TabIndex: Integer;
      const Rect: TRect; Active: Boolean);
      var
          cc:   Cardinal;
          tabRect:   TRect;
      begin
          CopyRect(tabRect,Rect);
          Control.Canvas.Brush.Color:=   Self.color;
          SetBkMode(Control.Canvas.Handle,1);
          Control.Canvas.FillRect(tabRect);
          cc     :=   SetTextAlign(Control.Canvas.Handle,TA_TOP);
          if(not   Active)   then
          begin
              SetTextColor(Control.Canvas.Handle,RGB(0,0,0));
              Control.Canvas.TextOut(tabRect.Left+5,Rect.Top+2,TPageControl(Control).Pages[TabIndex].Caption);
          end
          else
          begin
              SetTextColor(Control.Canvas.Handle,ColorToRGB(clBlue));
              Control.Canvas.TextOut(tabRect.Left+5,Rect.Top+4,TPageControl(Control).Pages[TabIndex].Caption);
          end;
          SetBkMode(Control.Canvas.Handle,0);
          SetTextAlign(Control.Canvas.Handle,cc);
      end;

    http://blog.csdn.net/diligentcatrich/article/details/5573423

  • 相关阅读:
    Django-admin管理工具
    docker-ce安装与搭建私有仓库
    docker-建立私有registry
    UBUNTU 下设置全局 path变量
    REDIS学习(1)环境搭建
    mongodb学习(1) 第一次开启 mongdb
    linux 添加 $path
    php cgi 与 cli 区别
    mysql 分区信息查看
    php 编译安装选项
  • 原文地址:https://www.cnblogs.com/findumars/p/5218067.html
Copyright © 2011-2022 走看看