如何为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
|