cnpack多語(yǔ)組件幫助部門CnPack開(kāi)發(fā)不可視管理員

CnPack多語(yǔ)組件幫助文檔作者： )CnPack開(kāi)發(fā)組不可視組件開(kāi)發(fā)組管理員類別：幫助文檔V2006.09.28一、引言1 CnPackCnPack組件包中的一個(gè)重要組成部分，主要用來(lái)用來(lái)實(shí)現(xiàn)多語(yǔ)言界面。不大。本文檔提供了CnPack多語(yǔ)組件包中的幾個(gè)組件的詳細(xì)幫助信息。2 CnPack組件包一起安裝。3 二、TCnLangMgr組件1 TCnLangMgr是到組件板的多語(yǔ)管理器組件，主要用來(lái)提供翻譯窗體界面等的功能。它能連接到一多語(yǔ)組件。設(shè)置多語(yǔ)管理器的LanguageIndex可觸發(fā)當(dāng)前語(yǔ)言的改變，多語(yǔ)管理器可將當(dāng)前語(yǔ)言改變的傳入多語(yǔ)組件，待多語(yǔ)組件裝載當(dāng)前語(yǔ)言條目成功后，從多語(yǔ)組件中當(dāng)前語(yǔ)言的條目并進(jìn)行窗體界面等的翻譯。同時(shí)多語(yǔ)管理器還提供一些屬性、方法和用來(lái)進(jìn)行其他的翻譯控制。TagTag2001時(shí)，翻譯中將忽略此組件以及2 3 propertyLanguageStorage:propertyCurrentLanguageIndex:當(dāng)前語(yǔ)言號(hào)索引，影響到整個(gè)程序的語(yǔ)言設(shè)置。語(yǔ)言號(hào)含義由組件的條目?jī)?nèi)容決propertyAutoTranslate:布爾屬性，控制是否在當(dāng)前語(yǔ)言號(hào)改變后自動(dòng)翻譯已經(jīng)存在的窗體和其他內(nèi)容。可讀寫。propertyTranslationMode:TCnTranslationMode;TCnTranslationMode=( ponents,tmByStrings);翻譯模式，控制根據(jù)窗體和控件等遍歷還是根據(jù)翻譯字符串內(nèi)容遍歷，前者是遞規(guī)搜索界面字符串并去多語(yǔ)組件中尋找翻譯條目，后者是遍歷多語(yǔ)組件中的字符串條目并定位到界面進(jìn)行翻譯。默認(rèn)為前者?？勺x寫。propertyAutoTransOptions:TCnAutoTransOption;TCnAutoTransOption=(atApplication,atForms,atDataModules);TCnAutoTransOptions=setofTCnAutoTransOption;自動(dòng)翻譯時(shí)的選項(xiàng)，當(dāng)自動(dòng)翻譯屬性AutoTranslateTrue時(shí)，控制是否翻譯現(xiàn)存的窗體、數(shù)據(jù)模塊和Application實(shí)例，默認(rèn)三者都參與翻譯?？勺x寫。property istItem:布爾屬性，控制翻譯過(guò)程中是否翻譯ListView中的ListItem，默認(rèn)為TruepropertyTranslateTreeNode:布爾屬性，控制翻譯過(guò)程中是否翻譯TreeView中的TreeNode，默認(rèn)為True?？勺x寫。propertyUseDefaultFont:布爾屬性，控制是否翻譯完窗體后使用DefaultFont屬性來(lái)設(shè)置窗體字體。默認(rèn)為True。可讀寫。propertyTranslateOtherFont:布爾屬性，控制翻譯過(guò)程中是否將除TControl.Font外的其他的Font屬性翻譯成字符串。默認(rèn)為False?？勺x寫。propertyIgnoreAction:布爾屬性，控制翻譯過(guò)程中是否翻譯Action屬性不為空的控件的CaptionHint屬性。因?yàn)檫B接了Action的組件自身的CaptionHint等屬性，通常都由對(duì)應(yīng)的Action控制，不需要單獨(dú)設(shè)置，所以此屬性默認(rèn)為True?？勺x寫。4 functionTranslate(Src:string):string;功能：根據(jù)當(dāng)前語(yǔ)言和字符串標(biāo)識(shí)從多語(yǔ)組件中獲得翻譯的字符串返回值：翻譯的字符串值，無(wú)多語(yǔ)組件或當(dāng)前語(yǔ)言條目中無(wú)此標(biāo)識(shí)則返回空。參數(shù)：Src:string;functionTranslateString(Src:string):string;功能：根據(jù)當(dāng)前語(yǔ)言和字符串標(biāo)識(shí)從多語(yǔ)組件中獲得翻譯的字符串返回值：翻譯的字符串值，無(wú)多語(yǔ)組件或當(dāng)前語(yǔ)言條目中無(wú)此標(biāo)識(shí)則返回空。參數(shù)：Src:string;functionTranslateStrFmt(Src:string;Args:arrayofconst):string;功能：根據(jù)當(dāng)前語(yǔ)言和字符串標(biāo)識(shí)從多語(yǔ)組件中獲得翻譯字符串，然后將此字符串作為格式字符串，將后續(xù)參數(shù)填入后返回。返回值：翻譯并格式化后的字符串值，無(wú)多語(yǔ)組件或當(dāng)前語(yǔ)言條目中無(wú)此標(biāo)識(shí)則返回空。參數(shù)：Src:string;Args:arrayofconst;FormatFormat功能：遞規(guī)翻譯一個(gè)Form及其子對(duì)象和屬性。參數(shù)：AForm:TCustomForm; ponent(AComponent:constBaseName:string=功能：翻譯一個(gè)組件及其子對(duì)象屬性。AComponent:TComponent;constBaseNamestring;procedureAddChangeNotifier(Notify:TNotifyEvent);TNotifyEvent=procedure(Sender:TObject)ofobject;Notify:TNotifyEvent;待添加的處理函數(shù)，也就是方法名procedureRemoveChangeNotifier(Notify:TNotifyEvent);TNotifyEvent=procedure(Sender:TObject)ofobject;功能：刪除已經(jīng)增加過(guò)的語(yǔ)言改變時(shí)后的通知。刪除該后，語(yǔ)言改變后此不再Notify:TNotifyEvent;待刪除的處理函數(shù)，也就是方法名5 propertyOnStorageChanged:TNotifyEvent;TNotifyEventprocedure(SenderTObjectofobject;組件屬性LanguageStorage改變時(shí)觸發(fā)。參數(shù)：SenderTObject;propertyOnLanguageChanged:TNotifyEvent;TNotifyEventprocedure(SenderTObjectofobject;當(dāng)前語(yǔ)言索引號(hào)改變后觸發(fā)。參數(shù)：SenderTObject;propertyOnTranslateObject:TCnTranslateObjectEvent;TCnTranslateObjectEvent=procedure(AObject:TObject;varTranslate:Boolean)of開(kāi)始翻譯一對(duì)象時(shí)觸發(fā)，用戶可控制是否翻譯此對(duì)象。注意此僅當(dāng)翻譯模式是以控件為根據(jù)（ ponents）時(shí)觸發(fā)。參數(shù)：AObjectTObject;varTranslateBoolean;propertyOnTranslateObjectProperty:TCnTranslateObjectPropertyEvent;TCnTranslateObjectPropertyEvent=procedure(AObject:TObject;constPropName:string;varTranslate:Boolean)of開(kāi)始翻譯一對(duì)象的某個(gè)屬性時(shí)觸發(fā)，用戶可控制是否翻譯此對(duì)象的此屬性。參數(shù)：AObjectTObject;constPropNamestring;varTranslateBoolean;6 functionCnLanguageManager:procedureCreaanguageManager(AOwnerTComponentnil);AOwnerTComponent;OwnerprocedureTranslateStr(varSrcStr:string;constIDStr:SrcStr保持不變。varSrcStr:string;constIDStr:string;procedureTranslateStrArray(varStrArray:arrayofstring;constIDStr加數(shù)組下標(biāo)的形式。varStrArray:arrayofstring;constIDStr:string;7 propertyCurrentLanguageIndex:此屬性的屬性編輯器能下拉當(dāng)前組件的語(yǔ)言條目ID和名稱等供直觀選擇，如無(wú)多語(yǔ)三、TCnLangTranslator組件1 2 3 4 5 6 窗體翻譯管理器上部是。左邊的樹(shù)狀結(jié)構(gòu)顯了當(dāng)前窗體上的多語(yǔ)組件及其語(yǔ)言條（黑體的語(yǔ)組件示它是語(yǔ)管理所連接語(yǔ) 組件黑體的言條目示是當(dāng)語(yǔ)言string屬性。制到“翻譯后文本”中。注意“原文”是不保存到多語(yǔ)組件中的。保存：將當(dāng)前翻譯欄目中的字符串保存到多語(yǔ)組件中。切換左邊語(yǔ)言前請(qǐng)注意是否保存當(dāng)四、TCnCustomLangStorage基類1 供了一些基礎(chǔ)的屬性方法等供多語(yǔ)管理器，包括、加載多語(yǔ)條目，改變當(dāng)前語(yǔ)言等，同時(shí)2 CnLangStorage.pas多語(yǔ)基類的實(shí)現(xiàn)單元CnLangEditors.pas3 propertyCurrentLanguage:propertyCurrentLanguageIndex:propertyDefaultFont:propertyDefaultLanguageID:IDpropertyFontInited:propertyLanguageCount:propertyLanguages:4 procedureAddLanguage(ALanguageID:IDALanguageID參數(shù)。ALanguageID:LongWord;IDfunctionGetString(Name:string;varValue:string):Boolean;;:;orm1CaptionvarValuestring;procedureGetNamesList(List:TStrings); ListTStrings;Strings中，Strings中原有的procedureClearCurrentLanguage; functionLoadCurrentLanguage:Boolean; 功能：抽象方法，可以是從介質(zhì)中載入當(dāng)前語(yǔ)言條目，為翻譯字串做準(zhǔn)備。子類可視需要procedureSaveCurrentLanguage; procedureSetString(Name,Value:string); :;orm1CaptionValuestring;1function tor: tor;功能：抽象方法，獲得一條目的遍歷器接口實(shí)例，如果子類不支持按條目遍歷，則必須返回nil。5 propertyOnLanguageChanged:ofSender:TObject;多語(yǔ)組件本身ALanguageIndex:Integer;propertyOnLanguageChanging:TLanguageChangingEvent;TLanguageChangingEvent=procedure(Sender:TObject;ALanguageIndex:Integer;varAllowChange:Boolean)ofSender:TObject;多語(yǔ)組件本身ALanguageIndex:Integer;次改變被，當(dāng)前語(yǔ)言號(hào)保持不變。6 propertyLanguages:雙擊多語(yǔ)組件，可彈出Languages屬性的Collection編輯器供編輯語(yǔ)言條目五、TCnCustomLangFileStorage基類1 TCnCustomLangFileStorage是所有基于文件方式的多語(yǔ)組件的基礎(chǔ)類，其自身并 下的“語(yǔ)言ID” 下比如英語(yǔ)的存可于1033子 下不同語(yǔ)言的語(yǔ)言文件的文件名相同， 2 CnLangStorage.pasCnLangEditors.pas3 propertyStorageMode:TCnStorageMode;TCnStorageMode=(smByFile,smByDirectory);該多語(yǔ)組件的文件類型按同 下多文件還是不 下的同一文件名propertyLanguagePath:所有語(yǔ)言文件的統(tǒng)一 “C:\LangpropertyFileName:多語(yǔ)文件 propertyAutoDetect:LanguagePath改變時(shí)是否自動(dòng)搜索檢測(cè) 4 functionGetCurrentLanguageFileName:string;classfunctionGetLanguageFileExt:string;functionIsLanguageFile(constFileName:string):Boolean;;1.constFileNamestring;5 6 propertyLanguagePath: 六、TCnHashLangFileStorage組件1 TCnHashLangFileStorage是到組件板上的、基于TXT文件和Hash方式管理多語(yǔ)條目的多語(yǔ)組件，它了HashMap來(lái)管理和搜索多語(yǔ)條目，因此具有較快的速度。2 3 propertyListLength:propertyIncSize:4 5 七、TCnIniLangFileStorage組件1 TCnIniLangFileStorage是到組件板上的、基于INI文件的多語(yǔ)組件，它繼承自TCnHashLangFileStorageHashMap來(lái)管理?xiàng)l目，而外部接口使用的是VCL中封裝的INI讀寫過(guò)程，因此在工程稍大時(shí)讀寫效率稍許低下一些。TCnIniLangFileStorage的INI格式規(guī)定如下：以感嘆號(hào)!開(kāi)頭的內(nèi)部條目于[!Global]符串條目自成一節(jié)，節(jié)名為窗體類名或DataModule類名。2 3 4 5 八、 LanguageItem1 LanguageItem用于在多語(yǔ)組件中管理語(yǔ)言條目，為從此兩類的實(shí)例。前者的屬性方法等和普通Collection類似，因此此處不贅述，只列出TCnLanguageItem類的各項(xiàng)信息。2 CnLangCollection.pas3 propertyAbbreviation:propertyAuthor:property :propertyLanguageID:該語(yǔ)言的IDpropertyLanguageName:propertyLanguageFileName:可用的保存文件名供多語(yǔ)言組件使用，以文件方式時(shí)其結(jié)果有效?？勺x寫。在設(shè)propertyLanguageDirName: 被自動(dòng)設(shè)置為該語(yǔ)言的LanguageID。propertyD