unigui中换主题的方法

 设置RecallLastTheme属性

枚举主题名称

procedure TFrmMain.GetThemes;//枚举主题名称
var
  S: TUniStringArray;
  I: Integer;
begin
  S := UniServerModule.ThemeManager.AllThemes;
  ThemeComboBox.Items.Clear;
  for I := Low(S) to High(S) do
    ThemeComboBox.Items.Add(S[I]);
end;

切换主题类型

 UniMainModule.Theme := ThemeComboBox.Text;