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