Hallo,
ich will einen Knoten in einem TVirtualStringTree (Lischek) markieren.
Ich mache das über das über Suchen (CallBack) und dann
Delphi-Quellcode:
procedure TForm.LV_TPData_SearchCallBack(
Sender: TBaseVirtualTree;
Node: PVirtualNode; Data: Pointer; var bAbort: Boolean);
var
bFound: Boolean;
begin
// vergleichen
// ...
///
if bFound then
begin
Sender.IsVisible[Node] := True;
Sender.FocusedNode := Node;
Sender.Selected[Node] := True;
end;
end;
Problem.
Befindet sich der Knoten ausserhalb des Sichtfelds,
wird nicht u ihm "hingescrollt", so wie bei TListView.MakeVisible.
Wie macht man das mit TVirtualStringTree ?
Update aus Google:
Delphi-Quellcode:
Sender.ScrollIntoView(Node, False{Center}); // oder True, ist egal
Sender.FullyVisible[Node]:= True;
Nur leider funktioniert das nicht.
Danke
Heiko