constructor TWinControl.Create(AOwner: TComponent);
begin
inherited Create(AOwner); ..... if SysLocale.PriLangID = LANG_JAPANESE then
FImeName := ''
else
FImeName := Screen.DefaultIme; ......
end;
begin
inherited Create(AOwner); ..... if SysLocale.PriLangID = LANG_JAPANESE then
FImeName := ''
else
FImeName := Screen.DefaultIme; ......
end;
解决方案 »
- Timage图片截取问题,等待解决!
- Access数据库中的‘备注’形字段在dxDBGrid中能否不显示MEMO字样,而显示该字段内容?
- 最近做項目時需要操作 Excel. 請推薦肌本書
- 请看看
- 100分提问:如何将DELPHI源程序制作成.DLL文件!高手指点!在线等.................
- directorylistbox 问题
- 在线等待!!!急急....如何用OLE操作EXCEL???
- 一个程序里,可以同时有多个ADOQUERY和ADOTABLE组件吗?
- 请问怎样使label的标题纵向排列,不在程序里写,在属性里直接写?
- 如何将一个非主窗体也能在任务栏上显示出来,就象VB那样。
- 大学本科计算机课程有哪些,学习顺序怎么样,如何自学
- 做一个生物统计应用软件,VB和delphi哪个好?
File Win32\IBX\Property Editors\IBUpdateSQLEditor.pas:
Result := (SysLocale.PriLangID = LANG_JAPANESE) and (Chr in [$A1..$DF]);
File Win32\db\DBCommon.pas:
Result := (SysLocale.PriLangID = LANG_JAPANESE) and (Chr in [$A1..$DF]);
File Win32\vcl\Controls.pas:
if SysLocale.PriLangID = LANG_JAPANESE then
File Win32\vcl\Mask.pas:
Result := (SysLocale.PriLangID = LANG_JAPANESE) and (Chr in [$A1..$DF]);
File Win32\vcl\ComCtrls.pas:
if (SysLocale.FarEast) and not (SysLocale.PriLangID = LANG_JAPANESE) then
File dotNet\db\Borland.Vcl.DBCommon.pas:
Result := (SysLocale.PriLangID = LANG_JAPANESE) and (Chr in [$A1..$DF]);
File dotNet\vcl\Borland.Vcl.Controls.pas:
if SysLocale.PriLangID = LANG_JAPANESE then
File dotNet\vcl\Borland.Vcl.Mask.pas:
Result := (SysLocale.PriLangID = LANG_JAPANESE) and (Chr in [$A1..$DF]);
File dotNet\vcl\Borland.Vcl.ComCtrls.pas:
if (SysLocale.FarEast) and not (SysLocale.PriLangID = LANG_JAPANESE) then
C:\Program Files\Borland\Delphi7\Source>grep -id lang_ch *.pas
File Indy\IdGlobal.pas:
LANG_CHINESE:
if SysLocale.SubLangID = SUBLANG_CHINESE_SIMPLIFIED then
File Rtl\Sys\SysUtils.pas:
LANG_CHINESE:
if (SysLocale.SubLangID = SUBLANG_CHINESE_TRADITIONAL)
LANG_CHINESE:
if (SysLocale.SubLangID = SUBLANG_CHINESE_TRADITIONAL)
RemoveEra := SysLocale.PriLangID in [LANG_JAPANESE, LANG_CHINESE, LANG
N];
File Rtl\Win\Windows.pas:
LANG_CHINESE = $04;
{$EXTERNALSYM LANG_CHINESE}
SUBLANG_CHINESE_TRADITIONAL = $01; { Chinese (Taiwan) }
{$EXTERNALSYM SUBLANG_CHINESE_TRADITIONAL}
SUBLANG_CHINESE_SIMPLIFIED = $02; { Chinese (PR China) }
{$EXTERNALSYM SUBLANG_CHINESE_SIMPLIFIED}
SUBLANG_CHINESE_HONGKONG = $03; { Chinese (Hong Kong) }
{$EXTERNALSYM SUBLANG_CHINESE_HONGKONG}
SUBLANG_CHINESE_SINGAPORE = $04; { Chinese (Singapore) }
{$EXTERNALSYM SUBLANG_CHINESE_SINGAPORE}
一般来说,半角字都是直接作为ASCII来解释的,但是老的JIS标准中不是
if SysLocale.PriLangID <> LANG_JAPANESE then
FImeName := ''
else
FImeName := Screen.DefaultIme;现在没有这个问题.反正我的软件又不出口到日本,无所谓了.
一来就看到这样的好贴 顶一个!!!
哈哈