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

* fix TreeView_GetItemRect reported by 440bx on forum

Browse Source
This commit is contained in:
marcoonthegit 2022-05-07 22:10:27 +02:00
parent c745e2cfba
commit 4a8ddc50b3
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5841,6 +5841,7 @@ CONST
// end_r_commctrl
TYPE
PHTREEITEM = ^HTREEITEM;
HTREEITEM = ^TREEITEM;
CONST
@ -6145,7 +6146,7 @@ CONST
TVM_GETITEMRECT = (TV_FIRST + 4);
// Macro 160
Function TreeView_GetItemRect( hwnd : hwnd; hitem: HTREEITEM; code : WPARAM; prc : pRECT):BOOL;inline;
Function TreeView_GetItemRect( hwnd : hwnd; hitem: HTREEITEM; prc : pRECT;code : WPARAM):BOOL;inline;
Function TreeView_GetItemRect( hwnd : hwnd; hitem: HTREEITEM; var prc : TRECT;code : Bool):BOOL;inline;
CONST
@ -11823,9 +11824,9 @@ end;
// #define TreeView_GetItemRect(hwnd, hitem, prc, code) \
// (*(HTREEITEM *)prc = (hitem), (BOOL)SNDMSG((hwnd), TVM_GETITEMRECT, (WPARAM)(code), (LPARAM)(RECT *)(prc)))
Function TreeView_GetItemRect( hwnd : hwnd; hitem: HTREEITEM; code : WPARAM; prc : pRECT):BOOL;inline;
Function TreeView_GetItemRect( hwnd : hwnd; hitem: HTREEITEM; prc : pRECT; code : WPARAM):BOOL;inline;
Begin
HTREEITEM(prc):=HITEM;
PHTREEITEM(prc)^:=HITEM;
Result:=Bool(SendMessage((hwnd), TVM_GETITEMRECT, code, LPARAM(prc)));
end;