下面是一个通用过程,根据INI文件中的资源改变界面语言(仅Caption和Hint属性)
参数一:为一Component,一般为TForm,此过程将循环列举其子Component并查找是否具有相关属性,
有的话则从INI文件读取信息并设置属性
参数二:为INI文件全名
//引用TypInfo,IniFiles/TntInifiles单元
//声明的资源,默认的,防止变量出现空值
resourcestring
S_Menu = 'Menu';
S_AppName = 'Window View Tool';
S_Null = '(Null)';
S_About = '&About...';
S_Warning = 'Warning';
S_Confirm = 'Confirm';
S_Error = 'Error';
S_Information = 'Information';
//声明的常量
const
SCaption = 'Caption';
SHint = 'Hint';
SIniAppName = 'Window View Tools';
SIniLanguage = 'Language';
SLanguageName = 'LanguageName';
{-----------------------------------------------------------------------------
Procedure: LoadLanguage
Author: ysai
Date: 2003-7-20
Arguments: AComponent:TComponent;AFileName:string=''
-----------------------------------------------------------------------------}
procedure LoadLanguage(
const AComponent : TComponent;
const AFileName : widestring = ''
);
//设置语言
function PropertyExists(
const AObject : TObject;
const APropName : wideString
):Boolean;
//判断一个属性是否存在
var
PropInfo:PPropInfo;
begin
PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);
Result:=Assigned(PropInfo);
end;
function SetStringPropertyIfExists(
const AObject : TObject;
const APropName : widestring;
const AValue : widestring
):Boolean;
//给字符串属性赋值,如果存在
var
PropInfo:PPropInfo;
begin
PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);
if Assigned(PropInfo) and
(PropInfo.PropType^.Kind in [tkString, tkLString, tkWString]) then
begin
SetWideStrProp(AObject,PropInfo,AValue);
Result:=True;
end else
Result:=False;
end;
function GetStringProperty(
const AObject : TObject;
const APropName : widestring
):wideString;
//取得字符串属性值
var
PropInfo:PPropInfo;
begin
Result := '';
PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);
if Assigned(PropInfo) and
(PropInfo^.PropType^.Kind in [tkString, tkLString, tkWString]) then
Result := GetWideStrProp(AObject,PropInfo);
end;
function SetIntegerPropertyIfExists(
const AObject : TObject;
const APropName : widestring;
const AValue : Longint
):Boolean;
//给整型属性赋值,如果存在
var
PropInfo:PPropInfo;
begin
PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);
if Assigned(PropInfo) and
(PropInfo^.PropType^.Kind = tkInteger) then
begin
SetOrdProp(AObject,PropInfo,AValue);
Result:=True;
end else
Result:=False;
end;
function GetObjectProperty(
const AObject : TObject;
const APropName : widestring
):TObject;
var
PropInfo:PPropInfo;
begin
Result := nil;
PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);
if Assigned(PropInfo) and
(PropInfo^.PropType^.Kind = tkClass) then
Result := GetObjectProp(AObject,PropInfo);
end;
var
i : Integer;
s : widestring;
FsLanguage,sFileName : widestring;
SAppName: widestring;
SMenu : widestring;
SNull : widestring;
SAbout: widestring;
SWarning : widestring;
SConfirm : widestring;
SError : widestring;
SInformation: widestring;
begin
if AFileName = '' then
sFileName :=FsLanguage //FsLanguage为默认语言文件名
else
sFileName :=AFileName;
if not FileExists(sFileName) then Exit;
with TTntIniFile.Create(sFileName) do
try
//下面为读取变量
SAppName := ReadString(SIniLanguage,'AppName',S_AppName);
SMenu := ReadString(SIniLanguage,'Menu',S_Menu);
SNull := ReadString(SIniLanguage,'Null',S_Null);
SAbout := ReadString(SIniLanguage,'About',S_About);
SWarning := ReadString(SIniLanguage,'Warning',S_Warning);
SConfirm := ReadString(SIniLanguage,'Confirm',S_Confirm);
SError := ReadString(SIniLanguage,'Error',S_Error);
SInformation := ReadString(SIniLanguage,'Information',S_Information);
//设置组件Caption
if PropertyExists(AComponent,SCaption) then
begin
s := ReadString(SIniLanguage,AComponent.Name+'.'+SCaption,'');
if s<>'' then
SetStringPropertyIfExists(AComponent,SCaption,s);
end;
//读取字体
if PropertyExists(AComponent,'Font') then
begin
s := ReadString(SIniLanguage,'FontName','');
i := ReadInteger(SIniLanguage,'FontSize',0);
if s<>'' then
SetStringPropertyIfExists(
GetObjectProperty(AComponent,'Font'),'Name',s);
if i > 0 then
SetIntegerPropertyIfExists(
GetObjectProperty(AComponent,'Font'),'Size',i);
end;
//列举所有子组件并设置属性
for i := 0 to AComponent.ComponentCount - 1 do
begin
//设置Caption
if PropertyExists(AComponent.Components[i],SCaption) then
begin
s := ReadString(SIniLanguage,AComponent.Name+'.'+
AComponent.Components[i].Name+'.'+SCaption,'');
if s<>'' then
SetStringPropertyIfExists(AComponent.Components[i],SCaption,s);
end;
//设置Hint
if PropertyExists(AComponent.Components[i],SHint) then
begin
s := ReadString(SIniLanguage,AComponent.Name+'.'+
AComponent.Components[i].Name+'.'+SHint,'');
if s = '' then //如果Hint为空,则改Hint同Caption
s := GetStringProperty(AComponent.Components[i],SCaption);
if s<>'' then
SetStringPropertyIfExists(AComponent.Components[i],SHint,s);
end;
end;
//更改默认语言文件为当前文件
FsLanguage := sFileName;
finally
Free;
end;
end;
procedure TFrmWindowView.FormShow(Sender: TObject);
begin //加载语言文件
if FileExists(ExtractFilePath(Application.exename)+'\Chinese.ini') then
LoadLanguage(FrmWindowView,ExtractFilePath(Application.exename)+'\Chinese.ini');
end;
//示例INI文件Chinese.ini 用记事本编辑ini,保存为unicode编码格式 窗口及所有控件用TntWare2.3,以方便显示Unicode字符.
[Language]
LanguageName=中文
AppName=窗口查看器
Menu=菜单
Null=(空)
About=关于(&A)...
Warning=警告
Confirm=确认
Error=错误
Information=信息
FontName=宋体
FontSize=9
FrmWindowView.Caption=窗口查看器
FrmWindowView.tbFile.Caption=文件(&F)
FrmWindowView.tbFile.Hint=文件菜单
FrmWindowView.tbOption.Caption=选项(&O)
FrmWindowView.tbOption.Hint=选项菜单
FrmWindowView.tbTools.Caption=工具(&T)
FrmWindowView.tbTools.Hint=工具菜单
FrmWindowView.tbHelp.Caption=帮助(&H)
FrmWindowView.tbHelp.Hint=帮助菜单
FrmWindowView.panSearch.Caption=搜索文本:
FrmWindowView.panSearch.Hint=搜索文本
FrmWindowView.edtSearch.Hint=在此键入搜索文本
FrmWindowView.btnSearch.Caption=搜索
FrmWindowView.btnSearch.Hint=开始搜索
FrmWindowView.tv.Hint=捕获结果,按鼠标右键弹出动作菜单
FrmWindowView.acExit.Caption=退出(&X)
FrmWindowView.acExit.Hint=退出程序
FrmWindowView.acLockCapture.Caption=锁定捕获
FrmWindowView.acLockCapture.Hint=选定后将鼠标移动到目标对象上
FrmWindowView.acCapture.Caption=捕获
FrmWindowView.acCapture.Hint=按住鼠标然后拖曳到目标对象上
FrmWindowView.acCaptureAll.Caption=捕获所有
FrmWindowView.acCaptureAll.Hint=捕获所有可列举出的窗口
FrmWindowView.acAutoHide.Caption=自动隐藏
FrmWindowView.acAutoHide.Hint=在捕获时自动隐藏程序
FrmWindowView.acStayOnTop.Caption=总在最前
FrmWindowView.acStayOnTop.Caption=窗口总在最前
FrmWindowView.acLanguage.Caption=语言(&L)
FrmWindowView.acLanguage.Hint=选择语言
FrmWindowView.acProcessManage.Caption=进程管理
FrmWindowView.acProcessManage.Hint=打开进程管理工具
FrmWindowView.acAbout.Caption=关于(&A)...
FrmWindowView.acAbout.Hint=显示关于窗口
FrmWindowView.acCopy.Caption=复制(&C)
FrmWindowView.acCopy.Hint=复制所选节点内容
FrmWindowView.acEnable.Caption=使用(&E)
FrmWindowView.acEnable.Hint=使选中的对象可用
FrmWindowView.acDisable.Caption=禁用(&D)
FrmWindowView.acDisable.Hint=使选中的对象不可用
FrmWindowView.acShow.Caption=显示(&S)
FrmWindowView.acShow.Hint=显示选中的对象
FrmWindowView.acHide.Caption=隐藏(&H)
FrmWindowView.acHide.Hint=隐藏选中的对象
FrmWindowView.acDelete.Caption=删除(&L)
FrmWindowView.acDelete.Hint=删除选中的对象(不能恢复)
FrmWindowView.acExport.Caption=导出(&X)...
FrmWindowView.acExport.Hint=导出选中的节点及子节点树到文件
FrmProcessManage.Caption=进程管理
FrmProcessManage.labProcessList.Caption=进程列表(&L)
FrmProcessManage.labProcessList.Hint=当前进程列表
FrmProcessManage.lbProcessList.Hint=当前进程列表
FrmProcessManage.btnRefresh.Caption=刷新(&R)
FrmProcessManage.btnRefresh.Hint=刷新进程列表
FrmProcessManage.btnEndProcess.Caption=结束进程(&C)
FrmProcessManage.btnEndProcess.Hint=结束选择的多个进程(小心使用)
FrmProcessManage.btnClose.Caption=关闭(&X)
FrmProcessManage.btnClose.Hint=关闭窗口
