paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ SysLocale

Browse Source
This commit is contained in:
florian 2005-02-26 14:38:14 +00:00
parent c7939907f0
commit 7fef413b69
12 changed files with 101 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/beos/sysutils.pp
View File

@ -235,6 +235,7 @@ end;
Procedure InitInternational;
begin
InitInternationalGeneric;
InitAnsi;
end;
@ -323,7 +324,10 @@ Finalization
end.
{
$Log$
Revision 1.11 2005-02-14 17:13:21 peter
Revision 1.12 2005-02-26 14:38:14 florian
+ SysLocale
Revision 1.11 2005/02/14 17:13:21 peter
* truncate log
}

62
rtl/emx/sysutils.pp
View File

@ -1045,34 +1045,35 @@ var Country: TCountryCode;
Size: cardinal;
RC: cardinal;
begin
Size := 0;
FillChar (Country, SizeOf (Country), 0);
FillChar (CtryInfo, SizeOf (CtryInfo), 0);
RC := DosQueryCtryInfo (SizeOf (CtryInfo), Country, CtryInfo, Size);
if RC = 0 then
begin
DateSeparator := CtryInfo.DateSeparator;
case CtryInfo.DateFormat of
1: begin
ShortDateFormat := 'd/m/y';
LongDateFormat := 'dd" "mmmm" "yyyy';
end;
2: begin
ShortDateFormat := 'y/m/d';
LongDateFormat := 'yyyy" "mmmm" "dd';
end;
3: begin
ShortDateFormat := 'm/d/y';
LongDateFormat := 'mmmm" "dd" "yyyy';
end;
end;
TimeSeparator := CtryInfo.TimeSeparator;
DecimalSeparator := CtryInfo.DecimalSeparator;
ThousandSeparator := CtryInfo.ThousandSeparator;
CurrencyFormat := CtryInfo.CurrencyFormat;
CurrencyString := PChar (CtryInfo.CurrencyUnit);
end;
InitAnsi;
Size := 0;
FillChar (Country, SizeOf (Country), 0);
FillChar (CtryInfo, SizeOf (CtryInfo), 0);
RC := DosQueryCtryInfo (SizeOf (CtryInfo), Country, CtryInfo, Size);
if RC = 0 then
begin
DateSeparator := CtryInfo.DateSeparator;
case CtryInfo.DateFormat of
1: begin
ShortDateFormat := 'd/m/y';
LongDateFormat := 'dd" "mmmm" "yyyy';
end;
2: begin
ShortDateFormat := 'y/m/d';
LongDateFormat := 'yyyy" "mmmm" "dd';
end;
3: begin
ShortDateFormat := 'm/d/y';
LongDateFormat := 'mmmm" "dd" "yyyy';
end;
end;
TimeSeparator := CtryInfo.TimeSeparator;
DecimalSeparator := CtryInfo.DecimalSeparator;
ThousandSeparator := CtryInfo.ThousandSeparator;
CurrencyFormat := CtryInfo.CurrencyFormat;
CurrencyString := PChar (CtryInfo.CurrencyUnit);
end;
InitAnsi;
InitInternationalGeneric;
end;
function SysErrorMessage(ErrorCode: Integer): String;
@ -1222,7 +1223,10 @@ end.
{
$Log$
Revision 1.19 2005-02-14 17:13:22 peter
Revision 1.20 2005-02-26 14:38:14 florian
+ SysLocale
Revision 1.19 2005/02/14 17:13:22 peter
* truncate log
}

6
rtl/go32v2/sysutils.pp
View File

@ -720,6 +720,7 @@ end;
Procedure InitInternational;
begin
InitInternationalGeneric;
InitAnsi;
end;
@ -832,7 +833,10 @@ Finalization
end.
{
$Log$
Revision 1.27 2005-02-14 17:13:22 peter
Revision 1.28 2005-02-26 14:38:14 florian
+ SysLocale
Revision 1.27 2005/02/14 17:13:22 peter
* truncate log
}

8
rtl/macos/sysutils.pp
View File

