【搞定】[请求]TPageControl标签栏的颜色如何更改**

snowman · 发表于 2007-8-9 09:12:37

哦，那我看看
我用的是2800
窗体是2617的时候做的
如果有GraphicPageControl 我换一个好了

zykj_flame · 发表于 2007-8-9 09:20:16

顶一顶

PageControl1.OwnerDraw := True;
PageControl1.Canvas.Font.Color := Graphics.clRed;

加了这个真的变什么都没了
什么问题的呢？
如7楼的图一样，
标签空白

snowman · 发表于 2007-8-9 09:25:01

恩，GraphicPageControl 可以满足我的要求
楼上的还有什么要问的吗？

yancm · 发表于 2007-8-9 09:30:07

如果要改背景颜色的话，应该用PageControl1.Canvas.Brush.Color
而不是PageControl1.Canvas.Font.Color
还有，请楼主仔细看一下给你的例子，把这个放在BizFormCreate事件中是没用的。应该在PageControlDrawTab事件中。
实在不行您先把例子的代码拷贝调试出来，再根据你的需求来删好了

snowman · 发表于 2007-8-9 09:40:31

我没有什么特殊的需求，
只是觉得PageControl标签栏默认的颜色太难看，
所以想修改一下。
因为当时窗体是用2617做的，
还没有GraphicPageControl ，
现在升级到2800了，
用GraphicPageControl 完全可以满足我的需求。

如果12楼没有什么问题要问的话，
可以结帖了，谢谢

atiger · 发表于 2007-8-9 11:16:03

zykj_flame · 发表于 2007-8-9 11:32:39

就是在在PageControlDrawTab事件

写了
PageControl1.Canvas.Brush.Color
出现空白效果的

楼主GraphicPageControl
别的的控件？？？

snowman · 发表于 2007-8-9 12:04:27

最初由 zykj_flame 发布
[B]就是在在PageControlDrawTab事件

写了
PageControl1.Canvas.Brush.Color
出现空白效果的
[/B]

我不需要DrawTab的时候才改变，
所以我就写在CREATE里面了，
这个空白的效果我也不知道是什么原因，
即使是PageControl1.Canvas.Brush.Color把字也刷掉了，
那应该会刷成我要的颜色才对，
但现在不是。

最初由 zykj_flame 发布
[B]楼主GraphicPageControl
别的的控件？？？ [/B]

是啊，
GraphicPageControl是一个增强的PageControl控件，
我的需求用GraphicPageControl就可以满足，
如果zykj_flame 用的是28XX版的，
建议你也用GraphicPageControl。

zykj_flame · 发表于 2007-8-9 15:56:48

7楼的那个问题该怎么解决

在TMAINFORM.BizFormCreate里面写
PageControl1.OwnerDraw := True;

在PageControlDrawTab事件中
PageControl1.Canvas.Brush.Color:=Graphics.clRed;

结果还是跟7楼一样
背景颜色不但不是clRed，连字都没了

yancm · 发表于 2007-8-9 16:34:02

例子里面还有
Control.Canvas.FillRect(Rect);
如果没这句代码，肯定是什么都没了。建议先按例子做出来，再自己创造

		自动登录	找回密码
密码			立即注册