3

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

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

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

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

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

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

1 ответ 1

4

Нашел:

function IsAppThemed: Boolean;
begin
  Result := TStyleManager.Enabled and TStyleManager.IsCustomStyleActive;
end;
1
  • спасибо за правку
    – Gu.
    10 июн 2017 в 20:26

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.