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

[Nick Peterson 2]

Как поменять стиль на дефолтный (скажем 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'); // не работает

 

[Barbanel 102]

Речь идет о VCL?

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

TStyleManager.TrySetStyle('Windows');

 

[Nick Peterson 2]

4 часа назад, Barbanel сказал:

Речь идет о VCL?

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