On Fri, 26 Jun 2009, Graeme Geldenhuys wrote:
Hi,
I'm busy translating our projects. fpGUI Toolkit uses it's own
translation via .po files (similar to Lazarus projects). But now there
are some output that is not being translated because it is output from
the RTL. One such case is the output of BoolToStr().
How am I supposed to translate that, or must I implement my own
fpgBoolToStr() to fpGUI project?
No. The Boolean strings are exposed in from the sysutils unit,
see TrueBoolStr, FalseBoolStr. The first string in those arrays
is used. If there are no elements in those arrays, they are
initialized with 'True' and 'False'.
So all you need to do is initialize them with the localized versions
prior to the first call of BoolToStr().
Michael.
My default locale is en_ZA.UTF-8. Normally if I change the LANG
environment variable, my fpGUI based projects look for those language
translation .po files and if none is found, it reverts to the default
compiled locale (normally English, but other languages can be selected
as default)
======== Console output ==================
$ ./project1
True
False
$ export LANG=af_ZA
$ ./project1
True
False
$ locale
LANG=af_ZA
LC_CTYPE="af_ZA"
LC_NUMERIC="af_ZA"
LC_TIME=en_DK.UTF-8
LC_COLLATE="af_ZA"
LC_MONETARY="af_ZA"
LC_MESSAGES="af_ZA"
LC_PAPER="af_ZA"
LC_NAME="af_ZA"
LC_ADDRESS="af_ZA"
LC_TELEPHONE="af_ZA"
LC_MEASUREMENT="af_ZA"
LC_IDENTIFICATION="af_ZA"
LC_ALL=
==========================
============= project1.pas ===============
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, Sysutils;
var
b: Boolean;
begin
b := True;
writeln(BoolToStr(b, True));
b := False;
writeln(BoolToStr(b, True));
end.
============================================
Regards,
- Graeme -
_______________________________________________________
fpGUI - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
