delphi XE6 switch元件�繁�w���}


本文整理自网络,侵删。

 XE6的Switch元件增加了多???Z系的功能,不?^很?z憾的是它在中文的部份只?J得zh,不??分辨zh_CN、zh_TW、zh_SG跟zh_HK。但是幸好Delphi是可以自己修正原始?a的 :)

 

?? Program FilesEmbarcaderoStudio14.0sourcefmx下的

FMX.Styles.Switch.pas?cFMX.Platform.Android.pas?}?u到自己?0傅哪夸?下

 
FMX.Styles.Switch.pas
第42行修改如下

// 2014.5.29 by lin shou shan
// 修正switch文字只有??w中文???}
    //LocalizedStates: array [0..6] of TStatesForLocale = (
LocalizedStates: array [0..7] of TStatesForLocale = ( // by lin shou shan
      (Locale: 'en'; OnText: 'ON'; OffText: 'OFF'),
      (Locale: 'jp'; OnText: 'ON'; OffText: 'OFF'),
      (Locale: 'ja'; OnText: 'ON'; OffText: 'OFF'),
      (Locale: 'ko'; OnText: 'ON'; OffText: 'OFF'),
      (Locale: 'de'; OnText: 'AN'; OffText: 'AUS'),
      (Locale: 'fr'; OnText: 'OUI'; OffText: 'NON'),
      //(Locale: 'zh'; OnText: #25171#24320; OffText: #20851#38381)  // by lin shou shan
  (Locale: 'zh_CN'; OnText: #25171#24320; OffText: #20851#38381),  // by lin shou shan
  (Locale: 'zh_TW'; OnText: '?_'; OffText: '?P')  // by lin shou shan
    );
FMX.Platform.Android.pas
第3330行修改如下

function TPlatformAndroid.GetCurrentLangID: string;
var
  Locale: JLocale;
begin
  Locale := TJLocale.JavaClass.getDefault;
  Result := JStringToString(Locale.toString); // 回?? zh_TW 2014.5.29 lin shou shan
  //Result := JStringToString(Locale.getISO3Language);  // lin shou shan
  //if Length(Result) > 2 then             // lin shou shan
  //  Delete(Result, 3, MaxInt);    // lin shou shan
end;

相关阅读 >>

Delphi取得trichedit的光标当前位置

Delphi dbgrid应用

Delphi ip地址转换

Delphi应用程序 paramstr()带有参数

Delphi 自定义消息拦截

Delphi 判断是否是十六进制数

Delphi 动态内存查找法

Delphi整理八(对话框)

Delphi获取默认浏览器

Delphi编程如何判断图片文件的真实类型?

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...