Как обнаружить темный режим в Delphi iOS приложениях

Question

Как обнаружить темный режим в коде в проекте Delphi 10.3 Rio?

У меня есть фоновый прямоугольник, для которого задан цвет Белый, а iOS не удается сделать его темным. Текст TLabel на вертикальной панели прокрутки превращается в белый, и это оставляет их нечитаемыми на белом фоне.

Answer 1

Похоже, что в приложениях Delphi iOS нет способа обнаружить темный режим.

Чтобы сделать это возможным, я добавил эту функцию в нижней части FMX.Platform. iOS .pas

function MikesIsDarkModeOn: Boolean;
begin
  Result := not (GetUserInterfaceStyle = UIUserInterfaceStyleLight);   
end;

Затем я добавил таймер, который каждые две секунды проверяет изменения в темном режиме и (после изменения) переключает фоны моих пользовательских диалогов и элементов списка на белый или черный. Текст обычно (но не всегда) уже переключался на белый / черный соответственно для темного режима на Delphi.