在MainModule里 Design 模式
1]RecallLastTheme 设为True
2]Theme选一个皮肤
总共有
classic
gray
crisp
neptune
triton
triton.modified
aria
graphite
8个默认皮肤,CSS皮肤 和对应的JS相匹配,不能交叉混用
uses uniStrUtils , Vcl.StdCtrls
procedure TMainForm.UniFormCreate(Sender: TObject); var S : TUniStringArray;// uses 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;
总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。 总说我字少。