Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by LoZe,
22. Apr 2022
procedure TForm3.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
var
Tree:TTreeView;
BG:TRect;
TR:TRect;
Box:TRect;
txt:String;
begin
Tree:= Sender as TTreeView;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by LoZe,
22. Apr 2022
Hast du es im OnAdvancedCustomDrawItem Ereignis drin?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by LoZe,
22. Apr 2022
Hallo, So vielleicht? (ungetestet)
procedure TForm1.TreeViewCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
Tree:TTreeView;
BG:TRect;
TR:TRect;
Box:TRect;
txt:String;