- 0

Программно поменять с кастомного стиля на "нативный"
Ответ от
Nick Peterson
-
Последние посетители 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'); // не работает
Поделиться сообщением
Ссылка на сообщение