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

added english language

Browse Source 
git-svn-id: trunk@6354 -
This commit is contained in:
mattias 2004-12-09 21:25:22 +00:00
parent 8761771580
commit bc6ed7cd03
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/translations.pas
View File

@ -130,8 +130,9 @@ begin
LazarusTranslations:=TLazarusTranslations.Create
else
LazarusTranslations.Clear;
// add automatic translation
// add automatic and english translation
LazarusTranslations.Add('');
LazarusTranslations.Add('en');
// search existing translations
SearchMask:=AppendPathDelim(LazarusDir)+'languages'+PathDelim+'lazaruside.*.po';
//writeln('CollectTranslations ',SearchMask);
@ -162,8 +163,7 @@ begin
try
mo := TMOFile.Create(AFilename);
try
for TableID:=0 to ResourceStringTableCount - 1 do
begin
for TableID:=0 to ResourceStringTableCount - 1 do begin
TableCount := ResourceStringCount(TableID);
// check if this table belongs to the ResUnitName