TVirtualStringTrfee, MakeVisible-Ersatz ?

[hoika]

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

[hoika]

Hallo,

hat sich erledigt.

Schon FocusedNode ruft intern ScrollIntoView.

Es funktioniert.

Mein Fehler:
- nach dem Füllen des Trees habe ich ein LV_TPData.Header.SortColumn:= 0; gemacht.

Danach klappt das FocusedNode nicht mehr richtig.


Lösung:
- LV_TPData.Header.SortColumn:= 0 vor dem Füllen machen.


Heiko