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

LazUtils: when updating existing translation item, copy PreviousID together with translation if needed, just like we do for newly added item.

Browse Source 
git-svn-id: trunk@57010 -
This commit is contained in:
maxim 2018-01-08 15:22:52 +00:00
parent 2c0b33fd1a
commit 854d1eceaf
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazutils/translations.pas
View File

@ -1682,6 +1682,9 @@ begin
Item.Context := Item.IdentifierLow;
Item.Translation := ItemTmp.Translation;
Item.ModifyFlag(sFuzzyFlag, true);
// if old item is fuzzy, copy PreviousID too
if pos(sFuzzyFlag, ItemTmp.Flags)<>0 then
Item.PreviousID := ItemTmp.PreviousID;
FModified := True;
end;
end;
@ -1699,7 +1702,7 @@ begin
APrevStr := '';
Item := TPOFileItem(FOriginalToItem.Data[Original]);
if Item<>nil then begin
// old item don't have context, add one
// old item doesn't have context, add one
if Item.Context='' then
Item.Context := Item.IdentifierLow;