TPanel在使用Theme Service时的Bug

时间:2010-01-28 08:40:50  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:; 2、修改 ExtCtrls.pas 得 1778 行,忽略对 Themes 的判断    3、先设置 panel 的 ParentBackground 为 True,再设置回去    4、修改 ExtCtrls.pas 的 262 行为:
  正文:问题:

    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):

TPanel在使用Theme Service时的Bug》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12535.html


关键字:

关于《TPanel在使用Theme Service时的Bug》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td