TreeList (TreeView) Farbe der aktiven Linie ändern?

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