FMX TMultiView als Navigationpane - Ist Collapesd oder nicht?

[Sherlock]

Schwieriger Titel, hoffentlich leichte Frage: Wie finde ich bei einem TMulitView, das als

Delphi-Quellcode:

Mode := NavigationPane

hat, heraus, ob es gerade zusammengeschoben ist, oder eben erweitert? Anbei zwei Bilder, was ich meine.

Sherlock

[Sherlock]

IsShowed heisst die Methode... meine Güte, war das schwer zu finden. :D

Sherlock

[Der schöne Günther]

Delphi-Quellcode:

procedure TForm3.Button4Click(Sender: TObject);
var
   isOpened: Boolean;
begin
   isOpened := TPresentationState.Opened in MultiView1.Presenter.State;
   if isOpened then Caption := 'is opened' else Caption := 'is closed';
end;

Edit:

Du warst schneller. IsShowed, wtf. IsShown wenn schon.

[Sherlock]

Oha, über den Presenter abgefragt. Und wenn man in die Eingeweide (FMX.MultiView) blickt so findet man:

Delphi-Quellcode:

function TCustomMultiView.IsShowed: Boolean;
begin
  Result := HasPresenter and (TPresentationState.Opened in Presenter.State);
end;

Sherlock