Обнаружение темного/ночного режима на iOS с помощью Delphi ⇐ IOS

[Anonymous]

В Delphi 12 я использую IFMXSystemAppearanceService, чтобы определить, находится ли мое устройство в темном режиме. Он работает на Android и MacOS, но не на iOS. Я всегда получаю низкую оценку.

Код: Выделить всё

  function TThemeNotifier.GetSystemMode: TThemeMode;
var
LService: IFMXSystemAppearanceService;
begin
Result := TThemeMode.Light;

if TPlatformServices.Current.SupportsPlatformService(IFMXSystemAppearanceService, LService) then
begin
// always get LService.GetSystemThemeKind = Light
if LService.GetSystemThemeKind = TSystemThemeKind.Dark then
Result := TThemeMode.Dark;
end;
end;

Я видел этот код много раз и не понимаю, почему он не работает, может быть, проблема iOS с этой версией Delphi?

Подробнее здесь: https://stackoverflow.com/questions/798 ... ing-delphi