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

LCL: updated example for translating the lcl

Browse Source 
git-svn-id: trunk@16073 -
This commit is contained in:
mattias 2008-08-15 15:10:40 +00:00
parent 691dd09934
commit e019d42047
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/translations.pas
View File

@ -32,18 +32,30 @@
Example 2: Load the current language file using the GetLanguageIDs function
of the gettext unit:
procedure TForm1.FormCreate(Sender: TObject);
of the gettext unit in the project lpr file:
uses
...
Translations, gettext;
procedure TranslateLCL;
var
PODirectory, Lang, FallbackLang: String;
begin
PODirectory:='/path/to/lazarus/lcl/languages/';
Lang:='';
FallbackLang:='';
GetLanguageIDs(Lang,FallbackLang); // in unit gettext
TranslateUnitResourceStrings('LCLStrConsts',PODirectory+'lcl.%s.po',
Lang,FallbackLang);
MessageDlg('Title','Text',mtInformation,[mbOk,mbCancel,mbYes],0);
Translations.TranslateUnitResourceStrings('LCLStrConsts',
PODirectory+'lclstrconsts.%s.po',Lang,FallbackLang);
end;
begin
TranslateLCL;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
}
unit Translations;
@ -311,7 +323,7 @@ var
po: TPOFile;
begin
Result:=false;
//debugln('TranslateUnitResourceStrings) ResUnitName="',ResUnitName,'" AFilename="',AFilename,'"');
debugln('TranslateUnitResourceStrings) ResUnitName="',ResUnitName,'" AFilename="',AFilename,'"');
if (ResUnitName='') or (AFilename='') or (not FileExists(AFilename)) then
exit;
try