您的位置:首页 > 其它

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

2006-11-22 09:55 766 查看
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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: