how do i change the theme at runtime

[Darlan]

how do i change the theme at runtime, example: switching from aria to neptune

[Sherzod]

Hello, 

Exactly at what moment?

[irigsoft]

15 hours ago, Darlan said:

how do i change the theme at runtime, example: switching from aria to neptune

Hello, look for C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\ThemeChange

[Darlan]

On 28/01/2023 at 23:52, Sherzod said:

Olá, 

Exatamente em que momento?

coloquei um botão no config, que selecione 2 temas.
Exemplo: UniMainModule.Theme:= 'aria';
Me informaram para ver o exemplo no Demo ThemeChange mas este demo não compila

I put a button in the config, which selects 2 themes.

Example: UniMainModule.Theme:= 'aria';

Let me know to see the example in the ThemeChange Demo but this demo doesn't compile.

how to allow user to switch to another theme?
 

[irigsoft]

34 minutes ago, Darlan said:

coloquei um botão no config, que selecione 2 temas.
Exemplo: UniMainModule.Theme:= 'aria';
Me informaram para ver o exemplo no Demo ThemeChange mas este demo não compila

I put a button in the config, which selects 2 themes.

Example: UniMainModule.Theme:= 'aria';

Let me know to see the example in the ThemeChange Demo but this demo doesn't compile.

how to allow user to switch to another theme?
 

Hello,

I use Combobox with all Themes and show this on MainForm

to change Theme just add this:

on UniComboBox_ThemeChange ();

begin

If UniComboBox_Theme.ItemINdex <> -1 then
    UniMainModule.Theme := UniComboBox_Theme.Text;

end;

You need to make         UniMainModule.RecallLastTheme := False or True;

 

here is how to load all themes in Combo:

var

S                     : TUniStringArray;
ThemeI                : Integer;

begin

    S := UniServerModule.ThemeManager.AllThemes;
    TRY
      UniComboBox_Theme.Items.BeginUpdate;
      UniComboBox_Theme.Items.Clear;
      for ThemeI := Low(S) to High(S) do
          UniComboBox_Theme.Items.Add(S[ThemeI]);

      UniComboBox_Theme.Text := UniMainModule.Theme;
    FINALLY
      UniComboBox_Theme.Items.EndUpdate;
    END;
end;

[Darlan]

Hi,

Now it worked right.

Was missing:

UniMainModule.RecallLastTheme := True;

Thank you for your help.👍