[D7] Virtual String Tree InitNode

[Hobbycoder]

Hi,

ich möchte in einem alten Projekt unter D7 VirtualStringTree verwenden.

Unter 10.3 mache ich das über VST.RootNodeCount:=xx und dann mit VST.SetNodeData(Node, MeineObjectList[Node.index]) in der Methode InitNode.

Unter D7 muss ich allerdings auf die Version 5.5.3 von VirtualStringTree zurückgreifen. Dort gibt es die Methode SetNodeData anscheinend nicht.
Wie kann ich in einer alten Version von VirtualStringTree die Node.Data in InitNode setzen für ein TObject setzen? Über eine Schleife und VST.AddChild ist das kein Problem, jedoch ist mri das etwas zu langsam.

[mytbo]

Zitat:

Zitat von Hobbycoder (Beitrag 1519439)

Wie kann ich in einer alten Version von VirtualStringTree die Node.Data in InitNode setzen für ein TObject setzen?

Die bevorzugte Methode für die Befüllung einer Liste ist der Event OnInitNode und die Zuweisung an RootNodeCount. Das sieht dann wie folgt aus:

Delphi-Quellcode:

type
  PNodeData = ^TNodeData;
  TNodeData = record
    nodeData: TMeinObject;
    nodeColor: TColor;
  end;

.DoInitNode(pmSender: TBaseVirtualTree; pmParentNode, pmNode: PVirtualNode; var pmvInitialStates: TVirtualNodeInitStates);
var
  data: PNodeData;
begin
  data := pmSender.GetNodeData(pmNode);
  if data <> Nil then
  begin
    data.nodeData := dataList.Items[pmNode.Index];
    data.nodeColor := ...
  end;
end;

vst.OnInitNode := DoInitNode;
vst.NodeDataSize := SizeOf(TNodeData);
vst.RootNodeCount := dataList.Count;

Wenn du mehr Einfluss haben willst, z.B. weil deine angezeigten Daten Zwischenberechnungen enthalten, kannst du es auch so erledigen:

Delphi-Quellcode:

var
  run: PVirtualNode;
  data: PNodeData;
begin
  vst.RootNodeCount := dataList.Count;
  vst.BeginUpdate;
  try
    run := vst.GetFirst;
    while run <> Nil do
    begin
      data := vst.GetNodeData(run);
      if data <> Nil then
      begin
        data.nodeData := dataList.Items[run.Index];
        data.nodeColor := ...
      end;

      run := vst.GetNextSibling(run);
    end;
  finally
    vst.EndUpdate;
  end;

Bis bald...
Thomas