日期: 2013 年 4 月 26 日

台灣鐵路通Taiwan Railway – 考驗對車站的熟悉度

 

您是鐵道迷嗎？自認對台灣鐵路瞭若指掌嗎？那您可以來玩玩這款「台灣鐵路通Taiwan Railway」遊戲。

設計師魏巍 一手包辦了遊戲中的圖片、程式及音效，連宣傳影片都是自己拍攝的，可見對於APP的用心程度。

20130426-154702.jpg

遊戲的玩法也相當簡單，在畫面中會出現現在地及目的地二個提示。然後以手指拖拉列車往正確的方向即可！

20130426-154632.jpg

20130426-154742.jpg

所以遊戲的前提是，您要自認熟悉各個站名的先後順序，或是在遊戲中有相關的資訊供參考。

20130426-154725.jpg

下載網址：

iOS: https://itunes.apple.com/tw/app/id624473652?mt=8
Android: https://play.google.com/store/apps/details?id=com.appsgaga.game.taiwanrailway

[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