unigui发布_uniGUI之换肤(17)

本文将为您描述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，

转载或复制请以 超链接形式 并注明出处 梦云博客。