VirtualStringTree Descendants

[anse]

Vorschlag, Idee:

Delphi-Quellcode:

uses Contnrs;

...

function TMyVST.AddProgressBarToCell(Sender: TMyVST; Node: PVirtualNode; Column: TColumnIndex): TProgressBar;
begin
  Result := TProgressBar.Create;
  ...
  GetTextInfo(Node, Column, f, CellRect, Text);
  Result.BoundsRect := CellRect;
end;

procedure TMyVST.AddProgressBarsToColumn(Sender: TMyVST; Column: TColumnIndex): TObjectList;
var
  List: TObjectList;
  Node: PVirtualNode;
begin
  List := TObjectList.Create;
  Node := Sender.GetFirst;
  while Assigned(Node) do begin
    List.Add(AddProgressBarToCell(Sender, Node, Column));
    Node := Sender.GetNextSibling(Node);
  end;
end;