作者: 林壽山

林壽山目前任職於軟體公司研究開發部門主管，主要採用.net core/.net 5/6 開發，收銀機pos系統開發，第三方支付設計（綠界、馬來西亞epay/happypay、台新one碼)，金流設計，行動支付設計(悠遊卡/一卡通)，支付寶，微信，街口支付，信用卡機(聯合信用卡)，擅長PHP網頁設計(CodeIgniter、Laravel)框架、Delphi程式設計、資料庫設計、C# WinForm/WebForm程式設計、ASP.net MVC、LINE串接、API串接設計

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

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

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

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

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

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]

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

3.自製風格．Tools→Bitmap Style Designer

預設的Style檔案位置在：C:＼Users＼Public＼Documents＼RAD Studio＼10.0＼Styles

[Delphi XE3] 取得螢幕解析度

[delphi]
uses Winapi.Windows;

procedure TMainForm.Button1Click(Sender: TObject);
var
ScreenHorizontal :integer;
ScreenVertical:integer;
begin
ScreenPixelX:= GetDeviceCaps(GetDC(Application.Handle),HORZRES); // Horizontal width in pixels
ScreenPixelY:= GetDeviceCaps(GetDC(Application.Handle),VERTRES); // Vertical height in pixels
// 取得螢幕解析度
ShowMessage(IntToStr(ScreenHorizontal)+’ X ‘+ IntToStr(ScreenVertical));
end;
[/delphi]

[Delphi XE3]ESC/POS範例

找遍了台灣的資料，對於POS收銀系統硬體相關的程式非常的少。

只好自己Try & Error一番，順便也將結果告訴一下大家囉～希望大家不要再為了它而浪費了不少時間。

很簡單的示範如何利用Delphi XE3及SPComm 元件來印出收據、切紙並打開錢櫃。

