paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 16:40:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils, Translations unit: always remove Translation and PreviousID parts of items in .pot templates

Browse Source 
git-svn-id: trunk@61290 -
This commit is contained in:
maxim 2019-05-24 23:39:24 +00:00
parent 43b19b2c60
commit 837b7ebe9c
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/lazutils/translations.pas
View File

@ -778,7 +778,7 @@ procedure TPOFile.ReadPOText(const Txt: string);
Example
#: lazarusidestrconsts:lisdonotshowsplashscreen
msgid " Do not show splash screen"
msgid "Do not show splash screen"
msgstr ""
}
@ -1519,13 +1519,27 @@ begin
end;
if ProcessingTranslation then
begin
// synchronize translation flags with base .po file, but keep fuzzy flag state
// synchronize translation flags with base (.pot) file, but keep fuzzy flag state
ItemOldFlags := Item.Flags;
ItemHasFuzzyFlag := pos(sFuzzyFlag, Item.Flags) <> 0;
Item.Flags := lowercase(Flags);
Item.ModifyFlag(sFuzzyFlag, ItemHasFuzzyFlag);
if ItemOldFlags <> Item.Flags then
FModified := True;
end
else
begin
// flags in base (.pot) file are kept as is, but item's translation must be empty there
if Item.Translation <> '' then
begin
Item.Translation := '';
FModified := True;
end;
if Item.PreviousID <> '' then
begin
Item.PreviousID := '';
FModified := True;
end;
end;
end
else // in this case new item will be added