TreeView: Item komplett markieren?

[Pseudemys Nelsoni]

Moin Flocke,

ich habe es so probiert:

Delphi-Quellcode:

procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
begin
  with TreeView1.Canvas do
  begin
    if cdsSelected in State then
    begin
      Brush.Color := clBlack;
      Font.Color := clWhite;
    end else
    begin
      Brush.Color := clWhite;
      Font.Color := clBlack;
    end;
    FillRect(Node.DisplayRect(false));
  end;
  Stage := cdPrePaint;
  PaintImages := True;
  DefaultDraw := True;
end;

Die [+] sowie die Beschriftung der Items sind nicht zu sehen, nur die schwarze Markierung auf weiss ist dort.

Ist hier etwas falsch?