Как узнать, применяется ли схемы оформления (Vcl.Styles)?

#delphi #vcl

D 10.1 starter. Стандартное приложение. В опциях включены схемы оформления.
Вопрос: Как программно узнать, применяется ли сейчас какая-то схема оформления или
стиль оформления стандартный?

если схема применяется, то в файле проекта видим (например):

...
TStyleManager.TrySetStyle('Amethyst Kamri'); *
...


если в опциях проекта схемы выбраны, но дефолтное оформление выбрано "Windows", то
в проекте ничего (*) такого нет 

Нужна функция примерно такая

Function IsAppThemed:boolean;
begin
 Result := <..?..>
end;

    

Ответы

Ответ 1

Нашел:

function IsAppThemed: Boolean;
begin
  Result := TStyleManager.Enabled and TStyleManager.IsCustomStyleActive;
end;

Классический стиль программы в Delphi XE 10.2

#delphi #vcl

Можно ли в Delphi XE 10.2 Tokyo сделать классический стиль VCL контролов на форме,
как в Delphi 7 без XP-манифеста?

То есть нужен вариант как слева:


    

Ответы

Ответ 1

Всё оказалось до боли просто, нужно убрать галочку: Project -> Options... -> Application
-> Enable Runtime Themes

Как узнать, применяется ли схемы оформления (Vcl.Styles)?

D 10.1 starter. Стандартное приложение. В опциях включены схемы оформления. Вопрос: Как программно узнать, применяется ли сейчас какая-то схема оформления или стиль оформления стандартный?
если схема применяется, то в файле проекта видим (например):
... TStyleManager.TrySetStyle('Amethyst Kamri'); * ...
если в опциях проекта схемы выбраны, но дефолтное оформление выбрано "Windows", то в проекте ничего (*) такого нет
Нужна функция примерно такая
Function IsAppThemed:boolean; begin Result := <..?..> end;

Ответ

Нашел:
function IsAppThemed: Boolean; begin Result := TStyleManager.Enabled and TStyleManager.IsCustomStyleActive; end;

Классический стиль программы в Delphi XE 10.2

Можно ли в Delphi XE 10.2 Tokyo сделать классический стиль VCL контролов на форме, как в Delphi 7 без XP-манифеста?
То есть нужен вариант как слева:

Ответ

Всё оказалось до боли просто, нужно убрать галочку: Project -> Options... -> Application -> Enable Runtime Themes