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

* some updates to compile API units for win32

Browse Source
This commit is contained in:
florian 1999-01-09 07:29:46 +00:00
parent 1896be988f
commit efeab84797
4 changed files with 28 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win32/ascdef.pp
View File

@ -825,6 +825,7 @@ unit ascdef;
function ReadConsoleOutput(hConsoleOutput:HANDLE; lpBuffer:PCHAR_INFO; dwBufferSize:COORD; dwBufferCoord:COORD; lpReadRegion:PSMALL_RECT):WINBOOL;
function WriteConsoleOutput(hConsoleOutput:HANDLE; var lpBuffer:CHAR_INFO; dwBufferSize:COORD; dwBufferCoord:COORD; lpWriteRegion:PSMALL_RECT):WINBOOL;
function WriteConsoleOutput(hConsoleOutput:HANDLE; lpBuffer : pointer; dwBufferSize:COORD; dwBufferCoord:COORD; var lpWriteRegion : SMALL_RECT):WINBOOL;
function ReadConsoleOutputCharacter(hConsoleOutput:HANDLE; lpCharacter:LPSTR; nLength:DWORD; dwReadCoord:COORD; lpNumberOfCharsRead:LPDWORD):WINBOOL;
@ -1726,6 +1727,7 @@ unit ascdef;
function ReadConsoleOutput(hConsoleOutput:HANDLE; lpBuffer:PCHAR_INFO; dwBufferSize:COORD; dwBufferCoord:COORD; lpReadRegion:PSMALL_RECT):WINBOOL; external 'kernel32' name 'ReadConsoleOutputA';
function WriteConsoleOutput(hConsoleOutput:HANDLE; var lpBuffer:CHAR_INFO; dwBufferSize:COORD; dwBufferCoord:COORD; lpWriteRegion:PSMALL_RECT):WINBOOL; external 'kernel32' name 'WriteConsoleOutputA';
function WriteConsoleOutput(hConsoleOutput:HANDLE; lpBuffer : pointer; dwBufferSize:COORD; dwBufferCoord:COORD; var lpWriteRegion : SMALL_RECT):WINBOOL; external 'kernel32' name 'WriteConsoleOutputA';
function ReadConsoleOutputCharacter(hConsoleOutput:HANDLE; lpCharacter:LPSTR; nLength:DWORD; dwReadCoord:COORD; lpNumberOfCharsRead:LPDWORD):WINBOOL; external 'kernel32' name 'ReadConsoleOutputCharacterA';
@ -1850,7 +1852,10 @@ end.
{$endif not windows_include_files}
{
$Log$
Revision 1.6 1999-01-07 15:52:22 peter
Revision 1.7 1999-01-09 07:29:46 florian
* some updates to compile API units for win32
Revision 1.6 1999/01/07 15:52:22 peter
* removed winspool requirement
Revision 1.5 1998/10/27 11:17:07 peter

7
rtl/win32/base.pp
View File

@ -545,7 +545,7 @@ interface
WNDPROC = function (_para1:HWND; _para2:UINT; _para3:WPARAM; _para4:LPARAM):LRESULT;
FARPROC = pointer; {function :longint;}
FARPROC = pointer;
PROC = FARPROC;
@ -960,7 +960,10 @@ end.
{
$Log$
Revision 1.9 1998-12-28 23:35:14 peter
Revision 1.10 1999-01-09 07:29:47 florian
* some updates to compile API units for win32
Revision 1.9 1998/12/28 23:35:14 peter
* small fixes for better compatibility
Revision 1.8 1998/10/27 11:17:11 peter

9
rtl/win32/func.pp
View File

@ -3457,10 +3457,12 @@ in define line 6852 *)
function GetNumberOfConsoleInputEvents(hConsoleInput:HANDLE; lpNumberOfEvents:LPDWORD):WINBOOL;
function GetConsoleScreenBufferInfo(hConsoleOutput:HANDLE; lpConsoleScreenBufferInfo:PCONSOLE_SCREEN_BUFFER_INFO):WINBOOL;
function GetConsoleScreenBufferInfo(hConsoleOutput:HANDLE; var lpConsoleScreenBufferInfo:CONSOLE_SCREEN_BUFFER_INFO):WINBOOL;
function GetLargestConsoleWindowSize(hConsoleOutput:HANDLE):COORD;
function GetConsoleCursorInfo(hConsoleOutput:HANDLE; lpConsoleCursorInfo:PCONSOLE_CURSOR_INFO):WINBOOL;
function GetConsoleCursorInfo(hConsoleOutput:HANDLE; var lpConsoleCursorInfo:CONSOLE_CURSOR_INFO):WINBOOL;
function GetNumberOfConsoleMouseButtons(lpNumberOfMouseButtons:LPDWORD):WINBOOL;
@ -6592,10 +6594,12 @@ in define line 6826 *)
function GetNumberOfConsoleInputEvents(hConsoleInput:HANDLE; lpNumberOfEvents:LPDWORD):WINBOOL; external 'kernel32' name 'GetNumberOfConsoleInputEvents';
function GetConsoleScreenBufferInfo(hConsoleOutput:HANDLE; lpConsoleScreenBufferInfo:PCONSOLE_SCREEN_BUFFER_INFO):WINBOOL; external 'kernel32' name 'GetConsoleScreenBufferInfo';
function GetConsoleScreenBufferInfo(hConsoleOutput:HANDLE; var lpConsoleScreenBufferInfo: CONSOLE_SCREEN_BUFFER_INFO):WINBOOL; external 'kernel32' name 'GetConsoleScreenBufferInfo';
function GetLargestConsoleWindowSize(hConsoleOutput:HANDLE):COORD; external 'kernel32' name 'GetLargestConsoleWindowSize';
function GetConsoleCursorInfo(hConsoleOutput:HANDLE; lpConsoleCursorInfo:PCONSOLE_CURSOR_INFO):WINBOOL; external 'kernel32' name 'GetConsoleCursorInfo';
function GetConsoleCursorInfo(hConsoleOutput:HANDLE; var lpConsoleCursorInfo:CONSOLE_CURSOR_INFO):WINBOOL; external 'kernel32' name 'GetConsoleCursorInfo';
function GetNumberOfConsoleMouseButtons(lpNumberOfMouseButtons:LPDWORD):WINBOOL; external 'kernel32' name 'GetNumberOfConsoleMouseButtons';
@ -6775,7 +6779,10 @@ end.
{$endif not windows_include_files}
{
$Log$
Revision 1.7 1998-12-28 23:35:15 peter
Revision 1.8 1999-01-09 07:29:48 florian
* some updates to compile API units for win32
Revision 1.7 1998/12/28 23:35:15 peter
* small fixes for better compatibility
Revision 1.6 1998/10/27 11:17:14 peter

10
rtl/win32/windows.pp
View File

@ -30,6 +30,7 @@ unit windows;
{$i defines.pp}
{$i messages.pp}
{$i struct.pp}
{$i redef.inc}
{$i ascfun.pp}
{$i unifun.pp}
{$ifdef UNICODE}
@ -59,11 +60,18 @@ const External_library='kernel32';
{$i ascdef.pp}
{$endif UNICODE}
{$i func.pp}
procedure InitializeCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'InitializeCriticalSection';
procedure EnterCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'EnterCriticalSection';
procedure LeaveCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'LeaveCriticalSection';
procedure DeleteCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'DeleteCriticalSection';
end.
{
$Log$
Revision 1.1 1998-08-31 11:54:02 pierre
Revision 1.2 1999-01-09 07:29:51 florian
* some updates to compile API units for win32
Revision 1.1 1998/08/31 11:54:02 pierre
* compilable windows.pp file
still to do :
- findout problems