pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

+ added some missing types\const

Browse Source 
* fixed some declarations for x64 support

git-svn-id: https://svn.code.sf.net/p/kolmck/code@132 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck
2014-12-03 09:23:00 +00:00
parent 163c0e1a73
commit 8a2cf167f6
1 changed files with 141 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

206
delphicommctrl.inc
View File

@ -2,7 +2,6 @@
delpicommctrl.inc delpicommctrl.inc
-- included in KOL.pas -- -- included in KOL.pas --
*******************************************************************************} *******************************************************************************}
{$IFNDEF FPC} {$IFNDEF FPC}
{$IFNDEF TMSG_WINDOWS} {$IFNDEF TMSG_WINDOWS}
{$DEFINE TMSG_DECODED} {$DEFINE TMSG_DECODED}
@ -11,12 +10,12 @@
{$IFDEF TMSG_DECODED} {$IFDEF TMSG_DECODED}
{$I MsgDecode.pas} {$I MsgDecode.pas}
type type
TMsg = packed record TMsg = record
CASE Integer OF CASE Integer OF
0: ( 0: (
hwnd: HWND; hwnd: HWND;
message: UINT; message: UINT;
wParam: {$IFDEF _DXE2}Integer{$ELSE}WPARAM{$ENDIF}; wParam: WPARAM;
lParam: LPARAM; lParam: LPARAM;
time: DWORD; time: DWORD;
pt: TPoint; pt: TPoint;
@ -28,6 +27,27 @@ type
tagMSG = TMsg; tagMSG = TMsg;
{$ENDIF TMSG_DECODED} {$ENDIF TMSG_DECODED}
{$IFNDEF _D2009orHigher}
{$IFNDEF WIN64}
type
INT_PTR = Integer;
UINT_PTR = Cardinal;
LONG_PTR = Integer;
ULONG_PTR = Cardinal;
DWORD_PTR = ULONG_PTR;
PINT_PTR = ^INT_PTR;
PUINT_PTR = ^UINT_PTR;
PLONG_PTR = ^LONG_PTR;
PULONG_PTR = ^ULONG_PTR;
PDWORD_PTR = ^DWORD_PTR;
const
GWLP_WNDPROC = GWL_WNDPROC;
GWLP_HINSTANCE = GWL_HINSTANCE;
GWLP_HWNDPARENT = GWL_HWNDPARENT;
GWLP_USERDATA = GWL_USERDATA;
GWLP_ID = GWL_ID;
{$ENDIF}
{$ENDIF}
//////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////
// this part of unit contains definitions moved here from CommCtrl.pas // this part of unit contains definitions moved here from CommCtrl.pas
@ -38,7 +58,7 @@ type
PTCItemA = ^TTCItemA; PTCItemA = ^TTCItemA;
PTCItemW = ^TTCItemW; PTCItemW = ^TTCItemW;
PTCItem = {$IFDEF UNICODE_CTRLS} PTCItemW {$ELSE} PTCItemA {$ENDIF}; PTCItem = {$IFDEF UNICODE_CTRLS} PTCItemW {$ELSE} PTCItemA {$ENDIF};
tagTCITEMA = packed record tagTCITEMA = record
mask: UINT; mask: UINT;
dwState: UINT; dwState: UINT;
dwStateMask: UINT; dwStateMask: UINT;
@ -47,7 +67,7 @@ type
iImage: Integer; iImage: Integer;
lParam: LPARAM; lParam: LPARAM;
end; end;
tagTCITEMW = packed record tagTCITEMW = record
mask: UINT; mask: UINT;
dwState: UINT; dwState: UINT;
dwStateMask: UINT; dwStateMask: UINT;
@ -58,7 +78,7 @@ type
end; end;
PTCKeyDown = ^TTCKeyDown; PTCKeyDown = ^TTCKeyDown;
TTCKEYDOWN = packed record TTCKEYDOWN = record
hdr: TNMHDR; hdr: TNMHDR;
wVKey: Word; wVKey: Word;
flags: UINT; flags: UINT;
@ -500,7 +520,7 @@ const
LVN_SETDISPINFO = {$IFDEF UNICODE_CTRLS} LVN_SETDISPINFOW {$ELSE} LVN_SETDISPINFOA {$ENDIF}; LVN_SETDISPINFO = {$IFDEF UNICODE_CTRLS} LVN_SETDISPINFOW {$ELSE} LVN_SETDISPINFOA {$ENDIF};
type type
tagNMLVODSTATECHANGE = packed record tagNMLVODSTATECHANGE = record
hdr: TNMHdr; hdr: TNMHdr;
iFrom: Integer; iFrom: Integer;
iTo: Integer; iTo: Integer;
@ -512,9 +532,9 @@ type
type type
PLVColumn = ^TLVColumn; PLVColumn = ^TLVColumn;
TLVColumn = packed record TLVColumn = record
mask: DWORD; mask: DWORD;
fmt: DWORD; fmt: Integer;
cx: Integer; cx: Integer;
pszText: PKOL_Char; pszText: PKOL_Char;
cchTextMax: Integer; cchTextMax: Integer;
@ -525,11 +545,11 @@ type
end; end;
PLVItem = ^TLVItem; PLVItem = ^TLVItem;
TLVItem = packed record TLVItem = record
mask: DWORD; mask: DWORD;
iItem: Integer; iItem: Integer;
iSubItem: Integer; iSubItem: Integer;
state: Integer; state: DWORD;
stateMask: DWORD; stateMask: DWORD;
pszText: PKOL_Char; pszText: PKOL_Char;
cchTextMax: Integer; cchTextMax: Integer;
@ -539,13 +559,13 @@ type
end; end;
PLVDispInfo = ^TLVDispInfo; PLVDispInfo = ^TLVDispInfo;
TLVDispInfo = packed record TLVDispInfo = record
hdr: TNMHDR; hdr: TNMHDR;
item: TLVItem; item: TLVItem;
end; end;
PLVFindInfoA = ^TLVFindInfo; PLVFindInfoA = ^TLVFindInfo;
TLVFindInfo = packed record TLVFindInfo = record
flags: UINT; flags: UINT;
psz: PKOLChar; psz: PKOLChar;
lParam: LPARAM; lParam: LPARAM;
@ -553,7 +573,7 @@ type
vkDirection: UINT; vkDirection: UINT;
end; end;
PLVFindInfoW = ^TLVFindInfoW; PLVFindInfoW = ^TLVFindInfoW;
TLVFindInfoW = packed record TLVFindInfoW = record
flags: UINT; flags: UINT;
psz: PWideChar; psz: PWideChar;
lParam: LPARAM; lParam: LPARAM;
@ -561,7 +581,7 @@ type
vkDirection: UINT; vkDirection: UINT;
end; end;
TLVHitTestInfo = packed record TLVHitTestInfo = record
pt: TPoint; pt: TPoint;
flags: DWORD; flags: DWORD;
iItem: Integer; iItem: Integer;
@ -575,19 +595,51 @@ const
LVFI_WRAP = $0020; LVFI_WRAP = $0020;
LVFI_NEARESTXY = $0040; LVFI_NEARESTXY = $0040;
const type
HDM_FIRST = $1200; { Header messages } PHDLayout = ^THDLayout;
HDM_GETITEMW = HDM_FIRST + 11; _HD_LAYOUT = {packed} record
HDM_GETITEMA = HDM_FIRST + 3; Rect: PRect;
HDM_GETITEM = {$IFDEF UNICODE_CTRLS} HDM_GETITEMW {$ELSE} HDM_GETITEMA {$ENDIF}; WindowPos: PWindowPos;
end;
THDLayout = _HD_LAYOUT;
HD_LAYOUT = _HD_LAYOUT;
HDI_WIDTH = $0001; const
HDM_FIRST = $1200; { Header messages }
HDM_GETITEMW = HDM_FIRST + 11;
HDM_GETITEMA = HDM_FIRST + 3;
HDM_GETITEM = {$IFDEF UNICODE_CTRLS} HDM_GETITEMW {$ELSE} HDM_GETITEMA {$ENDIF};
HDM_INSERTITEMA = HDM_FIRST + 1;
HDM_LAYOUT = HDM_FIRST + 5;
HDS_HORZ = $0000;
HDS_BUTTONS = $0002;
HDS_HOTTRACK = $0004;
HDS_HIDDEN = $0008;
HDS_DRAGDROP = $0040;
HDS_FULLDRAG = $0080;
HDS_FILTERBAR = $0100;
HDS_FLAT = $0200;
HDS_CHECKBOXES = $0400;
HDF_CHECKBOX = $0040;
HDF_CHECKED = $0080;
HDF_SORTDOWN = $0200;
HDF_SORTUP = $0400;
HDF_IMAGE = $0800;
HDI_WIDTH = $0001;
HDI_TEXT = $0002;
HDI_FORMAT = $0004;
HDI_LPARAM = $0008;
HDI_IMAGE = $0020;
HDI_ORDER = $0080;
type type
PHDItemA = ^THDItemA; PHDItemA = ^THDItemA;
PHDItemW = ^THDItemW; PHDItemW = ^THDItemW;
PHDItem = {$IFDEF UNICODE_CTRLS} PHDItemW {$ELSE} PHDItemA {$ENDIF}; PHDItem = {$IFDEF UNICODE_CTRLS} PHDItemW {$ELSE} PHDItemA {$ENDIF};
_HD_ITEMA = packed record _HD_ITEMA = record
Mask: Cardinal; Mask: Cardinal;
cxy: Integer; cxy: Integer;
pszText: PAnsiChar; pszText: PAnsiChar;
@ -598,7 +650,7 @@ type
iImage: Integer; // index of bitmap in ImageList iImage: Integer; // index of bitmap in ImageList
iOrder: Integer; // where to draw this item iOrder: Integer; // where to draw this item
end; end;
_HD_ITEMW = packed record _HD_ITEMW = record
Mask: Cardinal; Mask: Cardinal;
cxy: Integer; cxy: Integer;
pszText: PWideChar; pszText: PWideChar;
@ -802,7 +854,7 @@ type
PTVItemA = ^TTVItemA; PTVItemA = ^TTVItemA;
PTVItemW = ^TTVItemW; PTVItemW = ^TTVItemW;
PTVItem = {$IFDEF UNICODE_CTRLS} PTVItemW {$ELSE} PTVItemA {$ENDIF}; PTVItem = {$IFDEF UNICODE_CTRLS} PTVItemW {$ELSE} PTVItemA {$ENDIF};
tagTVITEMA = packed record tagTVITEMA = record
mask: UINT; mask: UINT;
hItem: THandle; hItem: THandle;
state: UINT; state: UINT;
@ -814,7 +866,7 @@ type
cChildren: Integer; cChildren: Integer;
lParam: LPARAM; lParam: LPARAM;
end; end;
tagTVITEMW = packed record tagTVITEMW = record
mask: UINT; mask: UINT;
hItem: THandle; hItem: THandle;
state: UINT; state: UINT;
@ -838,7 +890,7 @@ type
TV_ITEM = {$IFDEF UNICODE_CTRLS} TV_ITEMW {$ELSE} TV_ITEMA {$ENDIF}; TV_ITEM = {$IFDEF UNICODE_CTRLS} TV_ITEMW {$ELSE} TV_ITEMA {$ENDIF};
// only used for Get and Set messages. no notifies // only used for Get and Set messages. no notifies
tagTVITEMEXA = packed record tagTVITEMEXA = record
mask: UINT; mask: UINT;
hItem: THandle; hItem: THandle;
state: UINT; state: UINT;
@ -851,7 +903,7 @@ type
lParam: LPARAM; lParam: LPARAM;
iIntegral: Integer; iIntegral: Integer;
end; end;
tagTVITEMEXW = packed record tagTVITEMEXW = record
mask: UINT; mask: UINT;
hItem: THandle; hItem: THandle;
state: UINT; state: UINT;
@ -875,16 +927,16 @@ type
PNMTreeViewA = ^TNMTreeViewA; PNMTreeViewA = ^TNMTreeViewA;
PNMTreeViewW = ^TNMTreeViewW; PNMTreeViewW = ^TNMTreeViewW;
PNMTreeView = {$IFDEF UNICODE_CTRLS} PNMTreeViewW {$ELSE} PNMTreeViewA {$ENDIF}; PNMTreeView = {$IFDEF UNICODE_CTRLS} PNMTreeViewW {$ELSE} PNMTreeViewA {$ENDIF};
tagNMTREEVIEWA = packed record tagNMTREEVIEWA = record
hdr: TNMHDR; hdr: TNMHDR;
action: Integer; action: DWORD;
itemOld: TTVItemA; itemOld: TTVItemA;
itemNew: TTVItemA; itemNew: TTVItemA;
ptDrag: TPoint; ptDrag: TPoint;
end; end;
tagNMTREEVIEWW = packed record tagNMTREEVIEWW = record
hdr: TNMHDR; hdr: TNMHDR;
action: Integer; action: DWORD;
itemOld: TTVItemW; itemOld: TTVItemW;
itemNew: TTVItemW; itemNew: TTVItemW;
ptDrag: TPoint; ptDrag: TPoint;
@ -900,18 +952,27 @@ type
NM_TREEVIEWW = tagNMTREEVIEWW; NM_TREEVIEWW = tagNMTREEVIEWW;
NM_TREEVIEW = {$IFDEF UNICODE_CTRLS} NM_TREEVIEWW {$ELSE} NM_TREEVIEWA {$ENDIF}; NM_TREEVIEW = {$IFDEF UNICODE_CTRLS} NM_TREEVIEWW {$ELSE} NM_TREEVIEWA {$ENDIF};
tagNMCUSTOMDRAWINFO = packed record tagNMCUSTOMDRAWINFO = record
hdr: TNMHdr; hdr: TNMHdr;
dwDrawStage: DWORD; dwDrawStage: DWORD;
hdc: HDC; hdc: HDC;
rc: TRect; rc: TRect;
dwItemSpec: DWORD; // this is control specific, but it's how to specify an item. valid only with CDDS_ITEM bit set dwItemSpec: DWORD_PTR; // this is control specific, but it's how to specify an item. valid only with CDDS_ITEM bit set
uItemState: UINT; uItemState: UINT;
lItemlParam: LPARAM; lItemlParam: LPARAM;
end; end;
PNMCustomDraw = ^TNMCustomDraw; PNMCustomDraw = ^TNMCustomDraw;
TNMCustomDraw = tagNMCUSTOMDRAWINFO; TNMCustomDraw = tagNMCUSTOMDRAWINFO;
tagNMTVCUSTOMDRAW = {packed} record
nmcd: TNMCustomDraw;
clrText: COLORREF;
clrTextBk: COLORREF;
iLevel: Integer;
end;
PNMTVCustomDraw = ^TNMTVCustomDraw;
TNMTVCustomDraw = tagNMTVCUSTOMDRAW;
const const
// custom draw return flags // custom draw return flags
// values under 0x00010000 are reserved for global custom draw values. // values under 0x00010000 are reserved for global custom draw values.
@ -951,7 +1012,7 @@ const
CDIS_INDETERMINATE = $0100; CDIS_INDETERMINATE = $0100;
type type
tagNMLVCUSTOMDRAW = packed record tagNMLVCUSTOMDRAW = record
nmcd: TNMCustomDraw; nmcd: TNMCustomDraw;
clrText: COLORREF; clrText: COLORREF;
clrTextBk: COLORREF; clrTextBk: COLORREF;
@ -966,11 +1027,11 @@ type
PTVDispInfoA = ^TTVDispInfoA; PTVDispInfoA = ^TTVDispInfoA;
PTVDispInfoW = ^TTVDispInfoW; PTVDispInfoW = ^TTVDispInfoW;
PTVDispInfo = {$IFDEF UNICODE_CTRLS} PTVDispInfoW {$ELSE} PTVDispInfoA {$ENDIF}; PTVDispInfo = {$IFDEF UNICODE_CTRLS} PTVDispInfoW {$ELSE} PTVDispInfoA {$ENDIF};
tagTVDISPINFOA = packed record tagTVDISPINFOA = record
hdr: TNMHDR; hdr: TNMHDR;
item: TTVItemA; item: TTVItemA;
end; end;
tagTVDISPINFOW = packed record tagTVDISPINFOW = record
hdr: TNMHDR; hdr: TNMHDR;
item: TTVItemW; item: TTVItemW;
end; end;
@ -985,19 +1046,19 @@ type
TV_DISPINFOW = tagTVDISPINFOW; TV_DISPINFOW = tagTVDISPINFOW;
TV_DISPINFO = {$IFDEF UNICODE_CTRLS} TV_DISPINFOW {$ELSE} TV_DISPINFOA {$ENDIF}; TV_DISPINFO = {$IFDEF UNICODE_CTRLS} TV_DISPINFOW {$ELSE} TV_DISPINFOA {$ENDIF};
tagNMMOUSE = packed record tagNMMOUSE = record
hdr: TNMHdr; hdr: TNMHdr;
dwItemSpec: DWORD; dwItemSpec: DWORD_PTR;
dwItemData: DWORD; dwItemData: DWORD_PTR;
pt: TPoint; pt: TPoint;
dwHitInfo: DWORD; // any specifics about where on the item or control the mouse is dwHitInfo: LPARAM; // any specifics about where on the item or control the mouse is
end; end;
PNMMouse = ^TNMMouse; PNMMouse = ^TNMMouse;
TNMMouse = tagNMMOUSE; TNMMouse = tagNMMOUSE;
type type
PTVHitTestInfo = ^TTVHitTestInfo; PTVHitTestInfo = ^TTVHitTestInfo;
TTVHitTestInfo = packed Record TTVHitTestInfo = record
pt: TPoint; pt: TPoint;
fl: DWORD; fl: DWORD;
hItem: THandle; hItem: THandle;
@ -1040,6 +1101,8 @@ const
DATETIMEPICK_CLASS: array[ 0..17 ] of KOLChar = ( DATETIMEPICK_CLASS: array[ 0..17 ] of KOLChar = (
'S','y','s','D','a','t','e','T','i','m','e','P','i','c','k','3','2',#0 ); 'S','y','s','D','a','t','e','T','i','m','e','P','i','c','k','3','2',#0 );
WC_HEADER: array[0..11] of KOLChar = ('S','y','s','H','e','a','d','e','r','3','2',#0);
TBN_FIRST = 0-700; { toolbar } TBN_FIRST = 0-700; { toolbar }
TBN_LAST = 0-720; TBN_LAST = 0-720;
@ -1222,13 +1285,19 @@ const
TBIF_LPARAM = $00000010; TBIF_LPARAM = $00000010;
TBIF_COMMAND = $00000020; TBIF_COMMAND = $00000020;
TBIF_SIZE = $00000040; TBIF_SIZE = $00000040;
TBIF_BYINDEX = $80000000; TBIF_BYINDEX = $80000000;
TTN_FIRST = 0-520; { tooltips } TTN_FIRST = 0-520; { tooltips }
TTN_LAST = 0-549; TTN_LAST = 0-549;
TTN_GETDISPINFOA = TTN_FIRST - 0;
TTN_GETDISPINFOW = TTN_FIRST - 10;
TTN_GETDISPINFO = TTN_GETDISPINFOW;
TTN_NEEDTEXTA = TTN_FIRST - 0; TTN_NEEDTEXTA = TTN_FIRST - 0;
TTN_NEEDTEXT = TTN_FIRST - 0; TTN_NEEDTEXT = TTN_FIRST - 0;
TTN_NEEDTEXTW = TTN_FIRST - 10; TTN_NEEDTEXTW = TTN_FIRST - 10;
TTN_SHOW = TTN_FIRST - 1;
TTN_POP = TTN_FIRST - 2;
TTN_LINKCLICK = TTN_FIRST - 3;
TTS_ALWAYSTIP = $01; TTS_ALWAYSTIP = $01;
TTS_NOPREFIX = $02; TTS_NOPREFIX = $02;
@ -1304,24 +1373,28 @@ const
type type
PTBAddBitmap = ^TTBAddBitmap; PTBAddBitmap = ^TTBAddBitmap;
TTBAddBitmap = packed record TTBAddBitmap = record
hInst: THandle; hInst: HINST;
nID: UINT; nID: UINT_PTR;
end; end;
PTBButton = ^TTBButton; PTBButton = ^TTBButton;
TTBButton = packed record TTBButton = record
iBitmap: Integer; iBitmap: Integer;
idCommand: Integer; idCommand: Integer;
fsState: Byte; fsState: Byte;
fsStyle: Byte; fsStyle: Byte;
{$IFDEF WIN64}
bReserved: array[1..6] of Byte;
{$ELSE}
bReserved: array[1..2] of Byte; bReserved: array[1..2] of Byte;
dwData: Longint; {$ENDIF}
iString: Integer; dwData: DWORD_PTR;
iString: INT_PTR;
end; end;
PTBButtonInfo = ^TTBButtonInfo; PTBButtonInfo = ^TTBButtonInfo;
TTBButtonInfo = packed record TTBButtonInfo = record
cbSize: UINT; cbSize: UINT;
dwMask: DWORD; dwMask: DWORD;
idCommand: Integer; idCommand: Integer;
@ -1329,28 +1402,29 @@ type
fsState: Byte; fsState: Byte;
fsStyle: Byte; fsStyle: Byte;
cx: Word; cx: Word;
lParam: DWORD; lParam: DWORD_PTR;
pszText: PKOLChar; pszText: PKOLChar;
cchText: Integer; cchText: Integer;
end; end;
PColorMap = ^TColorMap; PColorMap = ^TColorMap;
TColorMap = packed record TColorMap = record
cFrom: TColorRef; cFrom: TColorRef;
cTo: TColorRef; cTo: TColorRef;
end; end;
PTBNotify = ^TTBnotify; PTBNotify = ^TTBnotify;
TTBNotify = packed record TTBNotify = record
hdr: TNMHdr; hdr: TNMHdr;
iItem: Integer; iItem: Integer;
tbButton: TTBButton; tbButton: TTBButton;
cchText: Integer; cchText: Integer;
pszText: PChar; pszText: PKOLChar;
rcButton: TRect; //ie5
end; end;
PNMTBCustomDraw = ^TNMTBCustomDraw; PNMTBCustomDraw = ^TNMTBCustomDraw;
TNMTBCustomDraw = packed record TNMTBCustomDraw = record
nmcd: TNMCUSTOMDRAW; nmcd: TNMCUSTOMDRAW;
hbrMonoDither: HBrush; hbrMonoDither: HBrush;
hbrLines : HBrush; hbrLines : HBrush;
@ -1368,7 +1442,7 @@ type
end; end;
PTooltipText = ^TTooltipText; PTooltipText = ^TTooltipText;
TTooltipText = packed record TTooltipText = record
hdr: TNMHdr; hdr: TNMHdr;
lpszText: PKOLChar; lpszText: PKOLChar;
szText: array[0..79] of KOLChar; szText: array[0..79] of KOLChar;
@ -1378,13 +1452,13 @@ type
end; end;
PToolInfo = ^TToolInfo; PToolInfo = ^TToolInfo;
TToolInfo = packed record TToolInfo = record
cbSize: UINT; cbSize: UINT;
uFlags: UINT; uFlags: UINT;
hwnd: HWND; hwnd: HWND;
uId: UINT; uId: UINT_PTR;
Rect: TRect; Rect: TRect;
hInst: THandle; hInst: HINST;
lpszText: PKOLChar; lpszText: PKOLChar;
lParam: LPARAM; lParam: LPARAM;
end; end;
@ -1398,14 +1472,14 @@ const
TME_QUERY = $40000000; TME_QUERY = $40000000;
TME_CANCEL = $80000000; TME_CANCEL = $80000000;
HOVER_DEFAULT = $FFFFFFFF; HOVER_DEFAULT = THandle(-1);// $FFFFFFFF;
ODT_HEADER = 100; ODT_HEADER = 100;
ODT_TAB = 101; ODT_TAB = 101;
ODT_LISTVIEW = 102; ODT_LISTVIEW = 102;
type type
tagTRACKMOUSEEVENT = packed record tagTRACKMOUSEEVENT = record
cbSize: DWORD; cbSize: DWORD;
dwFlags: DWORD; dwFlags: DWORD;
hwndTrack: HWND; hwndTrack: HWND;
@ -1419,11 +1493,13 @@ type
///////////////////////////////////////////////////////// /////////////////////////////////////////////////////////
// Some stuff from new Delphi versions (not available in old ones): // Some stuff from new Delphi versions (not available in old ones):
{$IFNDEF UNICODE_CTRLS} {$IFNDEF FPC}
{$IFNDEF UNICODE_CTRLS}
const const
//IDC_HAND = MakeIntResource(32649); //IDC_HAND = MakeIntResource(32649);
IDC_HAND = PChar(32649); IDC_HAND = PChar(32649);
{$ENDIF} {$ENDIF}
{$ENDIF}
///////////////////////////////////////////////////////// /////////////////////////////////////////////////////////
const const
@ -1516,13 +1592,13 @@ const
// structures // structures
type type
tagNMDATETIMESTRINGA = packed record tagNMDATETIMESTRINGA = record
nmhdr: TNmHdr; nmhdr: TNmHdr;
pszUserString: PAnsiChar; // string user entered pszUserString: PAnsiChar; // string user entered
st: TSystemTime; // app fills this in st: TSystemTime; // app fills this in
dwFlags: DWORD; // GDT_VALID or GDT_NONE dwFlags: DWORD; // GDT_VALID or GDT_NONE
end; end;
tagNMDATETIMESTRINGW = packed record tagNMDATETIMESTRINGW = record
nmhdr: TNmHdr; nmhdr: TNmHdr;
pszUserString: PWideChar; // string user entered pszUserString: PWideChar; // string user entered
st: TSystemTime; // app fills this in st: TSystemTime; // app fills this in
@ -1573,13 +1649,13 @@ const
HDN_GETDISPINFOW = HDN_FIRST-29; HDN_GETDISPINFOW = HDN_FIRST-29;
type type
tagNMHEADERA = packed record tagNMHEADERA = record
Hdr: TNMHdr; Hdr: TNMHdr;
Item: Integer; Item: Integer;
Button: Integer; Button: Integer;
PItem: PHDItemA; PItem: PHDItemA;
end; end;
tagNMHEADERW = packed record tagNMHEADERW = record
Hdr: TNMHdr; Hdr: TNMHdr;
Item: Integer; Item: Integer;
Button: Integer; Button: Integer;