AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Cross-Platform-Entwicklung FMX - ListView - ItemAppearance - Runtime
Thema durchsuchen
Ansicht
Themen-Optionen

FMX - ListView - ItemAppearance - Runtime

Ein Thema von sintronic86 · begonnen am 6. Feb 2019 · letzter Beitrag vom 17. Feb 2021
 
sintronic86

Registriert seit: 7. Dez 2009
Ort: Barsinghausen
90 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

FMX - ListView - ItemAppearance - Runtime

  Alt 6. Feb 2019, 09:53
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)
Björn
  Mit Zitat antworten Zitat
 

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:02 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz