TPanel 在使用 Theme Service 时的 Bug

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

问题:

Panel 控件在使用了 XPtheme 后背景色没了 ...

解决方法有四:

1、使用 TShape 带颜色覆盖在 panel 的表面

2、修改 ExtCtrls.pas 得 1778 行,忽略对 Themes 的判断

3、先设置 panel 的 ParentBackground 为 True,再设置回去

4、修改 ExtCtrls.pas 的 262 行为:

property ParentBackground { stored FParentBackgroundSet };

总体的,方法 3 的改动最少,不过每次都要这样弄一下 ...

论述:

在设计期、运行期,没有使用 windows xp theme 样式(引用 XpMan 单元):

而使用了 xp 样式后的设计期、运行期:

使用 xp theme 后 panel 竟然变得透明了!

查看源码:

procedure TCustomPanel.Paint; 得实现:

其中 ExtCtrls.pas 得 1778 行决定背景得画法:

if not ThemeServices.ThemesEnabled or not ParentBackground then

begin

Brush.Color := Color;

FillRect(Rect);

end;

解决办法 1:直接把 not ThemeServices.ThemesEnabled 砍掉,定成 True,不过似乎暴力些

解决办法 2:设置 ParentBackground 属性为 False 就可以了,=^0^= so easy

可是查看属性,傻眼了:ParentBackground 属性已经是 False 了:

单步看 TCustomPanel.Paint 得运行,此时得 ParentBackground 却是 True!

查找 GetParentBackground 得实现代码:

function TWinControl.GetParentBackground: Boolean;

begin

Result := csParentBackground in ControlStyle;

end;

而 csParentBackground 只有在

procedure TWinControl.SetParentBackground(Value: Boolean);

中才被设置:其中在 TCustomPanel 中被 override 了:

procedure TCustomPanel.SetParentBackground(Value: Boolean);

begin

{ TCustomPanel needs to not have csOpaque when painting

with the ParentBackground in Themed applications }

if Value then

ControlStyle := ControlStyle - [csOpaque]

else

ControlStyle := ControlStyle + [csOpaque];

FParentBackgroundSet := True;

inherited;

end;

注意到那个 FParentBackgroundSet 变量,他标记用户是否设置了 ParentBackground,干什么用的?:

在 ExtCtrls.pas 的 262 行:

property ParentBackground stored FParentBackgroundSet;

原来 ParentBackground 只有当用户设置了 ParentBackground 后才流化到 dfm 中的,为了验证,查看 dfm 流化:

原使的(没有流化 ParentBackground 属性,此时 ParentBackground 为 True,不过再设计器没有表现出来,而是默认的 False):

object Panel1: TPanel

Left = 8

Top = 8

Width = 218

Height = 245

Caption = 'Panel1'

Color = clGreen

TabOrder = 0

end

设置 panel 的 ParentBackground 为 True,再设置回去,此时应该与上面的“一摸一样”,可是:

object Panel1: TPanel

Left = 8

Top = 8

Width = 218

Height = 245

Caption = 'Panel1'

Color = clGreen

ParentBackground = False

TabOrder = 0

end

此时运行,一切正常 :)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航