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

LazUtils, Translations unit: ensure uniqueness of flags in .po file items, ignore empty flags

Browse Source 
git-svn-id: trunk@61267 -
This commit is contained in:
maxim 2019-05-21 23:50:58 +00:00
parent e3851a436a
commit 592a9daf42
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/lazutils/translations.pas
View File

@ -1604,7 +1604,7 @@ begin
CurrentItem:=TPOFileItem.Create(lowercase(Identifier), Original, Translation);
CurrentItem.Comments := Comments;
CurrentItem.Context := Context;
CurrentItem.Flags := lowercase(Flags);
CurrentItem.ModifyFlag(lowercase(Flags), true);
CurrentItem.PreviousID := PreviousID;
CurrentItem.LineNr := LineNr;
FItems.Add(CurrentItem);
@ -1734,18 +1734,21 @@ var
var
i: Integer;
begin
i := F.IndexOf(AFlag);
if (i<0) and Check then
if AFlag <> '' then
begin
F.Add(AFlag);
Result := true;
end
else
begin
if (i>=0) and (not Check) then
i := F.IndexOf(AFlag);
if (i<0) and Check then
begin
F.Delete(i);
F.Add(AFlag);
Result := true;
end
else
begin
if (i>=0) and (not Check) then
begin
F.Delete(i);
Result := true;
end;
end;
end;
end;