Hallo ,
unter Demos gibs da ein Beispiel dafür in CustomDrawTreeView.pas (D7,BDS2006)
wenn XP-Style dann ergänzen:
Delphi-Quellcode:
uses ...,Themes,....
var TTV:TThemedTreeview;
...
if ThemeServices.ThemesEnabled
then // XP-Themen
begin
if Node.Expanded
then TTV:=ttGlyphOpened
else TTV:=ttGlyphClosed;
ThemeServices.DrawElement(
Handle,ThemeServices.GetElementDetails(TTV),R);
end
else
begin
.....
Gruß Bernd