FMX: TreeViewItem ScrollToItem

[Christoph Schneider]

Ich möchte ein TreeViewItem in den sichtbaren Bereich scrollen. Leider fand ich dazu in der TTreeView keine geeignete Methode.

Meine eigene Lösung funktioniert offensichtlich auch nicht in allen Fällen, denn die Item.Position stimmt nicht immer.

Code:

procedure TfmxMain.MakeItemVisible(Item: TTreeViewItem);
begin
  trvMyTreeView.ViewportPosition :=
    TPointF.Create(min(Item.Position.X - trvSlideGroups.ClientWidth / 2, 0),
      min(Item.Position.Y - trvSlideGroups.ClientHeight / 2, 0));
end;

Hat jemand eine Idee, wie man dieses Problem lösen kann?

[Christoph Schneider]

Nach vertiefem Studium von FMX.TreeView fand ich eine einfache Lösung:

Code:

procedure TfmxMain.MakeItemVisible(Item: TTreeViewImageItem);
begin
  Item.Deselect;
  Item.Select;
end;

Dadurch wird die interne methode TCustomTreeView.UpdateSelection aufgerufen, die in der Folge das neu selektierte Item in den sichtbaren Bereich scrollt.