VST mit Objekten, Alle Nodes einer Spalte Durchlaufen

[Igotcha]

Zitat von Metal_Snake2:

wobei ich den Parameterwert also den index des Childnodex weis und angebe.
Wie mache ich das.
thx

Jaja, die Frage hatte wahrscheinlich jeder mal, der mit dem VST arbeit, die Lösung sieht eher "unglaublich" aus, funktioniert aber reibungslos und hochperformant:

Delphi-Quellcode:

function FindPLANNodeByGroupID(aTree: TBaseVirtualTree; gID: Integer): PVirtualNode;
var
   NodeData: pPlanData;
begin
   Result := aTree.GetFirst;
   while Assigned(Result) do
   begin
     NodeData := pPlanData(aTree.GetNodeData(Result));
     if NodeData^.FGroupid= gID Then
       Exit;
     Result := aTree.GetNext(Result);
   end;
end;

Angewandt wird das z.B. so (ich baue meine VSTs i.d.R. aus Datenbanken auf):

Delphi-Quellcode:

akt_Node:=atree.AddChild(FindPLANNodeByData(aTree, aQuery1.fieldbyname('pgid').asinteger));
myData:=atree.GetNodeData(akt_Node);

Mausklicks im VST wertet man folgendermaßen aus:

Delphi-Quellcode:

procedure TFProjektbericht.VTPROJEKTEMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  myHit: THitInfo;
begin
        VTPROJEKTE.GetHitTestInfoAt(x,y,true,myHit);
        if hiOnitem in myHit.HitPositions then
        begin
         mySelNode:=myHit.HitNode;
         if Assigned(mySelNode) then
         mySelData:=VTPROJEKTE.GetNodeData(mySelNode);
        end;
end;

Gruß Igotcha