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

LazUtils, Translations unit: added comment

Browse Source 
git-svn-id: trunk@61281 -
This commit is contained in:
maxim 2019-05-22 23:13:33 +00:00
parent ff409fc05d
commit a620891184
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/translations.pas
View File

@ -1605,6 +1605,8 @@ begin
CurrentItem:=TPOFileItem.Create(lowercase(Identifier), Original, Translation); CurrentItem:=TPOFileItem.Create(lowercase(Identifier), Original, Translation);
CurrentItem.Comments := Comments; CurrentItem.Comments := Comments;
CurrentItem.Context := Context; CurrentItem.Context := Context;
//When setting item flags, omit '"' characters in order to avoid regeneration instability.
//These characters are not meant to be present in flags anyway according to examples in gettext documentation.
TmpFlags := StringReplace(Flags, '"', '', [rfReplaceAll]); TmpFlags := StringReplace(Flags, '"', '', [rfReplaceAll]);
CurrentItem.ModifyFlag(lowercase(TmpFlags), true); CurrentItem.ModifyFlag(lowercase(TmpFlags), true);
CurrentItem.PreviousID := PreviousID; CurrentItem.PreviousID := PreviousID;