From ae79d29107bab616dbb74ca36eb566acc1c927fe Mon Sep 17 00:00:00 2001 From: marcoonthegit Date: Thu, 9 Nov 2023 14:16:47 +0100 Subject: [PATCH] * add pointer variant fo createconsolescreenbuffer, move old VAR definition to redef for compat. (cherry picked from commit b6999496a7935d04d4aaa6c575294e2af3f055f1) --- rtl/win/wininc/func.inc | 2 +- rtl/win/wininc/redef.inc | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/rtl/win/wininc/func.inc b/rtl/win/wininc/func.inc index 4aeb1e6969..ca0dabd858 100644 --- a/rtl/win/wininc/func.inc +++ b/rtl/win/wininc/func.inc @@ -994,7 +994,7 @@ function SetConsoleCtrlHandler(HandlerRoutine:PHANDLER_ROUTINE; Add:WINBOOL):WIN function GenerateConsoleCtrlEvent(dwCtrlEvent:DWORD; dwProcessGroupId:DWORD):WINBOOL; external 'kernel32' name 'GenerateConsoleCtrlEvent'; function AllocConsole:WINBOOL; external 'kernel32' name 'AllocConsole'; function FreeConsole:WINBOOL; external 'kernel32' name 'FreeConsole'; -function CreateConsoleScreenBuffer(dwDesiredAccess:DWORD; dwShareMode:DWORD; var lpSecurityAttributes:SECURITY_ATTRIBUTES; dwFlags:DWORD; lpScreenBufferData:LPVOID):HANDLE; external 'kernel32' name 'CreateConsoleScreenBuffer'; +function CreateConsoleScreenBuffer(dwDesiredAccess:DWORD; dwShareMode:DWORD; lpSecurityAttributes:LPSECURITY_ATTRIBUTES; dwFlags:DWORD; lpScreenBufferData:LPVOID):HANDLE; external 'kernel32' name 'CreateConsoleScreenBuffer'; function GetConsoleCP:UINT; external 'kernel32' name 'GetConsoleCP'; function SetConsoleCP(wCodePageID:UINT):WINBOOL; external 'kernel32' name 'SetConsoleCP'; function GetConsoleOutputCP:UINT; external 'kernel32' name 'GetConsoleOutputCP'; diff --git a/rtl/win/wininc/redef.inc b/rtl/win/wininc/redef.inc index 39c7a372b8..85092da7e8 100644 --- a/rtl/win/wininc/redef.inc +++ b/rtl/win/wininc/redef.inc @@ -312,6 +312,7 @@ function CreateAcceleratorTableW(var Accel; Count: Integer): HACCEL; external 'u function CreateColorSpace(var ColorSpace: TLogColorSpace): HCOLORSPACE;external 'gdi32' name 'CreateColorSpaceA'; function CreateColorSpaceA(var ColorSpace: TLogColorSpaceA): HCOLORSPACE; external 'gdi32' name 'CreateColorSpaceA'; //function CreateColorSpaceW(var ColorSpace: TLogColorSpaceW): HCOLORSPACE; external 'gdi32' name 'CreateColorSpaceW'; +function CreateConsoleScreenBuffer(dwDesiredAccess:DWORD; dwShareMode:DWORD; var lpSecurityAttributes:SECURITY_ATTRIBUTES; dwFlags:DWORD; lpScreenBufferData:LPVOID):HANDLE; external 'kernel32' name 'CreateConsoleScreenBuffer'; function CreateDialogIndirectParam(hInstance: HINST; const lpTemplate: TDlgTemplate; hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND;external 'user32' name 'CreateDialogIndirectParamA'; //function CreateDialogIndirectParamA(hInstance: HINST; const lpTemplate: TDlgTemplate; hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; external 'user32' name 'CreateDialogIndirectParamA'; //function CreateDialogIndirectParamW(hInstance: HINST; const lpTemplate: TDlgTemplate; hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; external 'user32' name 'CreateDialogIndirectParamW';