Problem with theme sample

[MVakili]

I took this code to change the theme from the sample codes of the UNI folder, but it does not work in my program
Does anyone have any ideas?

Explanation that the filling part of the theme works perfectly
But the theme changer does nothing

procedure TSettingForm.UniFormShow(Sender: TObject);
var
   I : Integer;
   S : TUniStringArray;
begin
  S := UniServerModule.ThemeManager.AllThemes;
  ThemeBox.Items.Clear;
  for I := Low(S) to High(S) do
    ThemeBox.Items.Add(S[I]);
end;

procedure TSettingForm.ThemeBoxChange(Sender: TObject);
begin
   DMT.Theme:=ThemeBox.Text;
end;

 

[Sherzod]

Hello, 

You need to set UniMainModule -> RecallLastTheme to True.

[MVakili]

7 hours ago, Sherzod said:

Hello, 

You need to set UniMainModule -> RecallLastTheme to True.

Tanks

It Works