Hi,
same lazarus app, compiled on Windows XP, german localization:
Code:
MessageDlg('Title', 'Text', mtInformation, [ mbCancel, mbYes, mbNo], 0);
You get buttons Captions 'Yes' and 'No' until you add:
procedure TForm1.FormCreate(Sender: TObject);
var
PODirectory, Lang, FallbackLang: String;
begin
PODirectory := 'C:\lazarus\lcl\languages\';
//PODirectory := '/home/john1/lazarus/lcl/languages/';
GetLanguageIDs(Lang, FallbackLang); // in unit gettext
TranslateUnitResourceStrings('LCLStrConsts', PODirectory +
'lclstrconsts.%s.po', Lang, FallbackLang);
MessageDlg('Title', 'Text', mtInformation, [ mbCancel, mbYes, mbNo], 0);
end;
The same app compiled on my Debain Sid, i get
buttons Captions 'Ja' and 'Nein' even if i comment out the code above.
Isn't there a easier way to handle this problem for Win XP? I got the above
solution from lazarus wiki and i thought, how to solve this the Delphi way?
--
John
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
