標籤: 風格

[Delphi XE3]輕鬆更改程式外觀

以前在撰寫程式時，最討厭的就是醜醜的外觀，如果不是自己畫，就是得找第三方元件(像BusinessSkinForm)來解決。
自從Delphi XE2就開始有的功能，跟大家分享一下如何讓程式看起來不再這麼醜。
1.靜態更改

．Project→Options開啟Project Options選項，在Application→Appearance的Custom Styles就是可以更改介面的選項

Delphi_XE3_Appearance1

．如果不清楚長什麼樣子時，可以點選任一名稱反白後，再點旁邊的Preview就可以預覽

Style

．勾選要變成的Style後，再到Default Style下拉你要的Style按OK即可。Default_Style

2.動態程式更改

．依照靜態更改方式，勾選你想要呈現的STYLE。

．增加 uses Vcl.Themes

[delphi]
uses Vcl.Themes;
[/delphi]

．讀入風格檔

[delphi]
procedure TForm1.Button1Click(Sender: TObject);
Var
StyleName : string;
begin
ListBox1.Items.Clear;
for StyleName in TStyleManager.StyleNames do
if ListBox1.Items.IndexOf(Name)=-1 then
ListBox1.Items.Add(StyleName);
end;
[/delphi]

．設定風格檔

[delphi]
procedure TForm1.Button2Click(Sender: TObject);
begin
if ListBox1.ItemIndex>=0 then
TStyleManager.SetStyle(ListBox1.Items[ListBox1.ItemIndex]);;
end;
[/delphi]

Demo

範例程式下載 GitHub https://github.com/superlevin/DelphiXE3_SetStyle

3.自製風格．Tools→Bitmap Style Designer
bitmap_style_designer
預設的Style檔案位置在：C:＼Users＼Public＼Documents＼RAD Studio＼10.0＼Styles