uniGUI之換膚(17)

 在MainModule里  Design 模式

1]RecallLastTheme 設為True

2]Theme選一個皮膚

總共有

classic
gray
crisp
neptune
triton
triton.modified
aria
graphite

8個默認皮膚

---

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;

 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。 總說我字少。