Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tigerman33,
22. Aug 2005
Geht schon, ist aber mächtig Aufwand, weil du alles selber zeichnen müsstest. Über DefaultDraw=true hast du bis jetzt dafür gesorgt, dass die TreeView Komponente sich immer noch selber malt, du hast halt nur ein paar Einstellungen vorneweg geändert. Das ginge jetzt nicht mehr.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tigerman33,
22. Aug 2005
Benutz das OnAdvancedCustomItemDraw (jaja oder so ähnlich halt). Das liefert dir das Item in der Parameterliste gleich mit, über die Property Level kannst du dann ja die Ebene abfragen.
procedure TreeView1.OnAdvancedCustomItemDraw(...);
begin
if Item.Level = 0 then
Sender.Canvas.Font.Style := else
Sender.Canvas.Font.Style := ;
end;