在MainModule裏 Design 模式spa
1]RecallLastTheme 設爲Truecode
2]Theme選一個皮膚orm
總共有blog
classic
gray
crisp
neptune
triton
triton.modified
aria
graphiteit
8個默認皮膚ast
uses uniStrUtils,class
procedure TMainForm.UniFormCreate(Sender: TObject); var S : TUniStringArray;//uniStrUtils I : Integer; begin S := UniServerModule.ThemeManager.AllThemes; ThemeComboBox.Items.Clear; for I := Low(S) to High(S) do ThemeComboBox.Items.Add(S[I]);
ThemeComboBox.Text := UniMainModule.Theme;
ThemeComboBox.Style:= csDropDownList; //uses Vcl.StdCtrls
end;
procedure TMainForm.ThemeComboBoxChange(Sender: TObject); begin UniMainModule.Theme := ThemeComboBox.Text; end;