mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 18:39:20 +02:00
wiki test: added language codes
git-svn-id: trunk@35835 -
This commit is contained in:
parent
45d79155cf
commit
70a3961aa6
@ -8,14 +8,16 @@ uses
|
|||||||
Classes, SysUtils;
|
Classes, SysUtils;
|
||||||
|
|
||||||
resourcestring
|
resourcestring
|
||||||
rsLanguageEnglishOriginal = 'English or Original';
|
|
||||||
rsLanguageAfrikaans = 'Afrikaans';
|
rsLanguageAfrikaans = 'Afrikaans';
|
||||||
|
rsLanguageAlbania = 'Albania';
|
||||||
rsLanguageArabic = 'Arabic';
|
rsLanguageArabic = 'Arabic';
|
||||||
rsLanguageCatalan = 'Catalan';
|
rsLanguageCatalan = 'Catalan';
|
||||||
rsLanguageChinese = 'Chinese';
|
rsLanguageChinese = 'Chinese';
|
||||||
|
rsLanguageChineseTaiwan = 'Chinese Taiwan';
|
||||||
rsLanguageCzech = 'Czech';
|
rsLanguageCzech = 'Czech';
|
||||||
rsLanguageDutch = 'Dutch';
|
rsLanguageDutch = 'Dutch';
|
||||||
rsLanguageEnglish = 'English';
|
rsLanguageEnglish = 'English';
|
||||||
|
rsLanguageEnglishOriginal = 'English or Original';
|
||||||
rsLanguageFinnish = 'Finnish';
|
rsLanguageFinnish = 'Finnish';
|
||||||
rsLanguageFrench = 'French';
|
rsLanguageFrench = 'French';
|
||||||
rsLanguageGerman = 'German';
|
rsLanguageGerman = 'German';
|
||||||
@ -24,15 +26,20 @@ resourcestring
|
|||||||
rsLanguageIndonesian = 'Indonesian';
|
rsLanguageIndonesian = 'Indonesian';
|
||||||
rsLanguageItalian = 'Italian';
|
rsLanguageItalian = 'Italian';
|
||||||
rsLanguageJapanese = 'Japanese';
|
rsLanguageJapanese = 'Japanese';
|
||||||
|
rsLanguageKorean = 'Korean';
|
||||||
rsLanguageLithuanian = 'Lithuanian';
|
rsLanguageLithuanian = 'Lithuanian';
|
||||||
|
rsLanguageMacedonien = 'Macedonian';
|
||||||
|
rsLanguagePersian = 'Persian';
|
||||||
rsLanguagePolish = 'Polish';
|
rsLanguagePolish = 'Polish';
|
||||||
rsLanguagePortuguese = 'Portuguese';
|
rsLanguagePortuguese = 'Portuguese';
|
||||||
rsLanguagePortugueseBr = 'Brazilian Portuguese';
|
rsLanguagePortugueseBr = 'Brazilian Portuguese';
|
||||||
|
rsLanguageRomanian = 'Romanian';
|
||||||
rsLanguageRussian = 'Russian';
|
rsLanguageRussian = 'Russian';
|
||||||
rsLanguageSlovak = 'Slovak';
|
rsLanguageSlovak = 'Slovak';
|
||||||
rsLanguageSpanish = 'Spanish';
|
rsLanguageSpanish = 'Spanish';
|
||||||
rsLanguageTurkish = 'Turkish';
|
rsLanguageTurkish = 'Turkish';
|
||||||
rsLanguageUkrainian = 'Ukrainian';
|
rsLanguageUkrainian = 'Ukrainian';
|
||||||
|
|
||||||
wrsWikiSearchOptions = 'Wiki Search Options';
|
wrsWikiSearchOptions = 'Wiki Search Options';
|
||||||
wrsLanguages = 'Languages';
|
wrsLanguages = 'Languages';
|
||||||
|
|
||||||
|
@ -1608,6 +1608,7 @@ begin
|
|||||||
else if CompareText(ID,'de')=0 then Result:=rsLanguageGerman
|
else if CompareText(ID,'de')=0 then Result:=rsLanguageGerman
|
||||||
else if CompareText(ID,'en')=0 then Result:=rsLanguageEnglish
|
else if CompareText(ID,'en')=0 then Result:=rsLanguageEnglish
|
||||||
else if CompareText(ID,'es')=0 then Result:=rsLanguageSpanish
|
else if CompareText(ID,'es')=0 then Result:=rsLanguageSpanish
|
||||||
|
else if CompareText(ID,'fa')=0 then Result:=rsLanguagePersian
|
||||||
else if CompareText(ID,'fi')=0 then Result:=rsLanguageFinnish
|
else if CompareText(ID,'fi')=0 then Result:=rsLanguageFinnish
|
||||||
else if CompareText(ID,'fr')=0 then Result:=rsLanguageFrench
|
else if CompareText(ID,'fr')=0 then Result:=rsLanguageFrench
|
||||||
else if CompareText(ID,'he')=0 then Result:=rsLanguageHebrew
|
else if CompareText(ID,'he')=0 then Result:=rsLanguageHebrew
|
||||||
@ -1615,29 +1616,36 @@ begin
|
|||||||
else if CompareText(ID,'id')=0 then Result:=rsLanguageIndonesian
|
else if CompareText(ID,'id')=0 then Result:=rsLanguageIndonesian
|
||||||
else if CompareText(ID,'it')=0 then Result:=rsLanguageItalian
|
else if CompareText(ID,'it')=0 then Result:=rsLanguageItalian
|
||||||
else if CompareText(ID,'ja')=0 then Result:=rsLanguageJapanese
|
else if CompareText(ID,'ja')=0 then Result:=rsLanguageJapanese
|
||||||
|
else if CompareText(ID,'ko')=0 then Result:=rsLanguageKorean
|
||||||
else if CompareText(ID,'lt')=0 then Result:=rsLanguageLithuanian
|
else if CompareText(ID,'lt')=0 then Result:=rsLanguageLithuanian
|
||||||
|
else if CompareText(ID,'mk')=0 then Result:=rsLanguageMacedonien
|
||||||
else if CompareText(ID,'nl')=0 then Result:=rsLanguageDutch
|
else if CompareText(ID,'nl')=0 then Result:=rsLanguageDutch
|
||||||
else if CompareText(ID,'pl')=0 then Result:=rsLanguagePolish
|
else if CompareText(ID,'pl')=0 then Result:=rsLanguagePolish
|
||||||
else if CompareText(ID,'pt')=0 then Result:=rsLanguagePortuguese
|
else if CompareText(ID,'pt')=0 then Result:=rsLanguagePortuguese
|
||||||
else if CompareText(ID,'pt_BR')=0 then Result:=rsLanguagePortugueseBr
|
else if CompareText(ID,'pt_BR')=0 then Result:=rsLanguagePortugueseBr
|
||||||
|
else if CompareText(ID,'ro')=0 then Result:=rsLanguageRomanian
|
||||||
else if CompareText(ID,'ru')=0 then Result:=rsLanguageRussian
|
else if CompareText(ID,'ru')=0 then Result:=rsLanguageRussian
|
||||||
else if CompareText(ID,'sk')=0 then Result:=rsLanguageSlovak
|
else if CompareText(ID,'sk')=0 then Result:=rsLanguageSlovak
|
||||||
|
else if CompareText(ID,'sq')=0 then Result:=rsLanguageAlbania
|
||||||
else if CompareText(ID,'tr')=0 then Result:=rsLanguageTurkish
|
else if CompareText(ID,'tr')=0 then Result:=rsLanguageTurkish
|
||||||
else if CompareText(ID,'uk')=0 then Result:=rsLanguageUkrainian
|
else if CompareText(ID,'uk')=0 then Result:=rsLanguageUkrainian
|
||||||
else if CompareText(ID,'zh_CN')=0 then Result:=rsLanguageChinese
|
else if CompareText(ID,'zh_CN')=0 then Result:=rsLanguageChinese
|
||||||
|
else if CompareText(ID,'zh_TW')=0 then Result:=rsLanguageChineseTaiwan
|
||||||
else Result:=ID;
|
else Result:=ID;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TWikiHelp.LangCaptionToCode(Caption: string): string;
|
function TWikiHelp.LangCaptionToCode(Caption: string): string;
|
||||||
begin
|
begin
|
||||||
if Caption=rsLanguageEnglishOriginal then Result:=''
|
if Caption=rsLanguageEnglishOriginal then Result:=''
|
||||||
else if Caption=rsLanguageEnglish then Result:='en'
|
|
||||||
else if Caption=rsLanguageAfrikaans then Result:='af'
|
else if Caption=rsLanguageAfrikaans then Result:='af'
|
||||||
|
else if Caption=rsLanguageAlbania then Result:='sq'
|
||||||
else if Caption=rsLanguageArabic then Result:='ar'
|
else if Caption=rsLanguageArabic then Result:='ar'
|
||||||
else if Caption=rsLanguageCatalan then Result:='ca'
|
else if Caption=rsLanguageCatalan then Result:='ca'
|
||||||
else if Caption=rsLanguageChinese then Result:='zh_CN'
|
else if Caption=rsLanguageChinese then Result:='zh_CN'
|
||||||
|
else if Caption=rsLanguageChineseTaiwan then Result:='zh_TW'
|
||||||
else if Caption=rsLanguageCzech then Result:='cs'
|
else if Caption=rsLanguageCzech then Result:='cs'
|
||||||
else if Caption=rsLanguageDutch then Result:='nl'
|
else if Caption=rsLanguageDutch then Result:='nl'
|
||||||
|
else if Caption=rsLanguageEnglish then Result:='en'
|
||||||
else if Caption=rsLanguageFinnish then Result:='fi'
|
else if Caption=rsLanguageFinnish then Result:='fi'
|
||||||
else if Caption=rsLanguageFrench then Result:='fr'
|
else if Caption=rsLanguageFrench then Result:='fr'
|
||||||
else if Caption=rsLanguageGerman then Result:='de'
|
else if Caption=rsLanguageGerman then Result:='de'
|
||||||
@ -1646,10 +1654,14 @@ begin
|
|||||||
else if Caption=rsLanguageIndonesian then Result:='id'
|
else if Caption=rsLanguageIndonesian then Result:='id'
|
||||||
else if Caption=rsLanguageItalian then Result:='it'
|
else if Caption=rsLanguageItalian then Result:='it'
|
||||||
else if Caption=rsLanguageJapanese then Result:='ja'
|
else if Caption=rsLanguageJapanese then Result:='ja'
|
||||||
|
else if Caption=rsLanguageKorean then Result:='ko'
|
||||||
else if Caption=rsLanguageLithuanian then Result:='lt'
|
else if Caption=rsLanguageLithuanian then Result:='lt'
|
||||||
|
else if Caption=rsLanguageMacedonien then Result:='mk'
|
||||||
|
else if Caption=rsLanguagePersian then Result:='fa'
|
||||||
else if Caption=rsLanguagePolish then Result:='pl'
|
else if Caption=rsLanguagePolish then Result:='pl'
|
||||||
else if Caption=rsLanguagePortuguese then Result:='pt'
|
else if Caption=rsLanguagePortuguese then Result:='pt'
|
||||||
else if Caption=rsLanguagePortugueseBr then Result:='pt_BR'
|
else if Caption=rsLanguagePortugueseBr then Result:='pt_BR'
|
||||||
|
else if Caption=rsLanguageRomanian then Result:='ro'
|
||||||
else if Caption=rsLanguageRussian then Result:='ru'
|
else if Caption=rsLanguageRussian then Result:='ru'
|
||||||
else if Caption=rsLanguageSlovak then Result:='sk'
|
else if Caption=rsLanguageSlovak then Result:='sk'
|
||||||
else if Caption=rsLanguageSpanish then Result:='es'
|
else if Caption=rsLanguageSpanish then Result:='es'
|
||||||
|
@ -53,10 +53,10 @@ type
|
|||||||
procedure SetLanguages(AValue: string);
|
procedure SetLanguages(AValue: string);
|
||||||
public
|
public
|
||||||
property Languages: string read GetLanguages write SetLanguages;
|
property Languages: string read GetLanguages write SetLanguages;
|
||||||
procedure UpdateAvailableLanguages;
|
|
||||||
procedure UpdateEnabledLanguages;
|
|
||||||
property LangCodeEnabled[const ID: string]: boolean read GetLangCodeEnabled
|
property LangCodeEnabled[const ID: string]: boolean read GetLangCodeEnabled
|
||||||
write SetLangCodeEnabled;
|
write SetLangCodeEnabled;
|
||||||
|
procedure UpdateAvailableLanguages;
|
||||||
|
procedure UpdateEnabledLanguages;
|
||||||
property OnOptionsChanged: TNotifyEvent read FOnOptionsChanged write FOnOptionsChanged;
|
property OnOptionsChanged: TNotifyEvent read FOnOptionsChanged write FOnOptionsChanged;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user