• 0
Nick Peterson

Программно поменять с кастомного стиля на "нативный"

Вопросы

Как поменять стиль на дефолтный (скажем win10style) после того, как был установлен кастомный?

TStyleManager.TrySetStyleFromResource('win10style'); 

работает только 1 раз, второй раз не срабатывает из-за этой проверки
 

class procedure TStyleManager.SetStyle(const Context, Style: TFmxObject);

    if FStyleResources.TryGetValue(StyleResource, OldStyle) and (OldStyle = Style) then
      Exit;

 

Стили меняю так (в ресурсах у меня zip архив со стилями):

      If CurrentStyle > 0 then begin
        StylesPack[ CurrentStyle - 1 ].Position := 0;
        S := TStyleStreaming.LoadFromStream(StylesPack[ CurrentStyle - 1 ]);
        If S <> nil then TStyleManager.SetStyle(S);
      end else TStyleManager.TrySetStyleFromResource('win10style'); // не работает

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

2 ответа на этот вопрос

  • 0

Речь идет о VCL?

Если мне не изменяет память - дефолтный стиль называется "Windows".
Вот так:

TStyleManager.TrySetStyle('Windows');

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
4 часа назад, Barbanel сказал:

Речь идет о VCL?

Конечно речь идет о FMX, на форуме FireMonkey это предполагается по дефолту :)))

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу