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

* fixed createdc to be D4 compatible

Browse Source
This commit is contained in:
peter 1999-09-28 22:29:59 +00:00
parent 24fceb0a6c
commit bb74ee227d
4 changed files with 24 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/win32/wininc/ascdef.inc
View File

@ -690,7 +690,7 @@ uses
{ was #define dname(params) def_expr }
function DialogBoxIndirect(hInstance:HINST; hDialogTemplate:LPCDLGTEMPLATE; hWndParent:HWND; lpDialogFunc:DLGPROC):longint;
function CreateDC(_para1:LPCSTR; _para2:LPCSTR; _para3:LPCSTR; var _para4:DEVMODE):HDC;
function CreateDC(_para1:LPCSTR; _para2:LPCSTR; _para3:LPCSTR; _para4:pDEVMODE):HDC;
function VerInstallFile(uFlags:DWORD; szSrcFileName:LPSTR; szDestFileName:LPSTR; szSrcDir:LPSTR; szDestDir:LPSTR;
szCurDir:LPSTR; szTmpFile:LPSTR; lpuTmpFileLen:PUINT):DWORD;
@ -1578,7 +1578,7 @@ uses
DialogBoxIndirect:=DialogBoxIndirectParam(hInstance,hDialogTemplate,hWndParent,lpDialogFunc,0);
end;
function CreateDC(_para1:LPCSTR; _para2:LPCSTR; _para3:LPCSTR; var _para4:DEVMODE):HDC; external 'gdi32' name 'CreateDCA';
function CreateDC(_para1:LPCSTR; _para2:LPCSTR; _para3:LPCSTR; _para4:pDEVMODE):HDC; external 'gdi32' name 'CreateDCA';
function VerInstallFile(uFlags:DWORD; szSrcFileName:LPSTR; szDestFileName:LPSTR; szSrcDir:LPSTR; szDestDir:LPSTR;
szCurDir:LPSTR; szTmpFile:LPSTR; lpuTmpFileLen:PUINT):DWORD; external 'version' name 'VerInstallFileA';
@ -1822,11 +1822,11 @@ end.
{$endif not windows_include_files}
{
$Log$
Revision 1.1 1999-09-16 13:38:22 peter
* windows unit include moved to wininc/
Revision 1.2 1999-09-28 22:29:59 peter
* fixed createdc to be D4 compatible
Revision 1.14 1999/07/14 08:46:26 florian
* some fixes (KEY_EVENT_STRUCT was wrong)
Revision 1.1 1999/09/16 13:38:22 peter
* windows unit include moved to wininc/
Revision 1.11 1999/07/06 22:44:10 florian
* some fixes to compile ddraw units from the jedi project

9
rtl/win32/wininc/ascfun.inc
View File

@ -690,7 +690,7 @@ uses
{ was #define dname(params) def_expr }
function DialogBoxIndirectA(hInstance:HINST; hDialogTemplate:LPCDLGTEMPLATE; hWndParent:HWND; lpDialogFunc:DLGPROC):longint;
function CreateDCA(_para1:LPCSTR; _para2:LPCSTR; _para3:LPCSTR; var _para4:DEVMODE):HDC;
function CreateDCA(_para1:LPCSTR; _para2:LPCSTR; _para3:LPCSTR; _para4:pDEVMODE):HDC;
function VerInstallFileA(uFlags:DWORD; szSrcFileName:LPSTR; szDestFileName:LPSTR; szSrcDir:LPSTR; szDestDir:LPSTR;
szCurDir:LPSTR; szTmpFile:LPSTR; lpuTmpFileLen:PUINT):DWORD;
@ -1578,7 +1578,7 @@ uses
DialogBoxIndirectA:=DialogBoxIndirectParamA(hInstance,hDialogTemplate,hWndParent,lpDialogFunc,0);
end;
function CreateDCA(_para1:LPCSTR; _para2:LPCSTR; _para3:LPCSTR; var _para4:DEVMODE):HDC; external 'gdi32' name 'CreateDCA';
function CreateDCA(_para1:LPCSTR; _para2:LPCSTR; _para3:LPCSTR; _para4:pDEVMODE):HDC; external 'gdi32' name 'CreateDCA';
function VerInstallFileA(uFlags:DWORD; szSrcFileName:LPSTR; szDestFileName:LPSTR; szSrcDir:LPSTR; szDestDir:LPSTR;
szCurDir:LPSTR; szTmpFile:LPSTR; lpuTmpFileLen:PUINT):DWORD; external 'version' name 'VerInstallFileA';
@ -1822,7 +1822,10 @@ end.
{$endif not windows_include_files}
{
$Log$
Revision 1.1 1999-09-16 13:38:22 peter
Revision 1.2 1999-09-28 22:30:00 peter
* fixed createdc to be D4 compatible
Revision 1.1 1999/09/16 13:38:22 peter
* windows unit include moved to wininc/
Revision 1.11 1999/07/06 22:44:10 florian

12
rtl/win32/wininc/unidef.inc
View File

@ -702,7 +702,7 @@ uses
{ was #define dname(params) def_expr }
function DialogBoxIndirect(hInstance:HINST; lpTemplate:LPCDLGTEMPLATE; hWndParent:HWND; lpDialogFunc:DLGPROC):longint;
function CreateDC(_para1:LPCWSTR; _para2:LPCWSTR; _para3:LPCWSTR; var _para4:DEVMODE):HDC;
function CreateDC(_para1:LPCWSTR; _para2:LPCWSTR; _para3:LPCWSTR; _para4:pDEVMODE):HDC;
function CreateFontA(_para1:longint; _para2:longint; _para3:longint; _para4:longint; _para5:longint;
_para6:DWORD; _para7:DWORD; _para8:DWORD; _para9:DWORD; _para10:DWORD;
@ -1597,7 +1597,7 @@ uses
DialogBoxIndirect:=DialogBoxIndirectParam(hInstance,lpTemplate,hWndParent,lpDialogFunc,0);
end;
function CreateDC(_para1:LPCWSTR; _para2:LPCWSTR; _para3:LPCWSTR; var _para4:DEVMODE):HDC; external 'gdi32' name 'CreateDCW';
function CreateDC(_para1:LPCWSTR; _para2:LPCWSTR; _para3:LPCWSTR; _para4:pDEVMODE):HDC; external 'gdi32' name 'CreateDCW';
function CreateFontA(_para1:longint; _para2:longint; _para3:longint; _para4:longint; _para5:longint;
_para6:DWORD; _para7:DWORD; _para8:DWORD; _para9:DWORD; _para10:DWORD;
@ -1837,11 +1837,11 @@ end.
{$endif not windows_include_files}
{
$Log$
Revision 1.1 1999-09-16 13:38:24 peter
* windows unit include moved to wininc/
Revision 1.2 1999-09-28 22:30:00 peter
* fixed createdc to be D4 compatible
Revision 1.13 1999/07/14 08:46:29 florian
* some fixes (KEY_EVENT_STRUCT was wrong)
Revision 1.1 1999/09/16 13:38:24 peter
* windows unit include moved to wininc/
Revision 1.10 1999/07/06 22:44:17 florian
* some fixes to compile ddraw units from the jedi project

9
rtl/win32/wininc/unifun.inc
View File

@ -702,7 +702,7 @@ uses
{ was #define dname(params) def_expr }
function DialogBoxIndirectW(hInstance:HINST; lpTemplate:LPCDLGTEMPLATE; hWndParent:HWND; lpDialogFunc:DLGPROC):longint;
function CreateDCW(_para1:LPCWSTR; _para2:LPCWSTR; _para3:LPCWSTR; var _para4:DEVMODE):HDC;
function CreateDCW(_para1:LPCWSTR; _para2:LPCWSTR; _para3:LPCWSTR; _para4:pDEVMODE):HDC;
function CreateFontA(_para1:longint; _para2:longint; _para3:longint; _para4:longint; _para5:longint;
_para6:DWORD; _para7:DWORD; _para8:DWORD; _para9:DWORD; _para10:DWORD;
@ -1597,7 +1597,7 @@ uses
DialogBoxIndirectW:=DialogBoxIndirectParamW(hInstance,lpTemplate,hWndParent,lpDialogFunc,0);
end;
function CreateDCW(_para1:LPCWSTR; _para2:LPCWSTR; _para3:LPCWSTR; var _para4:DEVMODE):HDC; external 'gdi32' name 'CreateDCW';
function CreateDCW(_para1:LPCWSTR; _para2:LPCWSTR; _para3:LPCWSTR; _para4:pDEVMODE):HDC; external 'gdi32' name 'CreateDCW';
function CreateFontA(_para1:longint; _para2:longint; _para3:longint; _para4:longint; _para5:longint;
_para6:DWORD; _para7:DWORD; _para8:DWORD; _para9:DWORD; _para10:DWORD;
@ -1837,7 +1837,10 @@ end.
{$endif not windows_include_files}
{
$Log$
Revision 1.1 1999-09-16 13:38:24 peter
Revision 1.2 1999-09-28 22:30:00 peter
* fixed createdc to be D4 compatible
Revision 1.1 1999/09/16 13:38:24 peter
* windows unit include moved to wininc/
Revision 1.10 1999/07/06 22:44:17 florian