本文整理自网络，侵删。
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到自己?０傅哪夸?下
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执行sql提示“不正常地定义参数对象”，“提供了不一致或不完整的信息”错误
Delphi 10.3 处理csv tstreamreader 自带split用法
更多相关阅读请进入《Delphi》频道 >>
