Windows 7 и TStyleBook

[sviat9440]

Всем привет! Давно с вами не виделись)) Вот такая проблема есть: У меня Виндовс 10, и все корректно отображается. Я имею в виду стили. У меня на данный момент нет возможности протестировать приложение на Виндовс 7, но прилагаю скрины (Как должно/Как отображается). Вопрос: Проблема у меня? Или на стороне FireMonkey?

 

Попутный вопрос: Если на стороне FireMonkey, то как узнать версию ОС, чтобы при запуске на вин7, сообщать пользователю что то типа "Твоя ОС не поддерживается"?

 

Дополнительная информация: Используется Delphi XE 10 Seattle.

[Равиль Зарипов (ZuBy)]

для того чтобы узнать версию существует TOSVersion и метод Check

[sviat9440]

для того чтобы узнать версию существует TOSVersion и метод Check

Спасибо, 1/2 решен)) Теперь надо выяснить проблема у меня или в FireMonkey. У кого вин7? Стили пашут?

[Равиль Зарипов (ZuBy)]

проблема в том, что FMX сам регулирует какой стиль использовать, т.к. в программу закладываются сразу 3 стиля Windows7-8-10

 

unit FMX.Controls.Win;

initialization
  THint.RegisterClass(TWindowsHint);
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.Windows, 'win7style');
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.Windows, 'win8style');
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.Windows, 'win10style');
  TStyleManager.RegisterPlatformStyleSelection(TOSPlatform.Windows, WindowsStyleSelection);

Попробуйте загрузить в StyleBook стиль Win-10 для Windows 7

[sviat9440]

Угу, вижу. Там есть два пункта:

 

Windows 10 Desktop

Default

 

Default - пустой. Загрузил в него стили. Так?

[Равиль Зарипов (ZuBy)]

там как-то можно добавить именно Windows 7

[sviat9440]

Мне лень под каждую ОС добавлять отдельные стили)) Default будет работать?

[Равиль Зарипов (ZuBy)]

Незнаю, проверьте.

[sviat9440]

ok;

 

))