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

* change ref to constref for REF*IID types of recently added functions(HIMAGELIST_QueryInterface and ImageList_CoCreateInstance). These are declared without pointer in FPC, but MSDN says it is a pointer. Analoguous to queryinterface in iunknown.

Browse Source
This commit is contained in:
marcoonthegit 2025-06-27 18:16:34 +02:00
parent b1ddc57f5d
commit 80d9863c7a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/winunits-base/src/commctrl.pp
View File

@ -632,7 +632,7 @@ CONST
function ImageList_Create(cx:cint;cy:cint;flags:UINT;cInitial:cint;cGrow:cint):HIMAGELIST; stdcall; external commctrldll name 'ImageList_Create'; function ImageList_Create(cx:cint;cy:cint;flags:UINT;cInitial:cint;cGrow:cint):HIMAGELIST; stdcall; external commctrldll name 'ImageList_Create';
function ImageList_Destroy(himl:HIMAGELIST):BOOL; stdcall; external commctrldll name 'ImageList_Destroy'; function ImageList_Destroy(himl:HIMAGELIST):BOOL; stdcall; external commctrldll name 'ImageList_Destroy';
function ImageList_CoCreateInstance(const rclsid:TCLSID; unkOuter:IUnknown; const riid:TIID;out ppv):HRESULT;stdcall; external commctrldll name 'ImageList_CoCreateInstance'; function ImageList_CoCreateInstance(constref rclsid:TCLSID; unkOuter:IUnknown; const riid:TIID;out ppv):HRESULT;stdcall; external commctrldll name 'ImageList_CoCreateInstance';
function ImageList_GetImageCount(himl:HIMAGELIST):cint; stdcall; external commctrldll name 'ImageList_GetImageCount'; function ImageList_GetImageCount(himl:HIMAGELIST):cint; stdcall; external commctrldll name 'ImageList_GetImageCount';
{$ifdef ie3plus} {$ifdef ie3plus}
@ -650,7 +650,7 @@ function ImageList_SetOverlayImage(himl:HIMAGELIST;iImage:cint;iOverlay:cint):BO
Function ImageList_AddIcon(Himl:HIMAGELIST;hicon:HICON):cint; Function ImageList_AddIcon(Himl:HIMAGELIST;hicon:HICON):cint;
// Vista++ // Vista++
function HIMAGELIST_QueryInterface(himl : HIMAGELIST;const riid : REFIID; out ppv) : HRESULT; stdcall; external commctrldll name 'HIMAGELIST_QueryInterface'; function HIMAGELIST_QueryInterface(himl : HIMAGELIST;constref riid : REFIID; out ppv) : HRESULT; stdcall; external commctrldll name 'HIMAGELIST_QueryInterface';
CONST CONST
ILD_NORMAL = $00000000; ILD_NORMAL = $00000000;