paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 11:06:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bugs 1398,1399,1400

Browse Source
This commit is contained in:
peter 2001-02-09 23:08:31 +00:00
parent 38305e0a1a
commit d479e3f071
2 changed files with 57 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4774,6 +4774,8 @@
TMPF_VECTOR = $2; TMPF_VECTOR = $2;
TMPF_TRUETYPE = $4; TMPF_TRUETYPE = $4;
TMPF_DEVICE = $8; TMPF_DEVICE = $8;
WM_CTLCOLOR = 25;
{ --------------------- old stuff, need to organize! --------------- } { --------------------- old stuff, need to organize! --------------- }
{ BEGINNING of windowsx.h stuff from old headers: } { BEGINNING of windowsx.h stuff from old headers: }
{ Not convertable by H2PAS { Not convertable by H2PAS
@ -5721,10 +5723,13 @@ const
{ {
$Log$ $Log$
Revision 1.3 2000-12-30 22:40:45 peter Revision 1.4 2001-02-09 23:08:31 peter
* fixed bugs 1398,1399,1400
Revision 1.3 2000/12/30 22:40:45 peter
* added cds_fullscreen * added cds_fullscreen
Revision 1.2 2000/07/13 11:33:59 michael Revision 1.2 2000/07/13 11:33:59 michael
+ removed logs + removed logs
} }

52
rtl/win32/wininc/func.inc
View File

@ -616,6 +616,7 @@ function SetParent(hWndChild:HWND; hWndNewParent:HWND):HWND; external 'user32' n
function EnumChildWindows(hWndParent:HWND; lpEnumFunc:ENUMWINDOWSPROC; lParam:LPARAM):WINBOOL; external 'user32' name 'EnumChildWindows'; function EnumChildWindows(hWndParent:HWND; lpEnumFunc:ENUMWINDOWSPROC; lParam:LPARAM):WINBOOL; external 'user32' name 'EnumChildWindows';
function EnumWindows(lpEnumFunc:ENUMWINDOWSPROC; lParam:LPARAM):WINBOOL; external 'user32' name 'EnumWindows'; function EnumWindows(lpEnumFunc:ENUMWINDOWSPROC; lParam:LPARAM):WINBOOL; external 'user32' name 'EnumWindows';
function EnumThreadWindows(dwThreadId:DWORD; lpfn:ENUMWINDOWSPROC; lParam:LPARAM):WINBOOL; external 'user32' name 'EnumThreadWindows'; function EnumThreadWindows(dwThreadId:DWORD; lpfn:ENUMWINDOWSPROC; lParam:LPARAM):WINBOOL; external 'user32' name 'EnumThreadWindows';
function EnumTaskWindows(hTask:HWND; lpfn:FARPROC; lParam: LPARAM): BOOL;external 'user32' name 'EnumTaskWindows';
function GetTopWindow(hWnd:HWND):HWND; external 'user32' name 'GetTopWindow'; function GetTopWindow(hWnd:HWND):HWND; external 'user32' name 'GetTopWindow';
function GetWindowThreadProcessId(hWnd:HWND; lpdwProcessId:LPDWORD):DWORD; external 'user32' name 'GetWindowThreadProcessId'; function GetWindowThreadProcessId(hWnd:HWND; lpdwProcessId:LPDWORD):DWORD; external 'user32' name 'GetWindowThreadProcessId';
function GetLastActivePopup(hWnd:HWND):HWND; external 'user32' name 'GetLastActivePopup'; function GetLastActivePopup(hWnd:HWND):HWND; external 'user32' name 'GetLastActivePopup';
@ -1196,6 +1197,13 @@ function CommDlg_OpenSave_SetControlText(_hdlg:HWND;_id : longint;_text : LPSTR)
function CommDlg_OpenSave_HideControl(_hdlg:HWND;_id : longint) : LRESULT; function CommDlg_OpenSave_HideControl(_hdlg:HWND;_id : longint) : LRESULT;
function CommDlg_OpenSave_SetDefExt(_hdlg:HWND;_pszext : LPSTR) : LRESULT; function CommDlg_OpenSave_SetDefExt(_hdlg:HWND;_pszext : LPSTR) : LRESULT;
function GlobalAllocPtr(flags,cb:DWord):Pointer;
function GlobalFreePtr(lp:Pointer):Pointer;
function GlobalUnlockPtr(lp:pointer):Pointer;
function GlobalLockPtr(lp:pointer):Pointer;
function GlobalReAllocPtr(lp:Pointer;cbNew,flags:DWord):Pointer;
function GlobalPtrHandle(lp:pointer):Pointer;
{$endif read_interface} {$endif read_interface}
@ -1237,6 +1245,43 @@ begin
end; end;
function GlobalAllocPtr(flags,cb:DWord):Pointer;
begin
GlobalAllocPtr:=GlobalLock(GlobalAlloc(flags,cb));
end;
function GlobalFreePtr(lp:Pointer):Pointer;
begin
GlobalFreePtr:=Pointer(GlobalFree(HWND(GlobalUnlockPtr(lp))));
end;
function GlobalUnlockPtr(lp:pointer):Pointer;
begin
GlobalUnlock(GlobalHandle(lp));
GlobalUnlockPtr:=lp;
end;
function GlobalLockPtr(lp:pointer):Pointer;
begin
GlobalLockPtr:=GlobalLock(GlobalHandle(lp));
end;
function GlobalReAllocPtr(lp:Pointer;cbNew,flags:DWord):Pointer;
begin
GlobalReAllocPtr:=GlobalLock(GlobalReAlloc(HWND(GlobalUnlockPtr(lp)),cbNew,flags));
end;
function GlobalPtrHandle(lp:pointer):Pointer;
begin
GlobalPtrHandle:=Pointer(GlobalHandle(lp));
end;
function ImageList_AddIcon(himl:HIMAGELIST; hicon:HICON):longint; function ImageList_AddIcon(himl:HIMAGELIST; hicon:HICON):longint;
begin begin
ImageList_AddIcon:=ImageList_ReplaceIcon(himl,-(1),hicon); ImageList_AddIcon:=ImageList_ReplaceIcon(himl,-(1),hicon);
@ -2181,10 +2226,13 @@ end;
{ {
$Log$ $Log$
Revision 1.3 2001-02-02 20:53:18 peter Revision 1.4 2001-02-09 23:08:31 peter
* fixed bugs 1398,1399,1400
Revision 1.3 2001/02/02 20:53:18 peter
* merged fix for bug 1375 * merged fix for bug 1375
Revision 1.2 2000/07/13 11:33:59 michael Revision 1.2 2000/07/13 11:33:59 michael
+ removed logs + removed logs
} }