Einzelnen Beitrag anzeigen

HPB

Registriert seit: 2. Jun 2008
365 Beiträge
 
Delphi XE7 Professional
 
#1

VST Anzeige der Child-Node

  Alt 7. Dez 2010, 17: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
  Mit Zitat antworten Zitat