如何使用TdsSideBar控件得到XP风格的GROUP，2000风格的ITEM

KeyLife富翁笔记

作者: HongYuan
标题: 如何使用TdsSideBar控件得到XP风格的GROUP，2000风格的ITEM
关键字:
分类: 个人专区
密级: 公开

(评分: , 回复: 0, 阅读: 438) »»

如何为TdsSideBar的PaintStyle=sbpsW2K设置Groups标题颜色?
TdxSideBarW2KPainter = class(TdxSideBarFlatPainter)
protected
  function CreateViewInfo: TdxSideBarViewInfo; override;
public
  //覆盖此方法，并在方法中使用代理调用TdxSideBarXPPainter.DrawGroup,并在些方法中修改Canvas.Brush.Color属性即可
  procedure DrawGroup(AGroupViewInfo: TdxSideGroupViewInfo); override;
end;

procedure TdxSideBarW2KPainter.DrawGroup(
  AGroupViewInfo: TdxSideGroupViewInfo);
var
  SideBarXp:TdxSideBarXPPainter;
begin
  try
    SideBarXp:=TdxSideBarXPPainter.Create(Self.FSideBar);
    SideBarXp.DrawGroup(AGroupViewInfo);
  finally
    FreeAndNil(SideBarXp);
  end;
end;



这样就可以得到了XP风格的GROUP，2000风格的ITEM，我就是喜欢这个样式。

2005-7-1 14:29:25