Delphi – 第 12 頁 – Levin's Blog-林壽山的c# .net奇幻旅程

Delphi XE7 更改編輯器配色保護眼睛

程式設計師除了是腦力密集的行業外，也是眼睛很吃緊的！
尤其是一天盯著編輯器十來個小時coding，傳統的白底黑字加上密密麻麻的原始碼真的是一大負擔。
所以常拿到編輯器後，第一件事就是更改配色、字型及大小。

一、進入　Tools -> Options…

二、點選Editor Options -> Color 可以看到　Defaults的配色是白底

三、壽山自己習慣是把 Color SpeedSetting下拉成　Twilight，另外會把 Element中的Comment(備註），從綠色改成Fuchsia（桃紅）

四、接下來點選　左邊的Editor Options 中的Display。預設的字型是 Courier New，大小是１０

五、壽山會把字型改成 Adobe釋出的Source Code Pro字型(下載網址 https://github.com/adobe-fonts/source-code-pro)，並把大小改成12。

當然你也可以選自己喜歡的字型，原則上是

1 文字距離等寬

2 1、I(i大寫)、l(L小寫)分得出來

3 符號看得清楚

六、改完之後就感覺好一點了，當然你也可以改成自己喜愛的配色、字型跟大小。寫程式應該是件快樂的事!

撰寫Ado(dbgo)程式時，常常會做設定ODBC動作，那程式執行時期可以動態指定嗎?答案是可以的！
[pascal]
procedure TForm1.BtnCreateODBCClick(Sender: TObject);
var
AdoConStr : WideString;
begin
AdoConStr := PromptDataSource(self.Handle,AdoConnection1.ConnectionString);
AdoConnection1.ConnectionString := AdoConStr;
end;
[/pascal]

Delphi XE開發原生iOS/Android元件

D.P.F Delphi iOS/Android Native Components 是二套 open source 的元件集，讓開發者可以開發符合iOS/Android原生元件，不過缺點是就會失去了Delphi XE系列跨Android/iOS的原意。

D.P.F Delphi iOS Native Components

http://sourceforge.net/projects/dpfdelphiios/

D.P.F Delphi Android Native Components

http://sourceforge.net/projects/dpfdelphiandroid/

Delphi XE7 Java2OP終於release出來了

一早就收到廖啟甫大哥的訊息，把Java2OP的release資訊pass給我。
目前XE7可以將jar檔加入在android專案下的library目錄下，但需要將jar 轉換成 .pas bridge file，然後加入project才可以正確使用。以前要將jar轉pas需要一些第三方solution(如:Java2Pas….)，而XE7貼心的將這個需求透過官方完成了。

Java2OP下載
http://cc.embarcadero.com/item/30007
Java2OP說明
http://docwiki.embarcadero.com/RADStudio/XE7/en/Java2OP.exe,_the_Native_Bridge_File_Generator_for_Android

Delphi BDE逐漸走入歷史

Delphi XE7版本release之後，發現一直跟隨Delphi很久的BDE(Borland Database Engine)並沒有隨著版本發佈。
而是需要註冊使用者才能自行下載，BDE是Borland在16位元環境下一直叱吒資料庫開發界的利器，不過隨著Embarcadero將Delphi推至行動開發，更不斷精進新版本的dbExpress以及FireDAC技術。
看來應該是Embarcadero準備放手BDE的時候了！

相關連結：
ID: 29997, BDE Installer for RAD Studio, Delphi, C++Builder XE7
http://cc.embarcadero.com/item/29997

Delphi FastReport欄位運算

FastReport欄位判斷
[IIF( >= 60,’合格’,’不合格’)]

Band顯示
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
memo2.text := ‘1234’;
If >= 60 then begin
masterdata1.visible := True;
Memo2.Color := clblue;
Memo2.text := ‘OK’;
end else begin
masterdata1.visible := False;
Memo2.Color := clred;
Memo2.text := ‘Not OK’;
end;
end;