uniGUI之换肤(17)

 在MainModule里  Design 模式

1]RecallLastTheme 设为True

2]Theme选一个皮肤

总共有

classic
gray
crisp
neptune
triton
triton.modified
aria
graphite

8个默认皮肤

uses uniStrUtils,

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;

 

原文链接:https://www.cnblogs.com/tulater/p/12274196.html
如有疑问请与原作者联系

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有