
MultiLang
hnxxcxg
这个作者很懒,什么都没留下…
展开
-
cnpack多国语言控件帮助
<br />CnPack多语组件是CnPack组件包中的一个重要组成部分,主要用来用来实现多语言界面。它们虽未组成可安装的独立组件包,但它们功能相对独立,在组件板上独占一页,和其他组件关联不大。<br /> <br />1、 最简单的多语组件的使用步骤<br />1. 建立一空工程,拖放一些可视化组件在上面。保存。<br />2. 拖一TCnHashLangFileStorage,添加一语言条目。<br />3. 拖一TCnLangMgr,Lang转载 2010-12-08 15:52:00 · 569 阅读 · 0 评论 -
编码转换 unicode gbk big5
<br />function UnicodeEncode(Str:string;CodePage:integer):WideString;<br />var<br /> Len:integer;<br />begin<br /> Len:=Length(Str)+1;<br /> SetLength(Result,Len);<br /> Len:=MultiByteToWideChar(CodePage,0,PChar(Str),-1,PWideChar(Result),Len);<br /> S转载 2011-01-04 14:30:00 · 376 阅读 · 0 评论 -
利用INI文件实现界面无闪烁多语言切换
越来越多的程序使用了多国语言切换,虽然DELPHI自带多语言包的添加和配置,但是那种方法在切换语言时界面会出现闪烁,而且实现起来很麻烦,这里我介绍给大家的是利用INI文件来读取界面的语种文字,用这种方法,不但简单易行,而且在切换的时候不会出现界面的闪烁。 我们从一个例子出发,看看怎么实现语言的切换。首先建立一个新工程。放置如下组件: MainMenu1: TMainMenu; File1: TMenuItem; Exit1: TMenuItem; Label1: TLabel;原创 2011-01-02 21:14:00 · 511 阅读 · 0 评论 -
哈希表1
<br />unit Unit1;<br /><br />interface<br /><br />uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, StdCtrls;<br /><br />type<br /> TForm1 = class(TForm)<br /> Button1: TButton;<br /> Button2: TBu转载 2011-01-03 19:26:00 · 293 阅读 · 0 评论 -
操作INI文件
<br />一、有必要了解 INI 文件的结构:<br />;注释 <br />[小节名] <br />关键字=值<br />...<br />INI文件允许有多个小节,每个小节又允许有多个关键字,“=”后面是该关键字的值。 <br />值的类型有三种:字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号,布尔真值用1表示,布尔假值用0表示。<br />注释以分号“;”开头。<br /><br />二、定义 <br />1、在Interface的Uses节增加IniFiles;<br />2、在转载 2011-01-03 19:46:00 · 217 阅读 · 0 评论 -
使用全局哈希表实现字符串变量的多国语言
<br />1.创建一个全局的HASH表<br />initialization<br /> g_hash := THashedStringList.Create;<br />finalization<br /> FreeAndNil(g_hash);<br /> <br />2.往全局HASH表里面写入 INI文件的指定小节(字符串定义集中放在一个小节里面)读取到的所有行,每次更选择语言以后都要执行此操作。<br />ini.ReadSectionValues('messages', g_hash);原创 2011-01-03 21:23:00 · 384 阅读 · 0 评论 -
uLanguage.pas
<br />//author: cxg<br />{ For example :<br />procedure TForm1.ComboBox1Change(Sender: TObject);<br />begin<br /> SetActiveLanguage(ComboBox1.Text);<br />end;<br />procedure TForm1.FormCreate(Sender: TObject);<br />begin<br /> ComboBox1.Items.AddStrings原创 2011-02-04 13:29:00 · 488 阅读 · 0 评论