查看: 107|回复: 0

uniGUI之换肤(17)

[复制链接]
发表于 2020-2-16 08:55:37 | 显示全部楼层 |阅读模式

在MainModule里  Design 模式
1]RecallLastTheme 设为True
2]Theme选一个皮肤
统共有
classic
gray
crisp
neptune
triton
triton.modified
aria
graphite
8个默认皮肤
uses uniStrUtils,
  1. 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]);
  2.   ThemeComboBox.Text := UniMainModule.Theme;
  3.   ThemeComboBox.Style:= csDropDownList;  //uses Vcl.StdCtrls
  4. end;
复制代码
  1. procedure TMainForm.ThemeComboBoxChange(Sender: TObject);begin    UniMainModule.Theme := ThemeComboBox.Text;end;
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?用户注册

x

天涯海角也要找到Ni:uniGUI之换肤(17)

中发现Ni: uniGUI之换肤(17)
中发现Ni: uniGUI之换肤(17)
中发现Ni: uniGUI之换肤(17)
中发现Ni: uniGUI之换肤(17)
中发现Ni: uniGUI之换肤(17)
中发现Ni: uniGUI之换肤(17)
相关技术服务需求,请联系管理员和客服QQ:2753533861或QQ:619920289
您需要登录后才可以回帖 登录 | 用户注册

本版积分规则

帖子推荐:
客服咨询

QQ:2753533861

服务时间 9:00-22:00

快速回复 返回顶部 返回列表