paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 18:00:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

added Italian ISO language in the IDE

Browse Source 
git-svn-id: trunk@5717 -
This commit is contained in:
vincents 2004-07-30 19:48:43 +00:00
parent 12f8270c5b
commit 03680097bf
2 changed files with 21 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
ide/environmentopts.pp
View File

@ -94,6 +94,7 @@ type
llFrench, llFrench,
llGerman, llGerman,
llItalian, llItalian,
llItalianISO_8859_1,
llPolish, llPolish,
llPolishISO_8859_2, llPolishISO_8859_2,
llPolishCP1251, llPolishCP1251,
@ -115,6 +116,7 @@ const
'French', 'French',
'German', 'German',
'Italian', 'Italian',
'Italian(ISO 8859-1)',
'Polish', 'Polish',
'Polish(ISO 8859-2)', 'Polish(ISO 8859-2)',
'Polish(CP1250)', 'Polish(CP1250)',
@ -127,7 +129,8 @@ const
); );
LazarusLanguageIDs: array[TLazarusLanguage] of string = ( LazarusLanguageIDs: array[TLazarusLanguage] of string = (
'', 'ca', 'en', 'fr', 'de', 'it', 'pl', 'pliso', 'plwin', 'ru', 'ruwin', 'es', 'fi', 'he', 'ar' '', 'ca', 'en', 'fr', 'de', 'it', 'itiso', 'pl', 'pliso', 'plwin',
'ru', 'ruwin', 'es', 'fi', 'he', 'ar'
); );
@ -689,21 +692,22 @@ function GetLazarusLanguageNames(aLangId: TLazarusLanguage) : String;
begin begin
Result := '?'; Result := '?';
Case aLangId of Case aLangId of
llAutomatic : Result := rsLanguageAutomatic; llAutomatic : Result := rsLanguageAutomatic;
llEnglish : Result := rsLanguageEnglish; llEnglish : Result := rsLanguageEnglish;
llGerman : Result := rsLanguageDeutsch; llGerman : Result := rsLanguageDeutsch;
llSpanish : Result := rsLanguageSpanish; llSpanish : Result := rsLanguageSpanish;
llFrench : Result := rsLanguageFrench; llFrench : Result := rsLanguageFrench;
llRussian : Result := rsLanguageRussian; llRussian : Result := rsLanguageRussian;
llRussianCP1251 : Result := rsLanguageRussianWin; llRussianCP1251 : Result := rsLanguageRussianWin;
llPolish : Result := rsLanguagePolish; llPolish : Result := rsLanguagePolish;
llPolishISO_8859_2 : Result := rsLanguagePolishISO; llPolishISO_8859_2 : Result := rsLanguagePolishISO;
llPolishCP1251 : Result := rsLanguagePolishWin; llPolishCP1251 : Result := rsLanguagePolishWin;
llItalian : Result := rsLanguageItalian; llItalian : Result := rsLanguageItalian;
llCatalan : Result := rsLanguageCatalan; llItalianISO_8859_1 : Result := rsLanguageItalianISO;
llFinnish : Result := rsLanguageFinnish; llCatalan : Result := rsLanguageCatalan;
llHebrew : Result := rsLanguageHebrew; llFinnish : Result := rsLanguageFinnish;
llArabic : Result := rsLanguageArabic; llHebrew : Result := rsLanguageHebrew;
llArabic : Result := rsLanguageArabic;
end; end;
end; end;

1
ide/lazarusidestrconsts.pas
View File

@ -1311,6 +1311,7 @@ resourcestring
rsLanguagePolishISO = 'Polish(ISO 8859-2)'; rsLanguagePolishISO = 'Polish(ISO 8859-2)';
rsLanguagePolishWin = 'Polish(CP1250)'; rsLanguagePolishWin = 'Polish(CP1250)';
rsLanguageItalian = 'Italian'; rsLanguageItalian = 'Italian';
rsLanguageItalianISO = 'Italian(ISO 8859-1)';
rsLanguageCatalan = 'Catalan'; rsLanguageCatalan = 'Catalan';
rsLanguageFinnish = 'Finnish'; rsLanguageFinnish = 'Finnish';
rsLanguageHebrew = 'Hebrew'; rsLanguageHebrew = 'Hebrew';