Virtual String Tree Node-Text versetzen?

[a.def]

Ist es irgendwie möglich einen den Text eines Nodes im Virtual String Tree etwas weiter nach links zu setzen?
Genauer gesagt möchte ich das bei allen Nodes mit Sender.GetNodeLevel(Node) > 0 machen.

Ich weiß wie ich Texte und Hintergründe färbe aber obiges Problem bekomme ich nicht gelöst.

Edit
ich denke ich habe es geschafft. Nur ob schön, weiß ich nicht

Delphi-Quellcode:

procedure TForm1.VSTDrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; const Text: string; const CellRect: TRect; var DefaultDraw: Boolean);
var
 DrawFormat: Cardinal;
 R: TRect;
begin
 if (Sender.GetNodeLevel(Node) > 0) and (Node.ChildCount = 0) then
  begin
   DefaultDraw := False;
   R := CellRect;
   R.Left := R.Left - TVirtualStringTree(Sender).Indent;

   DrawFormat := DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE;
   Windows.DrawTextW(TargetCanvas.Handle, PWideChar(Text), Length(Text), R, DrawFormat);
  end;
end;

[Aviator]

Es gibt diverse Möglichkeiten. Entweder so wie du es gemacht hast mit OwnerDraw oder aber auch über die Eigenschaften des Trees. Schau dir mal die Properties TextMargin und Indent an.

Bei unterschiedlichen Einzügen pro Level bietet sich entweder Indent, oder vielleicht in dem Fall noch besser, OwnerDraw an.

Vielleicht solltest du aber die Canvas.TextOut() Procedure verwenden anstatt Windows.DrawTextW() . Macht zwar schlussendlich keinen Unterschied, lässt sich aber vielleicht besser handlen. Das TargetCanvas hast du ja bereits als Parameter übergeben bekommen.