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

* slightly adapted patch from Mantis 17224 from Maxim Ganetsky

Browse Source 
also look ups with gettext-context if given.

git-svn-id: trunk@15865 -
This commit is contained in:
marco 2010-08-21 05:18:29 +00:00
parent 7119ebd599
commit 0d4d22690c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-base/src/gettext.pp
View File

@ -261,8 +261,14 @@ end;
function Translate (Name,Value : AnsiString; Hash : Longint; arg:pointer) : AnsiString; function Translate (Name,Value : AnsiString; Hash : Longint; arg:pointer) : AnsiString;
var contextempty : boolean;
begin begin
Result:=TMOFile(arg).Translate(Value,Hash); contextempty:=name='';
Result:='';
if not contextempty then
Result:=TMOFile(arg).Translate(Name+#4+Value);
if contextempty or (Result='') then
Result:=TMOFile(arg).Translate(Value,Hash);
end; end;