改变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;

改变TPageControl的活动标签颜色相关推荐

Xamarin XAML语言教程Xamarin.Forms中改变活动指示器颜色
Xamarin XAML语言教程Xamarin.Forms中改变活动指示器颜色在图12.10~12.12中我们会看到在各个平台下活动指示器的颜色是不一样的.Android的活动指示器默认是深粉色的: ...
li相关整理：如何改变li前面点的颜色和如何去掉li的点
1.如何改变li前面点的颜色 li {content: ".";color: rgb(245, 29, 29);} 2.在标签li后面加入"@"符号,这里都会使 ...
SpriteKit塔防游戏动态改变防御塔价格标签的颜色
大熊猫猪·侯佩原创或翻译作品.欢迎转载,转载请注明出处. 如果觉得写的不好请多提意见,如果觉得不错请多多支持点赞.谢谢! hopy ;) 本篇blog在DinoDefense塔防游戏基础之上做一处小的 ...
java如何设置标签的,我如何设置活动标签的样式？
我有一个父组件(Vue)和子组件 . 我有几个通过改变当前数据在组件之间切换的元素 . 问题是我不知道如何标记活动标签 . 我做了很多事情,在更新的,更新的,已安装的,创建的,在之前创建的生命挂钩之间 ...
JS、CSS解决标签颜色在黑色和白色背景颜色重叠问题/标签栏随背景切换变化而变化
先上演示效果解: 如图,当标签在红框区域颜色可以正常显示,但到红框下面的一些区域则和白色背景颜色相重叠.则不显示. 我们可以改变标签栏的样式,让其在白色背景时变成黑色. 如图下所示点击右侧演 ...
iOS 改变字符串中数字的颜色
匹配中文字符 [\u4e00-\u9fa5] 匹配双字节字符(包括汉字在内) [^\x00-\xff] 匹配网址:[a-zA-z]+://[^\s]* 匹配国内电话 \d{3}-\d{8}|\d{4} ...
R语言ggplot2可视化配置图例（legend）标签色彩的升序或者反序（reverse）实战：ggplot2可视化默认图例标签色彩（升序，颜色越来越深）、可视化配置图例标签颜色反序（颜色越来越浅）
R语言ggplot2可视化配置图例(legend)标签色彩的升序或者反序(reverse)实战:ggplot2可视化默认图例标签色彩(升序,颜色越来越深).可视化配置图例标签颜色反序(颜色越来越浅) ...
spring17:Bean的生命始末标签@PostConstruct,@PreDestroy和改变作用范围的@Scope标签
Bean的生命始末标签@PostConstruct,@PreDestroy package com.atChina.Test8;import javax.annotation.PostConstruc ...
RichTextBox 改变每行的字体颜色
RichTextBox 改变每行的字体颜色 1.新建方法AppendTextColorful(this RichTextBox rtBox, string text, Color c ...

改变TPageControl的活动标签颜色

改变TPageControl的活动标签颜色相关推荐

最新文章

热门文章