Screen.displayCount=0 bei Android Device (hier Fire HD 10, 9.Gen)

[philipp.hofmann]

Ist leider mal wieder das typische Problem:
- der Delphi-Support sagt Amazon ist schuld
- der Amazon-Support sagt Delphi ist schuld

Temporäre Lösung: FMX.Forms zu patchen und für Android habe ich die MultiDisplaySupported-Methode angepasst (davor durchlief auch Android den {$ELSE}-Weg:

Delphi-Quellcode:

function TScreen.MultiDisplaySupported: Boolean;
begin
  {$IFDEF ANDROID}
    if FMultiDisplaySvc = nil then
    begin
      Result := TPlatformServices.Current.SupportsPlatformService(IFMXMultiDisplayService, FMultiDisplaySvc);
      if (Result and (IFMXMultiDisplayService(FMultiDisplaySvc).DisplayCount<=0)) then
        Result:=false;
    end else if ((FMultiDisplaySvc<>nil) and (IFMXMultiDisplayService(FMultiDisplaySvc).DisplayCount<=0)) then
      Result:=false
    else
      Result := True;
  {$ELSE}
    if FMultiDisplaySvc = nil then
      Result := TPlatformServices.Current.SupportsPlatformService(IFMXMultiDisplayService, FMultiDisplaySvc)
    else
      Result := True;
  {$ENDIF}
end;