TTreeList Font-Farbe lässt sich nicht verändern

[Ykcim]

Hallo Zusammen,

irgendwie bekomme ich in einem TTreeList die Font-Farbe und den Font_Style nicht geändert.

Delphi-Quellcode:

procedure TFrame_Planung.TV_MaschinenCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var J: Integer;
begin
   if Node.Selected then begin
      Sender.Canvas.Font.Style := [fsBold, fsUnderline, fsItalic];
      Sender.Canvas.Font.Color:=clRed;
      Sender.Canvas.Brush.Color:= clskyblue;
   else begin
      Sender.Canvas.Font.Style := [];
   end;
end;

Die Änderung des Hintergrundes Sender.Canvas.Brush.Color:= clskyblue; funktioniert aber sehr wohl...

Kann mir jemand sagen, was ich falsch mache?

Vielen Dank
Patrick

[hoika]

Hallo,
hilft das hier vielleicht?

https://stackoverflow.com/questions/...-selected-item

und das?
http://docs.embarcadero.com/products...mDrawItem.html

und zum Schluss (DefaultTrue)
https://www.experts-exchange.com/que...nt-colour.html