paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-08 06:38:24 +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 LazarusTranslations:=TLazarusTranslations.Create
else else
LazarusTranslations.Clear; LazarusTranslations.Clear;
// add automatic translation // add automatic and english translation
LazarusTranslations.Add(''); LazarusTranslations.Add('');
LazarusTranslations.Add('en');
// search existing translations // search existing translations
SearchMask:=AppendPathDelim(LazarusDir)+'languages'+PathDelim+'lazaruside.*.po'; SearchMask:=AppendPathDelim(LazarusDir)+'languages'+PathDelim+'lazaruside.*.po';
//writeln('CollectTranslations ',SearchMask); //writeln('CollectTranslations ',SearchMask);
@ -162,8 +163,7 @@ begin
try try
mo := TMOFile.Create(AFilename); mo := TMOFile.Create(AFilename);
try try
for TableID:=0 to ResourceStringTableCount - 1 do for TableID:=0 to ResourceStringTableCount - 1 do begin
begin
TableCount := ResourceStringCount(TableID); TableCount := ResourceStringCount(TableID);
// check if this table belongs to the ResUnitName // check if this table belongs to the ResUnitName