编程语言

img lsuper

TPanel 在使用 Theme Service 时的 Bug

发表于2004/11/4 13:05:00  1097人阅读

分类: 程序人生

问题:
 
    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

此时运行,一切正常 :)
阅读全文
0 0

相关文章推荐

img
取 消
img