关于AlphaControls 的问题

sunmoonfly 2013-07-21 12:21:59
请教大家
项目中使用了 AlphaControls 6.44 ,里面用了一个TPanel,这个panel的字体我设置为红色,结果颜色设置好后运行程序没有变化,应该是 AlphaControls 影响了显示,我想单独设置 该panel的颜色不受皮肤的影响,该如何设置?
...全文
269 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
s11ss 2013-07-22
  • 打赏
  • 举报
回复
1L确实不行。。。有个办法,就是在SkinManager的ThirdParty中排除掉TPanel,这样Panel就可以改字体颜色了,但是其边框也会恢复成原始摸样,而不是皮肤的样式了。
sunmoonfly 2013-07-22
  • 打赏
  • 举报
回复
暂时不改颜色了
sololie 2013-07-21
  • 打赏
  • 举报
回复
原来是说字符颜色,我给弄成背景色了。 刚试了下,窗体上放了TsSkinManager设置了皮肤,在放个标准TPanel控件,设置字体颜色,能正常显示,跟其他AlphaControls的其他控件没啥冲突,你自己仔细检查问题所在吧。
sunmoonfly 2013-07-21
  • 打赏
  • 举报
回复
谢谢帮忙! to s11ss : 这个方法颜色没有变化,难道还有地方需要设置? to sololie 这个软件大都用的非AlphaControls,这样搞总觉得不太好
sololie 2013-07-21
  • 打赏
  • 举报
回复
AlphaControls自带的panel控件有OnPaint事件,并附带一个Canvas给使用者了,可以很方便地处理

procedure TForm1.TsPanel1Paint(Sender: TObject; Canvas: TCanvas);
begin
  Canvas.Brush.Color := clRed;
  Canvas.Rectangle(TsPanel1.ClientRect);
end;
s11ss 2013-07-21
  • 打赏
  • 举报
回复
Form1的OnPaint事件,Panel1.Font.Color := clRed;

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