paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 04:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation with 1.0.10

Browse Source
This commit is contained in:
florian 2005-03-02 21:10:08 +00:00
parent 6f17e37fe4
commit ed174f891c
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/win32/sysutils.pp
View File

@ -612,7 +612,7 @@ Procedure InitInternational;
begin
InitInternationalGeneric;
SysLocale.MBCS:=GetSystemMetrics(SM_DBCSENABLED)<>0;
SysLocale.RightToLeft:=GetSystemMetrics(SM_MIDEASTENABLED)<>0;
SysLocale.RightToLeft:=GetSystemMetrics(SM_MIDEASTENABLED)<>0;
InitAnsi;
GetFormatSettings;
end;
@ -994,6 +994,8 @@ end;
Target Dependent WideString stuff
****************************************************************************}
{$ifdef HASWIDESTRING}
function Win32CompareWideString(const s1, s2 : WideString) : PtrInt;
begin
SetLastError(0);
@ -1002,8 +1004,8 @@ function Win32CompareWideString(const s1, s2 : WideString) : PtrInt;
if GetLastError<>0 then
RaiseLastOSError;
end;
function Win32CompareTextWideString(const s1, s2 : WideString) : PtrInt;
begin
SetLastError(0);
@ -1012,8 +1014,8 @@ function Win32CompareTextWideString(const s1, s2 : WideString) : PtrInt;
if GetLastError<>0 then
RaiseLastOSError;
end;
{ there is a similiar procedure in the system unit which inits the fields which
are relevant already for the system unit }
procedure InitWin32Widestrings;
@ -1022,14 +1024,18 @@ procedure InitWin32Widestrings;
widestringmanager.CompareTextWideStringProc:=@Win32CompareTextWideString;
end;
{$endif HASWIDESTRING}
Initialization
{$ifdef HASWIDESTRING}
InitWin32Widestrings;
{$endif HASWIDESTRING}
InitExceptions; { Initialize exceptions. OS independent }
InitInternational; { Initialize internationalization settings }
InitInternational; { Initialize internationalization settings }
LoadVersionInfo;
InitSysConfigDir;
Finalization
DoneExceptions;
if kernel32dll<>0 then
@ -1039,7 +1045,10 @@ Finalization
end.
{
$Log$
Revision 1.42 2005-02-26 20:43:52 florian
Revision 1.43 2005-03-02 21:10:08 florian
* fixed compilation with 1.0.10
Revision 1.42 2005/02/26 20:43:52 florian
+ WideCompareString and WideCompareText for win32 implemented
Revision 1.41 2005/02/26 14:38:14 florian