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

LCL, Translations unit: only copy item flags to new one when copying its content there. This prevents needless marking items as fuzzy e.g. in a case when one of, say, two duplicates is translated and marked as fuzzy and another one is translated too and NOT marked as fuzzy.

Browse Source 
git-svn-id: trunk@46258 -
This commit is contained in:
maxim 2014-09-19 21:58:04 +00:00
parent 5192991612
commit 966d63b763
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/translations.pas
View File

@ -638,12 +638,12 @@ var
// set context of new duplicate
if Msg[mctx]='' then
Msg[mctx] := Identifier;
// copy flags to new duplicate
if Flags='' then
Flags := Item.Flags;
// if old duplicate was translated and new one is not,
// provide an initial translation and set a flag to mark it fuzzy
if (Msg[mstr]='') and (Item.Translation<>'') then begin
// copy flags to new duplicate
if Flags='' then
Flags := Item.Flags;
Msg[mstr] := Item.Translation;
// if old item is fuzzy, copy PreviousID too
if pos('fuzzy', Item.Flags)<>0 then