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

* fixed a lot of stuff to be delphi compatible

Browse Source 
git-svn-id: trunk@7674 -
This commit is contained in:
florian 2007-06-15 19:51:08 +00:00
parent 87f87bce0b
commit 7a99c517c4
1 changed files with 88 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

162
packages/base/winunits/commctrl.pp
View File

@ -490,7 +490,8 @@ TYPE
LPNMCUSTOMDRAW = ^tagNMCUSTOMDRAWINFO; LPNMCUSTOMDRAW = ^tagNMCUSTOMDRAWINFO;
TNMCUSTOMDRAWINFO = tagNMCUSTOMDRAWINFO; TNMCUSTOMDRAWINFO = tagNMCUSTOMDRAWINFO;
PNMCUSTOMDRAWINFO = ^tagNMCUSTOMDRAWINFO; PNMCUSTOMDRAWINFO = ^tagNMCUSTOMDRAWINFO;
PNMCustomDraw = PNMCUSTOMDRAWINFO;
TNMCustomDraw = tagNMCUSTOMDRAWINFO;
tagNMTTCUSTOMDRAW = Record tagNMTTCUSTOMDRAW = Record
nmcd : NMCUSTOMDRAW; nmcd : NMCUSTOMDRAW;
@ -833,6 +834,8 @@ TYPE
LPHDITEMA = ^_HD_ITEMA; LPHDITEMA = ^_HD_ITEMA;
THD_ITEMA = _HD_ITEMA; THD_ITEMA = _HD_ITEMA;
PHD_ITEMA = ^_HD_ITEMA; PHD_ITEMA = ^_HD_ITEMA;
THDItem = THD_ITEMA;
PHDItem = PHD_ITEMA;
// #define HDITEMA_V1_SIZE CCSIZEOF_STRUCT(HDITEMA, lParam) // #define HDITEMA_V1_SIZE CCSIZEOF_STRUCT(HDITEMA, lParam)
@ -1007,15 +1010,18 @@ CONST
TYPE TYPE
_HD_HITTESTINFO = Record _HD_HITTESTINFO = Record
pt : POINT; case integer of
flags : UINT; 1: (pt : POINT;flags : UINT;iItem : cint);
iItem : cint; { delphi }
2: (point : POINT;dummyflags : UINT;Item : cint);
END; END;
HDHITTESTINFO = _HD_HITTESTINFO; HDHITTESTINFO = _HD_HITTESTINFO;
HD_HITTESTINFO = _HD_HITTESTINFO; HD_HITTESTINFO = _HD_HITTESTINFO;
LPHDHITTESTINFO = ^_HD_HITTESTINFO; LPHDHITTESTINFO = ^_HD_HITTESTINFO;
THD_HITTESTINFO = _HD_HITTESTINFO; THD_HITTESTINFO = _HD_HITTESTINFO;
PHD_HITTESTINFO = ^_HD_HITTESTINFO; PHD_HITTESTINFO = ^_HD_HITTESTINFO;
THDHitTestInfo = THD_HITTESTINFO;
PHDHitTestInfo = LPHDHITTESTINFO;
CONST CONST
@ -1062,7 +1068,7 @@ CONST
HDM_SETORDERARRAY = (HDM_FIRST + 18); HDM_SETORDERARRAY = (HDM_FIRST + 18);
// Macro 28 // Macro 28
Function Header_SetOrderArray( hwnd : hwnd; iCount : WPARAM; lpi : LPARAM):BOOL; Function Header_SetOrderArray( hwnd : hwnd; iCount : WPARAM; lpi : PInteger):BOOL;inline;
// lparam = int array of size HDM_GETITEMCOUNT // lparam = int array of size HDM_GETITEMCOUNT
// the array specifies the order that all items should be displayed. // the array specifies the order that all items should be displayed.
@ -1202,9 +1208,10 @@ CONST
TYPE TYPE
tagNMHEADERA = Record tagNMHEADERA = Record
hdr : NMHDR; hdr : NMHDR;
iItem : cint; case integer of
iButton : cint; 1: (iItem : cint;iButton : cint;pitem : PHDITEMA);
pitem : PHDITEMA; { delphi: }
2: (Item : cint;Button : cint);
END; END;
NMHEADERA = tagNMHEADERA; NMHEADERA = tagNMHEADERA;
LPNMHEADERA = ^tagNMHEADERA; LPNMHEADERA = ^tagNMHEADERA;
@ -1243,7 +1250,8 @@ TYPE
{$ENDIF} {$ENDIF}
HD_NOTIFY = NMHEADER; HD_NOTIFY = NMHEADER;
THDNotify = HD_NOTIFY;
PHDNotify = ^HD_NOTIFY;
tagNMHDDISPINFOW = Record tagNMHDDISPINFOW = Record
hdr : NMHDR; hdr : NMHDR;
@ -5481,6 +5489,8 @@ TYPE
TVITEMW = TV_ITEMW; TVITEMW = TV_ITEMW;
LPTVITEMW = LPTV_ITEMW; LPTVITEMW = LPTV_ITEMW;
{$ENDIF} {$ENDIF}
TTVItem = TVITEMA;
PTVItem = LPTVITEMA;
@ -5523,11 +5533,9 @@ Type
hParent : HTREEITEM; hParent : HTREEITEM;
hInsertAfter : HTREEITEM; hInsertAfter : HTREEITEM;
{$ifdef ie4plus} {$ifdef ie4plus}
dumunion : record case boolean of
case boolean of false: (itemex : TVITEMEXA);
false: (itemex : TVITEMEXA;); True: (item : TV_ITEMA);
True: (item : TV_ITEMA;);
end;
{$ELSE} {$ELSE}
item : TV_ITEMA; item : TV_ITEMA;
{$ENDIF} {$ENDIF}
@ -5536,17 +5544,17 @@ Type
LPTVINSERTSTRUCTA = ^tagTVINSERTSTRUCTA; LPTVINSERTSTRUCTA = ^tagTVINSERTSTRUCTA;
TTVINSERTSTRUCTA = tagTVINSERTSTRUCTA; TTVINSERTSTRUCTA = tagTVINSERTSTRUCTA;
PTVINSERTSTRUCTA = ^tagTVINSERTSTRUCTA; PTVINSERTSTRUCTA = ^tagTVINSERTSTRUCTA;
TTVINSERTSTRUCT = TTVINSERTSTRUCTA;
PTVINSERTSTRUCT = PTVINSERTSTRUCTA;
tagTVINSERTSTRUCTW = Record tagTVINSERTSTRUCTW = Record
hParent : HTREEITEM; hParent : HTREEITEM;
hInsertAfter : HTREEITEM; hInsertAfter : HTREEITEM;
{$ifdef ie4plus} {$ifdef ie4plus}
dumunion : record case boolean of
case boolean of
false: (itemex : TVITEMEXW); false: (itemex : TVITEMEXW);
True: (item : TV_ITEMW); True: (item : TV_ITEMW);
end;
{$ELSE} {$ELSE}
item : TV_ITEMW; item : TV_ITEMW;
{$ENDIF} {$ENDIF}
@ -5596,7 +5604,8 @@ TYPE
// Macro 156 // Macro 156
Function TreeView_InsertItem( hwnd : hwnd; lpis : LPTV_INSERTSTRUCT):HTREEITEM; Function TreeView_InsertItem( hwnd : hwnd; lpis : LPTV_INSERTSTRUCT):HTREEITEM;inline;
Function TreeView_InsertItem( hwnd : hwnd; const lpis : TV_INSERTSTRUCT):HTREEITEM;inline;
CONST CONST
TVM_DELETEITEM = (TV_FIRST + 1); TVM_DELETEITEM = (TV_FIRST + 1);
@ -5626,7 +5635,8 @@ CONST
TVM_GETITEMRECT = (TV_FIRST + 4); TVM_GETITEMRECT = (TV_FIRST + 4);
// Macro 160 // Macro 160
Function TreeView_GetItemRect( hwnd : hwnd; hitem: TREEITEM; code : WPARAM; prc : pRECT):BOOL; Function TreeView_GetItemRect( hwnd : hwnd; hitem: TREEITEM; code : WPARAM; prc : pRECT):BOOL;inline;
Function TreeView_GetItemRect( hwnd : hwnd; hitem: HTREEITEM; var prc : TRECT;code : Bool):BOOL;inline;
CONST CONST
TVM_GETCOUNT = (TV_FIRST + 5); TVM_GETCOUNT = (TV_FIRST + 5);
@ -5688,42 +5698,17 @@ CONST
TVSI_NOSINGLEEXPAND = $8000; // Should not conflict with TVGN flags. TVSI_NOSINGLEEXPAND = $8000; // Should not conflict with TVGN flags.
{$ENDIF} {$ENDIF}
// Macro 167 function TreeView_GetChild(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
function TreeView_GetNextSibling(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
// #define TreeView_GetChild(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_CHILD) function TreeView_GetPrevSibling(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
// Macro 168 function TreeView_GetParent(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
function TreeView_GetFirstVisible(hwnd:hwnd) : HTREEITEM;inline;
// #define TreeView_GetNextSibling(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_NEXT) function TreeView_GetNextVisible(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
// Macro 169 function TreeView_GetPrevVisible(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
function TreeView_GetSelection(hwnd:hwnd) : HTREEITEM;inline;
// #define TreeView_GetPrevSibling(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUS) function TreeView_GetDropHilight(hwnd:hwnd) : HTREEITEM;inline;
// Macro 170 function TreeView_GetRoot(hwnd:hwnd) : HTREEITEM;inline;
function TreeView_GetLastVisible(hwnd:hwnd) : HTREEITEM;inline;
// #define TreeView_GetParent(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_PARENT)
// Macro 171
// #define TreeView_GetFirstVisible(hwnd) TreeView_GetNextItem(hwnd, NULL, TVGN_FIRSTVISIBLE)
// Macro 172
// #define TreeView_GetNextVisible(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTVISIBLE)
// Macro 173
// #define TreeView_GetPrevVisible(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUSVISIBLE)
// Macro 174
// #define TreeView_GetSelection(hwnd) TreeView_GetNextItem(hwnd, NULL, TVGN_CARET)
// Macro 175
// #define TreeView_GetDropHilight(hwnd) TreeView_GetNextItem(hwnd, NULL, TVGN_DROPHILITE)
// Macro 176
// #define TreeView_GetRoot(hwnd) TreeView_GetNextItem(hwnd, NULL, TVGN_ROOT)
{$ifdef ie4plus}
// Macro 177
// #define TreeView_GetLastVisible(hwnd) TreeView_GetNextItem(hwnd, NULL, TVGN_LASTVISIBLE)
{$ENDIF} // _WIN32_IE >= 0x0400
CONST CONST
@ -5901,7 +5886,8 @@ CONST
// Macro 192 // Macro 192
Function TreeView_EndEditLabelNow( hwnd : hwnd; fCancel : WPARAM):BOOL; Function TreeView_EndEditLabelNow( hwnd : hwnd; fCancel : WPARAM):BOOL;inline;
Function TreeView_EndEditLabelNow( hwnd : hwnd; fCancel : Bool):BOOL;inline;
@ -6159,6 +6145,8 @@ TYPE
LPNMTREEVIEWA = ^tagNMTREEVIEWA; LPNMTREEVIEWA = ^tagNMTREEVIEWA;
TNMTREEVIEWA = tagNMTREEVIEWA; TNMTREEVIEWA = tagNMTREEVIEWA;
PNMTREEVIEWA = ^tagNMTREEVIEWA; PNMTREEVIEWA = ^tagNMTREEVIEWA;
PNMTreeView = PNMTreeViewA;
TNMTreeView = TNMTreeViewA;
@ -6265,7 +6253,8 @@ CONST
TVM_SORTCHILDRENCB = (TV_FIRST + 21); TVM_SORTCHILDRENCB = (TV_FIRST + 21);
// Macro 191 // Macro 191
Function TreeView_SortChildrenCB( hwnd : hwnd;psort :lpTV_sortcb; recurse : WPARAM):BOOL; Function TreeView_SortChildrenCB( hwnd : hwnd;psort :lpTV_sortcb; recurse : WPARAM):BOOL;inline;
Function TreeView_SortChildrenCB( hwnd : hwnd;const psort :tagTVsortcb; recurse : WPARAM):BOOL;inline;
CONST CONST
TVN_ITEMEXPANDINGA = (TVN_FIRST-5); TVN_ITEMEXPANDINGA = (TVN_FIRST-5);
@ -9279,10 +9268,10 @@ end;
// #define Header_SetOrderArray(hwnd, iCount, lpi) \ // #define Header_SetOrderArray(hwnd, iCount, lpi) \
// (BOOL)SNDMSG((hwnd), HDM_SETORDERARRAY, (WPARAM)(iCount), (LPARAM)(lpi)) // (BOOL)SNDMSG((hwnd), HDM_SETORDERARRAY, (WPARAM)(iCount), (LPARAM)(lpi))
Function Header_SetOrderArray( hwnd : hwnd; iCount : WPARAM; lpi : LPARAM):BOOL; Function Header_SetOrderArray( hwnd : hwnd; iCount : WPARAM; lpi : PInteger):BOOL;inline;
Begin Begin
Result:=BOOL(SendMessage((hwnd), HDM_SETORDERARRAY, iCount, lpi)) Result:=BOOL(SendMessage((hwnd), HDM_SETORDERARRAY, iCount, LPARAM(lpi)))
end; end;
@ -10683,12 +10672,17 @@ end;
// #define TreeView_InsertItem(hwnd, lpis) \ // #define TreeView_InsertItem(hwnd, lpis) \
// (HTREEITEM)SNDMSG((hwnd), TVM_INSERTITEM, 0, (LPARAM)(LPTV_INSERTSTRUCT)(lpis)) // (HTREEITEM)SNDMSG((hwnd), TVM_INSERTITEM, 0, (LPARAM)(LPTV_INSERTSTRUCT)(lpis))
Function TreeView_InsertItem( hwnd : hwnd; lpis : LPTV_INSERTSTRUCT):HTREEITEM; Function TreeView_InsertItem( hwnd : hwnd; lpis : LPTV_INSERTSTRUCT):HTREEITEM;inline;
Begin Begin
Result:=HTREEITEM(SendMessage((hwnd), TVM_INSERTITEM, 0, LPARAM(lpis))); Result:=HTREEITEM(SendMessage((hwnd), TVM_INSERTITEM, 0, LPARAM(lpis)));
end; end;
Function TreeView_InsertItem( hwnd : hwnd; const lpis : TV_INSERTSTRUCT):HTREEITEM;inline;
Begin
Result:=HTREEITEM(SendMessage((hwnd), TVM_INSERTITEM, 0, LPARAM(@lpis)));
end;
// Macro 157 // Macro 157
// #define TreeView_DeleteItem(hwnd, hitem) \ // #define TreeView_DeleteItem(hwnd, hitem) \
// (BOOL)SNDMSG((hwnd), TVM_DELETEITEM, 0, (LPARAM)(HTREEITEM)(hitem)) // (BOOL)SNDMSG((hwnd), TVM_DELETEITEM, 0, (LPARAM)(HTREEITEM)(hitem))
@ -10723,12 +10717,18 @@ end;
// #define TreeView_GetItemRect(hwnd, hitem, prc, code) \ // #define TreeView_GetItemRect(hwnd, hitem, prc, code) \
// (*(HTREEITEM *)prc = (hitem), (BOOL)SNDMSG((hwnd), TVM_GETITEMRECT, (WPARAM)(code), (LPARAM)(RECT *)(prc))) // (*(HTREEITEM *)prc = (hitem), (BOOL)SNDMSG((hwnd), TVM_GETITEMRECT, (WPARAM)(code), (LPARAM)(RECT *)(prc)))
Function TreeView_GetItemRect( hwnd : hwnd; hitem: TREEITEM; code : WPARAM; prc : pRECT):BOOL; Function TreeView_GetItemRect( hwnd : hwnd; hitem: TREEITEM; code : WPARAM; prc : pRECT):BOOL;inline;
Begin Begin
HTREEITEM(prc)^:=HITEM; HTREEITEM(prc)^:=HITEM;
Result:=Bool(SendMessage((hwnd), TVM_GETITEMRECT, code, LPARAM(prc))); Result:=Bool(SendMessage((hwnd), TVM_GETITEMRECT, code, LPARAM(prc)));
end; end;
Function TreeView_GetItemRect( hwnd : hwnd; hitem: HTREEITEM; var prc : TRECT;code : Bool):BOOL;inline;
Begin
HTREEITEM(Pointer(@prc)^):=HITEM;
Result:=Bool(SendMessage((hwnd), TVM_GETITEMRECT, WPARAM(code), LPARAM(@prc)));
end;
// Macro 161 // Macro 161
// #define TreeView_GetCount(hwnd) \ // #define TreeView_GetCount(hwnd) \
// (UINT)SNDMSG((hwnd), TVM_GETCOUNT, 0, 0) // (UINT)SNDMSG((hwnd), TVM_GETCOUNT, 0, 0)
@ -10828,7 +10828,7 @@ end;
// #define TreeView_GetFirstVisible(hwnd:hwnd); // #define TreeView_GetFirstVisible(hwnd:hwnd);
// TreeView_GetNextItem(hwnd, NULL, TVGN_FIRSTVISIBLE) // TreeView_GetNextItem(hwnd, NULL, TVGN_FIRSTVISIBLE)
function TreeView_GetFirstVisible(hwnd:hwnd) : HTREEITEM; function TreeView_GetFirstVisible(hwnd:hwnd) : HTREEITEM;inline;
begin begin
Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_FIRSTVISIBLE) Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_FIRSTVISIBLE)
end; end;
@ -10837,7 +10837,7 @@ end;
//#define TreeView_GetNextVisible(hwnd:hwnd; hitem:HTREEITEM); //#define TreeView_GetNextVisible(hwnd:hwnd; hitem:HTREEITEM);
//(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTVISIBLE) //(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTVISIBLE)
function TreeView_GetNextVisible(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM; function TreeView_GetNextVisible(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
begin begin
Result:=TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTVISIBLE) Result:=TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTVISIBLE)
end; end;
@ -10847,16 +10847,16 @@ end;
// (hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUSVISIBLE) // (hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUSVISIBLE)
function TreeView_GetPrevVisible(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM; function TreeView_GetPrevVisible(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
Begin Begin
Result:=TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUSVISIBLE) Result:=TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUSVISIBLE);
end; end;
// Macro 174 // Macro 174
Procedure TreeView_GetSelection(hwnd:hwnd); function TreeView_GetSelection(hwnd:hwnd) : HTREEITEM;inline;
begin begin
TreeView_GetNextItem(hwnd, NIL, TVGN_CARET) Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_CARET);
end; end;
// Macro 175 // Macro 175
@ -10864,26 +10864,26 @@ end;
//#define TreeView_GetDropHilight(hwnd:hwnd); //#define TreeView_GetDropHilight(hwnd:hwnd);
//TreeView_GetNextItem(hwnd, NULL, TVGN_DROPHILITE) //TreeView_GetNextItem(hwnd, NULL, TVGN_DROPHILITE)
Procedure TreeView_GetDropHilight(hwnd:hwnd); function TreeView_GetDropHilight(hwnd:hwnd) : HTREEITEM;inline;
begin begin
TreeView_GetNextItem(hwnd, NIL, TVGN_DROPHILITE) Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_DROPHILITE);
end; end;
// Macro 176 // Macro 176
Procedure TreeView_GetRoot(hwnd:hwnd); function TreeView_GetRoot(hwnd:hwnd) : HTREEITEM;inline;
begin begin
TreeView_GetNextItem(hwnd, NIL, TVGN_ROOT) TreeView_GetNextItem(hwnd, NIL, TVGN_ROOT);
end; end;
// Macro 177 // Macro 177
//#define TreeView_GetLastVisible(hwnd:hwnd); //#define TreeView_GetLastVisible(hwnd:hwnd);
//TreeView_GetNextItem(hwnd, NULL, TVGN_LASTVISIBLE) //TreeView_GetNextItem(hwnd, NULL, TVGN_LASTVISIBLE)
Procedure TreeView_GetLastVisible(hwnd:hwnd); function TreeView_GetLastVisible(hwnd:hwnd) : HTREEITEM;inline;
begin begin
TreeView_GetNextItem(hwnd, NIL, TVGN_LASTVISIBLE) TreeView_GetNextItem(hwnd, NIL, TVGN_LASTVISIBLE)
end; end;
@ -11035,25 +11035,39 @@ end;
// (BOOL)SNDMSG((hwnd), TVM_SORTCHILDRENCB, (WPARAM)(recurse), \ // (BOOL)SNDMSG((hwnd), TVM_SORTCHILDRENCB, (WPARAM)(recurse), \
// (LPARAM)(LPTV_SORTCB)(psort)) // (LPARAM)(LPTV_SORTCB)(psort))
Function TreeView_SortChildrenCB( hwnd : hwnd;psort :lpTV_sortcb; recurse : WPARAM):BOOL; Function TreeView_SortChildrenCB( hwnd : hwnd;psort :lpTV_sortcb; recurse : WPARAM):BOOL;inline;
Begin Begin
Result:=BOOL(SendMessage((hwnd), TVM_SORTCHILDRENCB, recurse, LPARAM(psort))) Result:=BOOL(SendMessage((hwnd), TVM_SORTCHILDRENCB, recurse, LPARAM(psort)))
end; end;
Function TreeView_SortChildrenCB( hwnd : hwnd;const psort :tagTVsortcb; recurse : WPARAM):BOOL;inline;
Begin
Result:=BOOL(SendMessage((hwnd), TVM_SORTCHILDRENCB, recurse, LPARAM(@psort)))
end;
// Macro 192 // Macro 192
//#define TreeView_EndEditLabelNow(hwnd, fCancel) \ //#define TreeView_EndEditLabelNow(hwnd, fCancel) \
// (BOOL)SNDMSG((hwnd), TVM_ENDEDITLABELNOW, (WPARAM)(fCancel), 0) // (BOOL)SNDMSG((hwnd), TVM_ENDEDITLABELNOW, (WPARAM)(fCancel), 0)
Function TreeView_EndEditLabelNow( hwnd : hwnd; fCancel : WPARAM):BOOL; Function TreeView_EndEditLabelNow( hwnd : hwnd; fCancel : WPARAM):BOOL;inline;
Begin Begin
Result:=BOOL(SendMessage((hwnd), TVM_ENDEDITLABELNOW, fCancel, 0)) Result:=BOOL(SendMessage((hwnd), TVM_ENDEDITLABELNOW, fCancel, 0))
end; end;
Function TreeView_EndEditLabelNow( hwnd : hwnd; fCancel : Bool):BOOL;inline;
Begin
Result:=BOOL(SendMessage((hwnd), TVM_ENDEDITLABELNOW, WPARAM(fCancel), 0))
end;
// Macro 193 // Macro 193
//#define TreeView_SetToolTips(hwnd, hwndTT) \ //#define TreeView_SetToolTips(hwnd, hwndTT) \