[sourcecode language=”delphi”]
procedure TForm2.Button1Click(Sender: TObject);
var
s:Ansistring;
begin
Comm1.CommName := ComboBox1.Text;
Try
Comm1.StartComm;
//初始化
s:= chr(27) + chr(64);
Comm1.WriteCommData(PAnsiChar(s),Length(s));
// 印出目前日期、時間並換行
s:= DateToStr(now)+’ ‘+TimeToStr(now)+ chr(10)+ chr(13) ;
Comm1.WriteCommData(PAnsiChar(s),Length(s));
s:= chr(27) + chr(100) + chr(2);
Comm1.WriteCommData(PAnsiChar(s),Length(s));
s:= chr(29) + chr(33) + chr(17) ;
Comm1.WriteCommData(PAnsiChar(s),Length(s));
s:= ‘Printer – Testing Success’+ chr(10);
Comm1.WriteCommData(PAnsiChar(s),Length(s));
s:= chr(29) + chr(33) + chr(0) ;
Comm1.WriteCommData(PAnsiChar(s),Length(s));
s:= chr(27) + chr(100) + chr(5);
Comm1.WriteCommData(PAnsiChar(s),Length(s));
// 切紙
s := Chr(29) + Chr(86) + Chr(0) ;
Comm1.WriteCommData(PAnsiChar(s),Length(s));
//打開錢櫃
s := chr(27) + chr(112) + chr(0) + chr(50) + chr(200) ;
Comm1.WriteCommData(PAnsiChar(s),Length(s));
Except
on E: Exception do Begin
ShowMessage(‘Open ComPort Error!’+#10#13+’Error MSG:’+E.Message);
End;
End;
end;
[/sourcecode]

[Delphi XE3]如何清除Welcome Page中的Recently Opened Projects

Delphi 有記住打開過的專案的功能，在下一次開啟IDE時會顯示在Welcome Page中，那要如何清除呢？

1.File→Reopen→Properties

可以設定~

．Number of Projects →記住幾個開過的專案(預設10個)

．Number of files→記住幾個開過的檔案(預設15個)

．Reopen Items就是顯示在Welcome Page的內容，可以點選後用Delete或直接Clear

2.進入登錄編輯程式刪除

HKEY_CURRENT_USER\Software\Embarcadero\BDS\10.0\Closed Projects

3.寫程式刪除

uses 加入　System.Win.Registry；

[delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
iCount : Integer;
Reg     : TRegistry;
sList   : TStrings;
begin
sList := TStringList.Create;
Reg   := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey(‘\Software\Embarcadero\BDS\10.0\Closed Projects’, True) then
Reg.GetValueNames(sList);
if sList.Count > 0 then begin
for iCount := 0 to Pred(sList.Count) do
Reg.DeleteValue(sList[icount]);
end else
MessageDlg(‘No registry items to be cleaned at this time.’,
mtInformation, [mbOk], 0);
finally
sList.Free;
Reg.Free;
end;
end;
[/delphi]

前端攻城師不可錯過的網站－前端工程開發實務

擁有非常深厚功力的啊嗚(蔣定宇)，將他一系列「Web前端程式開發實務」的講議及資料無私的分享出來，目的是為了讓F2E(Front -End Engineer)的產業能更加成長。這真的是佛心來的，因為Joseph在Yahoo!期間就擔任多年的前端工程師，後期更是YDN的傳教士，協助推廣YUI。目前也是miiicasa的前端工程部門主管，所以對前端工程真的是有相當的專業在。推薦給各位！

網站: http://f2eclass.com/
投影片: http://www.slideshare.net/josephj/presentations
原始碼 : https://github.com/josephj/f2e-class/tree/master/slide

verlet-js蠻炫的JS物理引擎

verlet-js是一套開放原始碼的JavaScript物理引擎，擁有粒子系統以及碰撞、關連、拖拉、模擬等特性。

透過Verlet也可以做出 box2d 效果的遊戲唷！在官方網站上，提供了幾個範例程式可以更瞭解物理引擎的用法。

官方網站：http://subprotocol.com/verlet-js/

GitHub：https://github.com/subprotocol/verlet-js

[Delphi]Splash-Screen的寫法

Delphi的資源似乎變得很少了！不過自從看到XE3似乎有些長進後，或許大家可以嘗試回鍋來做開發也不錯，畢竟Delphi在開發商用軟體的速度真的蠻快速的 :)。後續除了一些行動裝置開發、網頁開發的分享，也來做一下Delphi開發的分享好了！

Splash Screen是什麼？就是打開程式時，會先顯示個幾秒的圖片，大多是產品名稱、公司Logo這類的東西。在Delphi做法也很簡單：

1. File → New → VCL Form – Delphi 新增一個　Form

2. 開啟 Project → View Source　就可以看到 Project Source。
[delphi]
program Project1;

uses
Vcl.Forms,
Unit1 in ‘Unit1.pas’ {Form1},
Unit2 in ‘Unit2.pas’ {Form2};

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.
[/delphi]
3. 改成如下就可以！
[delphi]
program Project1;

uses
Vcl.Forms,
Unit1 in ‘Unit1.pas’ {Form1},
Unit2 in ‘Unit2.pas’ {Form2};

{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
try
Form2:=TForm2.create(application);
Form2.show;
Form2.Update;
Application.CreateForm(TForm1, Form1);
finally
Form2.Free;
end;
Application.Run;
end.
[/delphi]
4. 如此一來，如果專案變大後，一方面在程式初始化時，可以Show出產品畫面外，避免看起來好像是程式當掉的冏境。也可以讓程式看起來更專業些XD

控制的部份也分為二種：

1.RS-232介面錢櫃

RS-232介面的錢櫃控制很簡單，只要隨便向RS-232丟訊號即可。

或是在DOS模式（開始→執行 cmd)，輸入 copy con com1此類的指令就可以打開了！

2.RJ11/RJ12介面錢櫃

而RJ11/RJ12介面的錢櫃，因為需要先送指令到印表機後，再由印表機發出開錢櫃的指令，相對之下安全性就較高，也可以從印表機的設定中，設定列印前（後）開啟錢櫃。較高階的錢櫃也可以偵測是開啟或關閉的。

作者: 林壽山

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

[Delphi XE3] 取得螢幕解析度

[Delphi XE3]ESC/POS範例