Hallo Community,
nach langer Zeit, stehe ich mal wieder vor einem Problem, das ich einfach nicht gelöst bekomme.
Ich bin dabei, eine App für Android zu entwickeln. Dort liegt auf der Mainform ein TListView, dessen ItemAppearance auf "DynamicAppearance" steht. Ich habe einige TListItemText unter "Item" reingepackt und ausgerichtet.
Da diese Elemente nicht nach dem "normalen" Prinzip von TAlignLayout.Client etc. arbeiten (bitte berichtigt mich, wenn ich falsch liege), möchte ich die Ausrichtung und Maße dieser Elemente beim ändern der Orientation anpassen.
Dieses habe ich über das ResiceEvent des ListViews als auch über
TMessageManager.DefaultManager.SubscribeToMessage(TOrientationChangedMessage, OnOrientationChanged);
ausprobiert.
Drehe ich also das Gerät in die Landscape-Ansicht, sollen die TListItemText breiter werden. Leider passiert dort nichts. Führe ich die Änderungs-Procedure allerdings manuell via ButtonClick aus, werden die Änderungen übernommen.
Ich weiß leider überhaupt nicht, woran das liegen kann.
Hier mal die angesprochene Procedure:
Delphi-Quellcode:
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;
Hat jemand von euch eine Idee dazu?
Ich bedanke mich schon einmal im Voraus!
PS:
Umgebung:
RAD Studio 10.1 Berlin
Testgerät: Samsung Galaxy S8 Plus (kein Emulator)