Перейти к содержанию
  • 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'); // не работает

 

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


Ссылка на сообщение

Рекомендуемые сообщения

  • 0

Речь идет о VCL?

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

TStyleManager.TrySetStyle('Windows');

 

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


Ссылка на сообщение
  • 0
4 часа назад, Barbanel сказал:

Речь идет о VCL?

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

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


Ссылка на сообщение

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


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

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

×
×
  • Создать...