paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-25 21:28:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

PoChecker: fixed languages combobox localization

Browse Source 
git-svn-id: trunk@46544 -
This commit is contained in:
maxim 2014-10-12 22:15:53 +00:00
parent f28bfbb1b7
commit cfd6dc20e4
2 changed files with 31 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/pochecker/pocheckerconsts.pas
View File

@ -215,6 +215,7 @@ const
);
function LangAbbrToLangId(const Abbr: String): TLangID;
procedure LocalizeLanguageNames;
implementation
@ -230,5 +231,33 @@ begin
end;
end;
procedure LocalizeLanguageNames;
begin
LanguageNames[lang_all]:=rs_lang_all;
LanguageNames[lang_af_ZA]:=rs_lang_af_ZA;
LanguageNames[lang_ar]:=rs_lang_ar;
LanguageNames[lang_ca]:=rs_lang_ca;
LanguageNames[lang_cs]:=rs_lang_cs;
LanguageNames[lang_de]:=rs_lang_de;
LanguageNames[lang_en]:=rs_lang_en;
LanguageNames[lang_es]:=rs_lang_es;
LanguageNames[lang_fi]:=rs_lang_fi;
LanguageNames[lang_fr]:=rs_lang_fr;
LanguageNames[lang_he]:=rs_lang_he;
LanguageNames[lang_hu]:=rs_lang_hu;
LanguageNames[lang_id]:=rs_lang_id;
LanguageNames[lang_it]:=rs_lang_it;
LanguageNames[lang_ja]:=rs_lang_ja;
LanguageNames[lang_lt]:=rs_lang_lt;
LanguageNames[lang_nl]:=rs_lang_nl;
LanguageNames[lang_pl]:=rs_lang_pl;
LanguageNames[lang_pt_BR]:=rs_lang_pt_BR;
LanguageNames[lang_ru]:=rs_lang_ru;
LanguageNames[lang_sk]:=rs_lang_sk;
LanguageNames[lang_tr]:=rs_lang_tr;
LanguageNames[lang_uk]:=rs_lang_uk;
LanguageNames[lang_zh_CN]:=rs_lang_zh_CN;
end;
end.

8
components/pochecker/pocheckermain.pp
View File

@ -57,7 +57,6 @@ type
procedure MasterPoListBoxSelectionChange(Sender: TObject; User: boolean);
procedure ScanDirBtnClick(Sender: TObject);
procedure SelectAllMasterFilesBtnClick(Sender: TObject);
procedure UnselectChildBtnClick(Sender: TObject);
procedure UnselectAllMasterFilesBtnClick(Sender: TObject);
private
//PoFamily: TPoFamily;
@ -329,10 +328,6 @@ begin
UpdateGUI(MasterPoListBox.SelCount > 0);
end;
procedure TPoCheckerForm.UnselectChildBtnClick(Sender: TObject);
begin
end;
procedure TPoCheckerForm.UnselectAllMasterFilesBtnClick(Sender: TObject);
begin
MasterPoListBox.ClearSelection;
@ -830,6 +825,7 @@ var
SL: TStringList;
begin
LangFilter.Items.BeginUpdate;
LocalizeLanguageNames;
SL := TStringList.Create;
try
LangFilter.Items.Clear;
@ -837,7 +833,7 @@ begin
begin
Abbr := LanguageAbbr[ID];
LangName := LanguageNames[ID];
S := Format('%s [%s]',[LangName, Abbr]);
S := Format('%s [%s]',[LangName, Abbr]);
SL.Add(S);
SL.CustomSort(@ListSortFunc);
end;