paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 04:49:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use the setresourcestirng iterator

Browse Source 
git-svn-id: trunk@2900 -
This commit is contained in:
peter 2006-03-13 09:05:07 +00:00
parent 0899f0fbf7
commit 2fb94ece94
1 changed files with 4 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
fcl/inc/gettext.pp
View File

@ -211,54 +211,18 @@ end;
// Resourcestring translation procedures
// -------------------------------------------------------
{
Define USEITERATOR if you want to translate the strings using
the SetResourceStrings call. This is not recommended for this
particular iplementation, since we must pass through a global
variable TheFile : TMOFile. However that works too.
}
{$ifdef USEITERATOR}
var
Thefile : TMOFile;
function Translate (Name,Value : AnsiString; Hash : Longint) : AnsiString;
function Translate (Name,Value : AnsiString; Hash : Longint; arg:pointer) : AnsiString;
begin
Result:=TheFile.Translate(Value,Hash);
Result:=TMOFile(arg).Translate(Value,Hash);
end;
procedure TranslateResourceStrings(AFile: TMOFile);
var
i,j : Integer;
s : String;
begin
TheFile:=AFile;
SetResourceStrings(@Translate);
SetResourceStrings(@Translate,AFile);
end;
{$else}
procedure TranslateResourceStrings(AFile: TMOFile);
var
i, j, count: Integer;
s: String;
begin
for i:=0 to ResourceStringTableCount - 1 do
begin
count := ResourceStringCount(I);
for j := 0 to count - 1 do
begin
s := AFile.Translate(GetResourceStringDefaultValue(i, j),
GetResourceStringHash(i, j));
if Length(s) > 0 then
begin
SetResourceStringValue(i, j, s);
GettextUsed := True;
end;
end;
end;
end;
{$endif}
{$ifdef win32}
procedure GetLanguageIDs(var Lang, FallbackLang: string);