VST Anzeige der Child-Node
7. Dez 2010, 18:19
Guten Tag Delphianer,
ich habe ein kleines problem mit dem VST (VirtualstringTree).
Über eine Suchroutine wird mit Callback im VST gesucht.
Es kann sein das der Parentnode Childnode hat. Das Suche funktioniert
an sich ganz gut, aber die Childnodes werden nicht mit angezeigt.
Folgender Aufbau hat das VST:
Parent-Node (TOAdressDatenVST)
Child-Node (TORechungsanschriftenVST class(TOAdressDatenVST))
Folgender Code für die Callback-Funktion:
procedure TFrameZeigeKunden.SucheCallback(Sender: TBaseVirtualtree;
Node: PVirtualNode; Data: Pointer; var Abort: Boolean);
var
cSuche: string;
pDaten: TOAdressDatenVST;
begin
cSuche := AnsiUpperCase(edtSucheKunde.Text);
pDaten := TOAdressDatenVST(vstZeigeKunden.GetNodeData(Node)^ );
vstZeigeKunden.IsVisible[Node] := (cSuche = '')
or (Pos(cSuche, pDaten.FSuchcode) > 0);
end;
Gesucht wird grundsätzlich die Hauptadresse (TOAdressDatenVST),
während die Rechnungsanschriften der Hauptadresse zugeordnet sind und wie oben erwähnt, es werden die Hauptadressen gefunden, aber die evtl. dazugehörenden Rechnungsanschriften werden nicht angezeigt, obwohl im VST ein (+) für die Childnodes angezeigt wird.
Ich habe schon einges versucht, es führte aber noch keine Lösung zum Ziel. Villeicht hat ein Andere eine sinnvolle Idee, oder hat gar die Lösung??
Für Eure Mühen im Voraus vielen Dank
HPB
|