"Delphi之完全漢語"終結(jié)版

2019-11-18 19:00:31

字體：大中小

供稿：網(wǎng)友

"Delphi之完全漢語"終結(jié)版(已于“家用電腦”37期發(fā)表，新瓶舊醋請(qǐng)諒解！)

西安梁明

--------------------------------------------------------------------------------

本人在寫此段文章前曾有這樣一個(gè)骯臟的念頭:絕對(duì)不能把這一招"漏給"別人!但是,良心馬上告訴我,絕對(duì)不能有如此的想法!于是立刻把她寫下來,既算是對(duì)上次那篇"Delphi之完全漢語"文章的補(bǔ)充,又算是對(duì)自己良心的報(bào)答吧!

現(xiàn)在切入正題:大家知道,我們?cè)谔幚鞤elphi自身的消息時(shí)(我這里指的是包括Delphi系統(tǒng)對(duì)話框、異常提示等所有來自Delphi自身的消息),一般采取的辦法是"走在Delphi的前面",或是屏蔽掉系統(tǒng)的作用,從而用我們自己的方式處理,以期達(dá)到為用戶提供純漢語環(huán)境的目的.然而,這一切只能憑借程序員的已有經(jīng)驗(yàn)來主觀預(yù)測(cè)!由于系統(tǒng)的復(fù)雜性以及我們自身的水平所限,這樣作的結(jié)果難免會(huì)顧此失彼,也許隨時(shí)可能發(fā)生的問題都處理得不徹底甚至根本就未處理.試想:在用戶使用過程中冒出一些英文的提示,你的程序的"檔次"是不是將大打折扣?

因此,我們還必須去尋找更加理想更加徹底的方法,至少,當(dāng)讓程序出現(xiàn)Bug時(shí),普通用戶能看懂提示(可不是讓你為所欲為與噢).幸好,經(jīng)過筆者這一陣的反復(fù)試驗(yàn),已經(jīng)找到另一個(gè)萬全之策.下面就請(qǐng)聽我一一道來(僅限于你的Delphi版本有VCL的源代碼--即專業(yè)版或企業(yè)版):

0.備份Delphi的VCL源代碼(所在目錄一般為"X:PRogram FilesBorlandDelphi4SourceVcl").當(dāng)然,根據(jù)需要,僅備份我們需要修改的幾個(gè)文件也可;

1.在Delphi環(huán)境下打開VCL目錄下的BdeConst.pas,Consts.pas,BdeConst.pas,DbConsts.pas,midconst.pas,mxConsts.pas,OleConst.pas,WebConst.pas等單元文件,這些單元文件定
義了Delphi用到的常量;

2.把Delphi自己定義的字符串常量"翻譯"成我們偉大的母語--漢語;

3."翻譯"工作完成后,按原文件名保存;

4.現(xiàn)在就來試試我們的成果,新建一個(gè)工程,故意編寫一些會(huì)出現(xiàn)系統(tǒng)提示的代碼,并在編譯前,到Delphi的Project Options對(duì)話框的Directories/Conditionals頁的Search Path選項(xiàng)下,添加搜索路徑(也即剛才我們修改常量單元所在的目錄),確定后退出;

5.就觀看你的英語翻譯水平吧!

注意:
①如果你的版本為Delphi 3的話,以上的路徑作相應(yīng)的變化,且Project Options對(duì)話框的Directories/Conditionals為Directories;
②對(duì)編譯條件的該動(dòng)只對(duì)此工程有效,新建工程后需重新設(shè)置.如果你希望一勞永逸的話,請(qǐng)隨我來:
運(yùn)行Windows注冊(cè)表編輯程序Regedit.exe,打開HKEY_CURRENT_USER->Software->Borland->Delphi->4.0->Library,在其中一為"Search path"的串值中加入"$(DELPHI)SourceVCL".Ok,目的達(dá)到!

以下是筆者修改Consts.pas單元文件中函數(shù)MessageDlg的常量后用該函數(shù)發(fā)送的消息.這次,我們看到的再也不是半"英"半陽的消息框了.怎么樣,夠靚吧?
...
Begin
MessageDlg('感覺如何?'+#13#10#13#10+
'我這里即是把"SMsgDlgInformation"翻譯為'消息';'+#13#10+
'把"SOKButton"翻譯為'確定'而得到的結(jié)果!',
mtInformation,[mbok],0);
End;
...
****此處插入圖4****

上面的動(dòng)作是不是太老實(shí)了一點(diǎn)?!其實(shí),我們完全可以根據(jù)自己的意愿來定制這些常量(只要Inprise同意),使其達(dá)到一種的特殊效果,比如,我們可以將"SMsgDlgInformation"翻譯為你的軟件標(biāo)題或自己的工作室名稱等等,如此一來,你的非凡個(gè)性將展示無遺!

有關(guān)Delphi"完全漢語"方面的經(jīng)驗(yàn)、技巧筆者就打算介紹這么多(等我手上的這兩個(gè)程序有交待后我會(huì)把這一整套東東放在我的個(gè)人主頁上,到時(shí)請(qǐng)去Down吧).當(dāng)然,冠以"完全漢語"實(shí)令我臉紅,但本人多么希望Inprise公司早點(diǎn)結(jié)束我們"羨慕"VB程序員的時(shí)代!

現(xiàn)在還有一些問題,例如:Delphi的環(huán)境是英文的,報(bào)表預(yù)覽的提示及按鈕也是英文的等等.對(duì)于第一個(gè)問題,我個(gè)人認(rèn)為倒沒有多大必要,因?yàn)闆]有哪一個(gè)程序員連菜單都看不懂的,我們努力的目標(biāo)是用戶;對(duì)于第二個(gè)問題也有辦法解決,在此本不應(yīng)該涉及此話題,但我在網(wǎng)上看到有很多人在問這個(gè)問題,因此也在此略談一下,作為這個(gè)話題的結(jié)尾吧:

①按照要求制訂好QuickRep的內(nèi)容;
②仿照QuickRep的預(yù)覽模式或自己定制QRPreview;
③在QuickRep的OnPreview事件中將QuickRep的QRPrinter賦值給QRPreview的QRPrinter
(如QRPreview1.QRPrinter:=Quickrep1.QRPrinter;)即可讓QRPreview取代QuickRep
的預(yù)覽模式了.

版主：梁明
日期：1999-03-01
E-mail：[email protected]

上一篇：Delphi開發(fā)經(jīng)驗(yàn)四則

下一篇：用Delphi開發(fā)屏幕保護(hù)預(yù)覽程序