Virtual TreeView Nodes anzeigen verbergen

[Jens Hartmann]

Hallo,

in dem Video wird mit folgender Funktion gearbeitet. Diese findest ungefähr ab Minute 5o bzw. 60 des Videos (glaube ich).

Delphi-Quellcode:

procedure TFDatenauswertung.SucheCallback(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean);
var
  Daten : TOAUMB256PLUS;
begin
  Daten := TOAUMB256PLUS(VST.GetNodeData(Node)^);
  VST.IsVisible[Node] := (EDManFilter.Text='') or (pos(EDManFilter.Text, Daten.Ereignis)>0);
end;

[EDIT] Wenn man nicht richtig ließt, endeckt man später, das die antwort so eigendlich schon gegeben wurde.

Trotzdem

Gruß Jens