File tree Expand file tree Collapse file tree 2 files changed +5
-5
lines changed
Expand file tree Collapse file tree 2 files changed +5
-5
lines changed Original file line number Diff line number Diff line change 162162function GetLanguageCode (Param: string): string;
163163begin
164164 case ActiveLanguage of
165- ' english' : Result := ' en_US ' ;
165+ ' english' : Result := ' en-us ' ;
166166 ' french' : Result := ' fr' ;
167167 ' german' : Result := ' de' ;
168168 ' spanish' : Result := ' es' ;
@@ -171,10 +171,10 @@ begin
171171 ' korean' : Result := ' ko' ;
172172 ' portuguese' : Result := ' pt' ;
173173 ' hindi' : Result := ' hi' ;
174- ' chinesesimplified' : Result := ' zh_CN ' ;
175- ' chinesetraditional' : Result := ' zh_TW ' ;
174+ ' chinesesimplified' : Result := ' zh-cn ' ;
175+ ' chinesetraditional' : Result := ' zh-tw ' ;
176176 else
177- Result := ' en_US ' ; // Default fallback
177+ Result := ' en-us ' ; // Default fallback
178178 end ;
179179 Log(Format(' Language code selected: %s' , [Result]));
180180end ;
Original file line number Diff line number Diff line change @@ -849,7 +849,7 @@ procedure TfmMCX.mcxdoDefaultExecute(Sender: TObject);
849849 ckSpecular.Checked:=false;
850850 edWorkLoad.Text:=' 100' ;
851851 edMoreParam.Text:=' ' ;
852- if (Length(DefaultLang) > 0 ) and (Pos(DefaultLang, ' en ' ) <> 1 ) then
852+ if (Length(DefaultLang) > 0 ) then
853853 edMoreParam.Text:=' --lang ' + DefaultLang;
854854
855855 edUnitInMM.Text:=' 1' ;
You can’t perform that action at this time.
0 commit comments