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

LCL, Translations unit: copy all flags also when just synchronizing PO files, not only when PO files are updated from RST.

Browse Source 
git-svn-id: trunk@46100 -
This commit is contained in:
maxim 2014-08-31 21:58:51 +00:00
parent 3525932e84
commit d23f34e545
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/translations.pas
View File

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