@ -618,7 +618,8 @@ end;
Procedure InitInternational;
begin
InitAnsi;
InitInternationalGeneric;
InitAnsi;
end;
function SysErrorMessage(ErrorCode: Integer): String;
@ -718,7 +719,10 @@ end.
{
$Log$
Revision 1.6 2005-02-14 17:13:30 peter
Revision 1.7 2005-02-26 14:38:14 florian
+ SysLocale
Revision 1.6 2005/02/14 17:13:30 peter
* truncate log
Revision 1.5 2005/01/24 18:28:58 olle

6
rtl/morphos/sysutils.pp
View File

@ -486,6 +486,7 @@ end;
Procedure InitInternational;
begin
InitInternationalGeneric;
InitAnsi;
end;
@ -568,7 +569,10 @@ Finalization
end.
{
$Log$
Revision 1.6 2005-02-14 17:13:30 peter
Revision 1.7 2005-02-26 14:38:14 florian
+ SysLocale
Revision 1.6 2005/02/14 17:13:30 peter
* truncate log
Revision 1.5 2005/01/30 02:36:14 karoly

6
rtl/netware/sysutils.pp
View File

@ -490,6 +490,7 @@ end;
Procedure InitInternational;
begin
InitInternationalGeneric;
InitAnsi;
end;
@ -583,7 +584,10 @@ end.
{
$Log$
Revision 1.19 2005-02-14 17:13:30 peter
Revision 1.20 2005-02-26 14:38:14 florian
+ SysLocale
Revision 1.19 2005/02/14 17:13:30 peter
* truncate log
}

6
rtl/netwlibc/sysutils.pp
View File

@ -552,6 +552,7 @@ end;
Procedure InitInternational;
begin
InitInternationalGeneric;
InitAnsi;
end;
@ -699,7 +700,10 @@ end.
{
$Log$
Revision 1.9 2005-02-14 17:13:30 peter
Revision 1.10 2005-02-26 14:38:14 florian
+ SysLocale
Revision 1.9 2005/02/14 17:13:30 peter
* truncate log
Revision 1.8 2005/01/04 11:25:34 armin

18
rtl/objpas/sysutils/sysinth.inc
View File

@ -128,9 +128,25 @@ Const
{ Currency notation. Default is $ for dollars. }
CurrencyString : String[7] = '$';
type
TSysLocale = record
case byte of
{ win32 names }
1 : (FarEast: boolean; MiddleEast: Boolean);
{ real meaning }
2 : (MBCS : boolean; RightToLeft: Boolean);
end;
var
SysLocale : TSysLocale;
{
$Log$
Revision 1.2 2005-02-14 17:13:31 peter
Revision 1.3 2005-02-26 14:38:14 florian
+ SysLocale
Revision 1.2 2005/02/14 17:13:31 peter
* truncate log
}

3
rtl/objpas/sysutils/sysutils.inc
View File

@ -64,6 +64,9 @@
{ Read pchar handling functions implementation }
{$i syspch.inc}
{ generic internationalisation code }
{$i sysint.inc}
{ MCBS functions }
{$i sysansi.inc}

6
rtl/unix/sysutils.pp
View File

@ -856,6 +856,7 @@ end;
Procedure InitInternational;
begin
InitInternationalGeneric;
InitAnsi;
end;
@ -1105,7 +1106,10 @@ end.
{
$Log$
Revision 1.57 2005-02-14 17:13:31 peter
Revision 1.58 2005-02-26 14:38:14 florian
+ SysLocale
Revision 1.57 2005/02/14 17:13:31 peter
* truncate log
* getenv had ansistring as param due to {$H+} now shortstring.

6
rtl/watcom/sysutils.pp
View File

@ -725,6 +725,7 @@ end;
Procedure InitInternational;
begin
InitInternationalGeneric;
InitAnsi;
end;
@ -878,7 +879,10 @@ end.
{
$Log$
Revision 1.7 2005-02-14 17:13:32 peter
Revision 1.8 2005-02-26 14:38:14 florian
+ SysLocale
Revision 1.7 2005/02/14 17:13:32 peter
* truncate log
}

10
rtl/win32/sysutils.pp
View File

@ -610,6 +610,9 @@ end;
Procedure InitInternational;
begin
InitInternationalGeneric;
SysLocale.MBCS:=GetSystemMetrics(SM_DBCSENABLED)<>0;
SysLocale.RightToLeft:=GetSystemMetrics(SM_MIDEASTENABLED)<>0;
InitAnsi;
GetFormatSettings;
end;
@ -988,8 +991,6 @@ begin
end;
Initialization
InitExceptions; { Initialize exceptions. OS independent }
InitInternational; { Initialize internationalization settings }
@ -1005,7 +1006,10 @@ Finalization
end.
{
$Log$
Revision 1.40 2005-02-14 17:13:32 peter
Revision 1.41 2005-02-26 14:38:14 florian
+ SysLocale
Revision 1.40 2005/02/14 17:13:32 peter
* truncate log
}