TreeList (TreeView) Farbe der aktiven Linie ändern?

[Grolle]

Hallo,

ich verwende in meinem Programm eine TreeList von TMS. Leider finde ich keine Eigenschaft,
wo ich die Farbe für die aktive Linie setzen kann. Müsste ja eigentlich identisch sein mit
einem Treeview?!

Viele Grüße ...

[Grolle]

*Putsch*

[toms]

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 . . .

[Grolle]

Hi,

habs mal bei der TMS TreeList getestet. Hat aber, wie du schon sagtest keine Wirkung

Viele Grüße

[toms]

Vielleicht funktioniert's im OnCustomDrawItem?
Könntest ja auch mal bei TMS nachfragen, warum dies nicht funktioniert oder ob das Verhalten geändert werden kann in einer nächsten Version.