CameraComponent Portraitmodus erzwingen

[zeras]

Ich habe das so gelöst. Du kannst ja mal probieren, ob das so etwa passt. Bei mir ist es Landscape. Das musst du dann entsprechend anpassen.

Delphi-Quellcode:

//wir lassen nur Landscape (Querformat) zu
Procedure SetScreenOrientation;
var
  ScreenService: IFMXScreenService;
  OrientSet: TScreenOrientations;

begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
  begin

    //Ausrichtung Bildschirm soll fest sein, damit sich nicht einfach der Bildschirm dreht, wenn jemand etwas bewegt
    if BildschirmAusrichtung then begin
      OrientSet := [TScreenOrientation.InvertedLandscape]; //Kabel links Nexus7
    end
    else begin
      OrientSet := [TScreenOrientation.Landscape]; //Kabel rechts Nexus7
    end;

    ScreenService.SetSupportedScreenOrientations(OrientSet);
  end;
end;