FMX - ListView - ItemAppearance - Runtime

[sintronic86]

Hey Rollo, danke für die schnelle Antwort.

Ich habe es wie folgt eingebunden:

Delphi-Quellcode:

TfMain = class(TForm)
    ...
  private
    FOrientationChangedId: Integer;
    procedure OnOrientationChanged(const Sender: TObject; const Msg: TMessage);
end;

…
…

procedure TfMain.FormCreate(Sender: TObject);
begin
  FOrientationChangedId := TMessageManager.DefaultManager.SubscribeToMessage(TOrientationChangedMessage, OnOrientationChanged);
end;

procedure TfMain.OnOrientationChanged(const Sender: TObject; const Msg: TMessage);
var
  LLIT: TListItemText;
  LLVI: TListViewItem;
  LSS : IFMXScreenService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(LSS)) then begin
    if LSS.GetScreenOrientation in [TScreenOrientation.soPortrait, TScreenOrientation.soInvertedPortrait] then begin
      Toast('Portrait');


      for LLVI in lvInventar.Items do begin
        LLIT := TListItemText(LLVI.Objects.FindDrawable('User'));
        LLIT.Width := 150;

        LLIT := TListItemText(LLVI.Objects.FindDrawable('Typ'));
        LLIT.PlaceOffset.X := 250;
        LLIT.Width := 143;
      end;
    end
    else begin
      Toast('Landscape');

      for LLVI in lvInventar.Items do begin
        LLIT := TListItemText(LLVI.Objects.FindDrawable('User'));
        LLIT.Width := 300;

        LLIT := TListItemText(LLVI.Objects.FindDrawable('Typ'));
        LLIT.PlaceOffset.X := 400;
        LLIT.Width := 428;
      end;
    end;
end;

Der Event wird beim drehen des Displays auch getriggert (habe ich mir via Toast ausgeben lassen). Aber die TListItemText ändern sich leider nicht.


Allerdings habe ich just in diesem Moment eine Lösung gefunden. Allerdings weiß ich nicht, warum das jetzt funktioniert:

Ich befülle die ListView bei jedem Triggern neu, und erstelle die TListViewText per Code mit den entsprechenden Werten. Das funktioniert nun super und (überraschenderweise) auch schnell!
Verstehen tu ich es allerdings überhaupt nicht!