本文将为您描述uniGUI之换肤(17),具体操作过程:
在MainModule里 Design 模式
1]RecallLastTheme 设为True
2]Theme选一个皮肤
总共有
classicgraycrispneptunetritontriton.modifiedariagraphite
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;
uniGUI之换肤(17)就为您介绍到这里,感谢您关注懒咪学编程www.6u68.com.
本文地址:https://www.6u68.com/bianchengkaifa/Delphi/44465.html
未经允许不得转载:作者:mywl,
转载或复制请以 超链接形式 并注明出处 梦云博客。