Frage zur Virtual Tree View

[mason]

Zitat von m0sch3r:

Danke, hat soweit geklappt...))

Noch mal zu meiner 2 Frage, gibt es vieleicht eine Eingenschaft die zwischen jedem Hauptnode ein Grid hin malt.....!?

Ich kenn mich mit den Malereien nicht so aus - aber eine einfache Lösung wäre Folgendes im OnAfterItemPaint:

Delphi-Quellcode:

procedure TForm1.VTAfterItemPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect);
var r: TRect;
begin
  if (VT.GetNodeLevel(Node) = 0) and (VT.AbsoluteIndex(Node) > 0) then begin
    r.Left := ItemRect.Left;
    r.Right := ItemRect.Right;
    r.Top := ItemRect.Top;
    r.Bottom := ItemRect.Top + 1;
    TargetCanvas.Brush.Color := clBlack;
    TargetCanvas.FillRect(r);
  end;
end;