Hallo,
TTreeList hat ein AdvancedCustomDrawItem Ereignis, die Parameter sind
identisch mit jenen der TTreeView Komponente.
Delphi-Quellcode:
procedure TForm1.TreeList1AdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
Beim TreeView kann man so die Farbe der Selektierung ändern.
Delphi-Quellcode:
procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
begin
if cdsSelected in State then
begin
if Sender.Focused
then Sender.Canvas.Brush.Color := clYellow
else Sender.Canvas.Brush.Color := clBlue;
end
else
Sender.Canvas.Brush.Color := clWindow;
end;
Bei der TTreeList zeigt dies jedoch keine Wirkung . . .