paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 16:49:42 +02:00
Code Issues Packages Projects Releases Wiki Activity
svn/unicodekvm
fpc/rtl/win/wininc/messages.inc
marco 75cdae9836 * add uint typecast to some negative message numbers Mantis 035324 
git-svn-id: trunk@41922 -
2019-04-22 09:42:44 +00:00

1978 lines
52 KiB
PHP
Raw Permalink Blame History

{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Florian Klaempfl,
member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{
Messages.h Windows32 API message definitions
Copyright (C) 1996 Free Software Foundation, Inc.
Author: Scott Christley <scottc@net-community.com>
This file is part of the Windows32 API Library.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
If you are interested in a warranty or support for this source code,
contact Scott Christley <scottc@net-community.com> for more information.
You should have received a copy of the GNU Library General Public
License along with this library; see the file COPYING.LIB.
If not, write to the Free Software Foundation,
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
}
{$ifdef read_interface}
const
ACM_OPENW = 1127;
ACM_OPENA = 1124;
{$ifdef UNICODE}
const
ACM_OPEN = ACM_OPENW;
{$else}
const
ACM_OPEN = ACM_OPENA;
{$endif}
{ UNICODE }
const
ACM_PLAY = 1125;
ACM_STOP = 1126;
ACN_START = 1;
ACN_STOP = 2;
{ Buttons }
BM_CLICK = 245;
BM_GETCHECK = 240;
BM_GETIMAGE = 246;
BM_GETSTATE = 242;
BM_SETCHECK = 241;
BM_SETDONTCLICK = 248;
BM_SETIMAGE = 247;
BM_SETSTATE = 243;
BM_SETSTYLE = 244;
BN_CLICKED = 0;
BN_DBLCLK = 5;
BN_DISABLE = 4;
BN_DOUBLECLICKED = 5;
BN_HILITE = 2;
BN_KILLFOCUS = 7;
BN_PAINT = 1;
BN_PUSHED = 2;
BN_SETFOCUS = 6;
BN_UNHILITE = 3;
BN_UNPUSHED = 3;
{ Combo Box }
CB_ADDSTRING = 323;
CB_DELETESTRING = 324;
CB_DIR = 325;
CB_FINDSTRING = 332;
CB_FINDSTRINGEXACT = 344;
CB_GETCOMBOBOXINFO = 356;
CB_GETCOUNT = 326;
CB_GETCURSEL = 327;
CB_GETDROPPEDCONTROLRECT = 338;
CB_GETDROPPEDSTATE = 343;
CB_GETDROPPEDWIDTH = 351;
CB_GETEDITSEL = 320;
CB_GETEXTENDEDUI = 342;
CB_GETHORIZONTALEXTENT = 349;
CB_GETITEMDATA = 336;
CB_GETITEMHEIGHT = 340;
CB_GETLBTEXT = 328;
CB_GETLBTEXTLEN = 329;
CB_GETLOCALE = 346;
CB_GETTOPINDEX = 347;
CB_INITSTORAGE = 353;
CB_INSERTSTRING = 330;
CB_LIMITTEXT = 321;
CB_RESETCONTENT = 331;
CB_SELECTSTRING = 333;
CB_SETCURSEL = 334;
CB_SETDROPPEDWIDTH = 352;
CB_SETEDITSEL = 322;
CB_SETEXTENDEDUI = 341;
CB_SETHORIZONTALEXTENT = 350;
CB_SETITEMDATA = 337;
CB_SETITEMHEIGHT = 339;
CB_SETLOCALE = 345;
CB_SETTOPINDEX = 348;
CB_SHOWDROPDOWN = 335;
{ Combo Box notifications }
CBN_CLOSEUP = 8;
CBN_DBLCLK = 2;
CBN_DROPDOWN = 7;
CBN_EDITCHANGE = 5;
CBN_EDITUPDATE = 6;
CBN_ERRSPACE = -(1);
CBN_KILLFOCUS = 4;
CBN_SELCHANGE = 1;
CBN_SELENDCANCEL = 10;
CBN_SELENDOK = 9;
CBN_SETFOCUS = 3;
{ Control Panel }
{ Device messages }
{ Drag list box }
DL_BEGINDRAG = 1157;
DL_CANCELDRAG = 1160;
DL_DRAGGING = 1158;
DL_DROPPED = 1159;
{ Default push button }
DM_GETDEFID = 1024;
DM_REPOSITION = 1026;
DM_SETDEFID = 1025;
{ RTF control }
EM_CANPASTE = 1074;
EM_CANUNDO = 198;
EM_CHARFROMPOS = 215;
EM_DISPLAYBAND = 1075;
EM_EMPTYUNDOBUFFER = 205;
EM_EXGETSEL = 1076;
EM_EXLIMITTEXT = 1077;
EM_EXLINEFROMCHAR = 1078;
EM_EXSETSEL = 1079;
EM_FINDTEXT = 1080;
EM_FINDTEXTEX = 1103;
EM_FINDWORDBREAK = 1100;
EM_FMTLINES = 200;
EM_FORMATRANGE = 1081;
EM_GETCHARFORMAT = 1082;
EM_GETEVENTMASK = 1083;
EM_GETFIRSTVISIBLELINE = 206;
EM_GETHANDLE = 189;
EM_GETLIMITTEXT = 213;
EM_GETLINE = 196;
EM_GETLINECOUNT = 186;
EM_GETMARGINS = 212;
EM_GETMODIFY = 184;
EM_GETIMECOLOR = 1129;
EM_GETIMEOPTIONS = 1131;
EM_GETOPTIONS = 1102;
EM_GETOLEINTERFACE = 1084;
EM_GETPARAFORMAT = 1085;
EM_GETPASSWORDCHAR = 210;
EM_GETPUNCTUATION = 1125;
EM_GETRECT = 178;
EM_GETSEL = 176;
EM_GETSELTEXT = 1086;
EM_GETTEXTRANGE = 1099;
EM_GETTHUMB = 190;
EM_GETWORDBREAKPROC = 209;
EM_GETWORDBREAKPROCEX = 1104;
EM_GETWORDWRAPMODE = 1127;
EM_HIDESELECTION = 1087;
EM_LIMITTEXT = 197;
EM_LINEFROMCHAR = 201;
EM_LINEINDEX = 187;
EM_LINELENGTH = 193;
EM_LINESCROLL = 182;
EM_PASTESPECIAL = 1088;
EM_POSFROMCHAR = 214;
EM_REPLACESEL = 194;
EM_REQUESTRESIZE = 1089;
EM_SCROLL = 181;
EM_SCROLLCARET = 183;
EM_SELECTIONTYPE = 1090;
EM_SETBKGNDCOLOR = 1091;
EM_SETCHARFORMAT = 1092;
EM_SETEVENTMASK = 1093;
EM_SETHANDLE = 188;
EM_SETIMECOLOR = 1128;
EM_SETIMEOPTIONS = 1130;
EM_SETLIMITTEXT = 197;
EM_SETMARGINS = 211;
EM_SETMODIFY = 185;
EM_SETOLECALLBACK = 1094;
EM_SETOPTIONS = 1101;
EM_SETPARAFORMAT = 1095;
EM_SETPASSWORDCHAR = 204;
EM_SETPUNCTUATION = 1124;
EM_SETREADONLY = 207;
EM_SETRECT = 179;
EM_SETRECTNP = 180;
EM_SETSEL = 177;
EM_SETTABSTOPS = 203;
EM_SETTARGETDEVICE = 1096;
EM_SETWORDBREAKPROC = 208;
EM_SETWORDBREAKPROCEX = 1105;
EM_SETWORDWRAPMODE = 1126;
EM_STREAMIN = 1097;
EM_STREAMOUT = 1098;
EM_UNDO = 199;
{ Edit control }
EN_CHANGE = 768;
EN_CORRECTTEXT = 1797;
EN_DROPFILES = 1795;
EN_ERRSPACE = 1280;
EN_HSCROLL = 1537;
EN_IMECHANGE = 1799;
EN_KILLFOCUS = 512;
EN_MAXTEXT = 1281;
EN_MSGFILTER = 1792;
EN_OLEOPFAILED = 1801;
EN_PROTECTED = 1796;
EN_REQUESTRESIZE = 1793;
EN_SAVECLIPBOARD = 1800;
EN_SELCHANGE = 1794;
EN_SETFOCUS = 256;
EN_STOPNOUNDO = 1798;
EN_UPDATE = 1024;
EN_VSCROLL = 1538;
{ File Manager extensions }
{ File Manager extensions DLL events }
{ Header control }
HDM_DELETEITEM = 4610;
HDM_GETITEMW = 4619;
HDM_INSERTITEMW = 4618;
HDM_SETITEMW = 4620;
HDM_GETITEMA = 4611;
HDM_INSERTITEMA = 4609;
HDM_SETITEMA = 4612;
{$ifdef UNICODE}
const
HDM_GETITEM = HDM_GETITEMW;
HDM_INSERTITEM = HDM_INSERTITEMW;
HDM_SETITEM = HDM_SETITEMW;
{$else}
const
HDM_GETITEM = HDM_GETITEMA;
HDM_INSERTITEM = HDM_INSERTITEMA;
HDM_SETITEM = HDM_SETITEMA;
{$endif}
{ UNICODE }
const
HDM_GETITEMCOUNT = 4608;
HDM_HITTEST = 4614;
HDM_LAYOUT = 4613;
{ Header control notifications }
HDN_BEGINTRACKW = UINT(-326);
HDN_DIVIDERDBLCLICKW = UINT(-325);
HDN_ENDTRACKW = UINT(-327);
HDN_ITEMCHANGEDW = UINT(-321);
HDN_ITEMCHANGINGW = UINT(-320);
HDN_ITEMCLICKW = UINT(-322);
HDN_ITEMDBLCLICKW = UINT(-323);
HDN_TRACKW = UINT(-328);
HDN_BEGINTRACKA = UINT(-306);
HDN_DIVIDERDBLCLICKA = UINT(-305);
HDN_ENDTRACKA = UINT(-307);
HDN_ITEMCHANGEDA = UINT(-301);
HDN_ITEMCHANGINGA = UINT(-300);
HDN_ITEMCLICKA = UINT(-302);
HDN_ITEMDBLCLICKA = UINT(-303);
HDN_TRACKA = UINT(-308);
{$ifdef UNICODE}
const
HDN_BEGINTRACK = HDN_BEGINTRACKW;
HDN_DIVIDERDBLCLICK = HDN_DIVIDERDBLCLICKW;
HDN_ENDTRACK = HDN_ENDTRACKW;
HDN_ITEMCHANGED = HDN_ITEMCHANGEDW;
HDN_ITEMCHANGING = HDN_ITEMCHANGINGW;
HDN_ITEMCLICK = HDN_ITEMCLICKW;
HDN_ITEMDBLCLICK = HDN_ITEMDBLCLICKW;
HDN_TRACK = HDN_TRACKW;
{$else}
const
HDN_BEGINTRACK = HDN_BEGINTRACKA;
HDN_DIVIDERDBLCLICK = HDN_DIVIDERDBLCLICKA;
HDN_ENDTRACK = HDN_ENDTRACKA;
HDN_ITEMCHANGED = HDN_ITEMCHANGEDA;
HDN_ITEMCHANGING = HDN_ITEMCHANGINGA;
HDN_ITEMCLICK = HDN_ITEMCLICKA;
HDN_ITEMDBLCLICK = HDN_ITEMDBLCLICKA;
HDN_TRACK = HDN_TRACKA;
{$endif}
{ UNICODE }
{ Hot key control }
const
HKM_GETHOTKEY = 1026;
HKM_SETHOTKEY = 1025;
HKM_SETRULES = 1027;
{ List box }
LB_ADDFILE = 406;
LB_ADDSTRING = 384;
LB_DELETESTRING = 386;
LB_DIR = 397;
LB_FINDSTRING = 399;
LB_FINDSTRINGEXACT = 418;
LB_GETANCHORINDEX = 413;
LB_GETCARETINDEX = 415;
LB_GETCOUNT = 395;
LB_GETCURSEL = 392;
LB_GETHORIZONTALEXTENT = 403;
LB_GETITEMDATA = 409;
LB_GETITEMHEIGHT = 417;
LB_GETITEMRECT = 408;
LB_GETLOCALE = 422;
LB_GETSEL = 391;
LB_GETSELCOUNT = 400;
LB_GETSELITEMS = 401;
LB_GETTEXT = 393;
LB_GETTEXTLEN = 394;
LB_GETTOPINDEX = 398;
LB_INITSTORAGE = 424;
LB_INSERTSTRING = 385;
LB_ITEMFROMPOINT = 425;
LB_RESETCONTENT = 388;
LB_SELECTSTRING = 396;
LB_SELITEMRANGE = 411;
LB_SELITEMRANGEEX = 387;
LB_SETANCHORINDEX = 412;
LB_SETCARETINDEX = 414;
LB_SETCOLUMNWIDTH = 405;
LB_SETCOUNT = 423;
LB_SETCURSEL = 390;
LB_SETHORIZONTALEXTENT = 404;
LB_SETITEMDATA = 410;
LB_SETITEMHEIGHT = 416;
LB_SETLOCALE = 421;
LB_SETSEL = 389;
LB_SETTABSTOPS = 402;
LB_SETTOPINDEX = 407;
{ List box notifications }
LBN_DBLCLK = 2;
LBN_ERRSPACE = -(2);
LBN_KILLFOCUS = 5;
LBN_SELCANCEL = 3;
LBN_SELCHANGE = 1;
LBN_SETFOCUS = 4;
{ List view control }
LVM_ARRANGE = 4118;
LVM_CREATEDRAGIMAGE = 4129;
LVM_DELETEALLITEMS = 4105;
LVM_DELETECOLUMN = 4124;
LVM_DELETEITEM = 4104;
LVM_ENSUREVISIBLE = 4115;
LVM_GETBKCOLOR = 4096;
LVM_GETCALLBACKMASK = 4106;
LVM_GETCOLUMNWIDTH = 4125;
LVM_GETCOUNTPERPAGE = 4136;
LVM_GETEDITCONTROL = 4120;
LVM_GETIMAGELIST = 4098;
LVM_EDITLABELW = 4214;
LVM_FINDITEMW = 4179;
LVM_GETCOLUMNW = 4191;
LVM_GETISEARCHSTRINGW = 4213;
LVM_GETITEMW = 4171;
LVM_GETITEMTEXTW = 4211;
LVM_GETSTRINGWIDTHW = 4183;
LVM_INSERTCOLUMNW = 4193;
LVM_INSERTITEMW = 4173;
LVM_SETCOLUMNW = 4192;
LVM_SETITEMW = 4172;
LVM_SETITEMTEXTW = 4212;
LVM_EDITLABELA = 4119;
LVM_FINDITEMA = 4109;
LVM_GETCOLUMNA = 4121;
LVM_GETISEARCHSTRINGA = 4148;
LVM_GETITEMA = 4101;
LVM_GETITEMTEXTA = 4141;
LVM_GETSTRINGWIDTHA = 4113;
LVM_INSERTCOLUMNA = 4123;
LVM_INSERTITEMA = 4103;
LVM_SETCOLUMNA = 4122;
LVM_SETITEMA = 4102;
LVM_SETITEMTEXTA = 4142;
{$ifdef UNICODE}
const
LVM_EDITLABEL = LVM_EDITLABELW;
LVM_FINDITEM = LVM_FINDITEMW;
LVM_GETCOLUMN = LVM_GETCOLUMNW;
LVM_GETISEARCHSTRING = LVM_GETISEARCHSTRINGW;
LVM_GETITEM = LVM_GETITEMW;
LVM_GETITEMTEXT = LVM_GETITEMTEXTW;
LVM_GETSTRINGWIDTH = LVM_GETSTRINGWIDTHW;
LVM_INSERTCOLUMN = LVM_INSERTCOLUMNW;
LVM_INSERTITEM = LVM_INSERTITEMW;
LVM_SETCOLUMN = LVM_SETCOLUMNW;
LVM_SETITEM = LVM_SETITEMW;
LVM_SETITEMTEXT = LVM_SETITEMTEXTW;
{$else}
const
LVM_EDITLABEL = LVM_EDITLABELA;
LVM_FINDITEM = LVM_FINDITEMA;
LVM_GETCOLUMN = LVM_GETCOLUMNA;
LVM_GETISEARCHSTRING = LVM_GETISEARCHSTRINGA;
LVM_GETITEM = LVM_GETITEMA;
LVM_GETITEMTEXT = LVM_GETITEMTEXTA;
LVM_GETSTRINGWIDTH = LVM_GETSTRINGWIDTHA;
LVM_INSERTCOLUMN = LVM_INSERTCOLUMNA;
LVM_INSERTITEM = LVM_INSERTITEMA;
LVM_SETCOLUMN = LVM_SETCOLUMNA;
LVM_SETITEM = LVM_SETITEMA;
LVM_SETITEMTEXT = LVM_SETITEMTEXTA;
{$endif}
{ UNICODE }
const
LVM_GETITEMCOUNT = 4100;
LVM_GETITEMPOSITION = 4112;
LVM_GETITEMRECT = 4110;
LVM_GETITEMSPACING = 4147;
LVM_GETITEMSTATE = 4140;
LVM_GETNEXTITEM = 4108;
LVM_GETORIGIN = 4137;
LVM_GETSELECTEDCOUNT = 4146;
LVM_GETTEXTBKCOLOR = 4133;
LVM_GETTEXTCOLOR = 4131;
LVM_GETTOPINDEX = 4135;
LVM_GETVIEWRECT = 4130;
LVM_HITTEST = 4114;
LVM_REDRAWITEMS = 4117;
LVM_SCROLL = 4116;
LVM_SETBKCOLOR = 4097;
LVM_SETCALLBACKMASK = 4107;
LVM_SETCOLUMNWIDTH = 4126;
LVM_SETIMAGELIST = 4099;
LVM_SETITEMCOUNT = 4143;
LVM_SETITEMPOSITION = 4111;
LVM_SETITEMPOSITION32 = 4145;
LVM_SETITEMSTATE = 4139;
LVM_SETTEXTBKCOLOR = 4134;
LVM_SETTEXTCOLOR = 4132;
LVM_SORTITEMS = 4144;
LVM_UPDATE = 4138;
{ List view control notifications }
LVN_BEGINDRAG = -(109);
LVN_BEGINRDRAG = -(111);
LVN_COLUMNCLICK = -(108);
LVN_DELETEALLITEMS = -(104);
LVN_DELETEITEM = -(103);
LVN_BEGINLABELEDITW = -(175);
LVN_ENDLABELEDITW = -(176);
LVN_GETDISPINFOW = -(177);
LVN_SETDISPINFOW = -(178);
LVN_BEGINLABELEDITA = -(105);
LVN_ENDLABELEDITA = -(106);
LVN_GETDISPINFOA = -(150);
LVN_SETDISPINFOA = -(151);
{$ifdef UNICODE}
const
LVN_BEGINLABELEDIT = LVN_BEGINLABELEDITW;
LVN_ENDLABELEDIT = LVN_ENDLABELEDITW;
LVN_GETDISPINFO = LVN_GETDISPINFOW;
LVN_SETDISPINFO = LVN_SETDISPINFOW;
{$else}
const
LVN_BEGINLABELEDIT = LVN_BEGINLABELEDITA;
LVN_ENDLABELEDIT = LVN_ENDLABELEDITA;
LVN_GETDISPINFO = LVN_GETDISPINFOA;
LVN_SETDISPINFO = LVN_SETDISPINFOA;
{$endif}
{ UNICODE }
const
LVN_INSERTITEM = -(102);
LVN_ITEMCHANGED = -(101);
LVN_ITEMCHANGING = -(100);
LVN_KEYDOWN = -(155);
{ Control notification }
NM_CLICK = -(2);
NM_DBLCLK = -(3);
NM_KILLFOCUS = -(8);
NM_OUTOFMEMORY = -(1);
NM_RCLICK = -(5);
NM_RDBLCLK = -(6);
NM_RETURN = -(4);
NM_SETFOCUS = -(7);
{ Power status }
{ Progress bar control }
PBM_DELTAPOS = 1027;
PBM_SETPOS = 1026;
PBM_SETRANGE = 1025;
PBM_SETRANGE32 = 1030;
PBM_SETSTEP = 1028;
PBM_STEPIT = 1029;
{ Property sheets }
PSM_ADDPAGE = 1127;
PSM_APPLY = 1134;
PSM_CANCELTOCLOSE = 1131;
PSM_CHANGED = 1128;
PSM_GETTABCONTROL = 1140;
PSM_GETCURRENTPAGEHWND = 1142;
PSM_ISDIALOGMESSAGE = 1141;
PSM_PRESSBUTTON = 1137;
PSM_QUERYSIBLINGS = 1132;
PSM_REBOOTSYSTEM = 1130;
PSM_REMOVEPAGE = 1126;
PSM_RESTARTWINDOWS = 1129;
PSM_SETCURSEL = 1125;
PSM_SETCURSELID = 1138;
PSM_SETFINISHTEXTW = 1145;
PSM_SETTITLEW = 1144;
PSM_SETFINISHTEXTA = 1139;
PSM_SETTITLEA = 1135;
{$ifdef UNICODE}
const
PSM_SETFINISHTEXT = PSM_SETFINISHTEXTW;
PSM_SETTITLE = PSM_SETTITLEW;
{$else}
const
PSM_SETFINISHTEXT = PSM_SETFINISHTEXTA;
PSM_SETTITLE = PSM_SETTITLEA;
{$endif}
{ UNICODE }
const
PSM_SETWIZBUTTONS = 1136;
PSM_UNCHANGED = 1133;
{ Property sheet notifications }
PSN_APPLY = -(202);
PSN_HELP = -(205);
PSN_KILLACTIVE = -(201);
PSN_QUERYCANCEL = -(209);
PSN_RESET = -(203);
PSN_SETACTIVE = -(200);
PSN_WIZBACK = -(206);
PSN_WIZFINISH = -(208);
PSN_WIZNEXT = -(207);
{ Status window }
SB_GETBORDERS = 1031;
SB_GETPARTS = 1030;
SB_GETRECT = 1034;
SB_GETTEXTW = 1037;
SB_GETTEXTLENGTHW = 1036;
SB_SETTEXTW = 1035;
SB_GETTEXTA = 1026;
SB_GETTEXTLENGTHA = 1027;
SB_SETTEXTA = 1025;
{$ifdef UNICODE}
const
SB_GETTEXT = SB_GETTEXTW;
SB_GETTEXTLENGTH = SB_GETTEXTLENGTHW;
SB_SETTEXT = SB_SETTEXTW;
{$else}
const
SB_GETTEXT = SB_GETTEXTA;
SB_GETTEXTLENGTH = SB_GETTEXTLENGTHA;
SB_SETTEXT = SB_SETTEXTA;
{$endif}
{ UNICODE }
const
SB_SETMINHEIGHT = 1032;
SB_SETPARTS = 1028;
SB_SIMPLE = 1033;
{ Scroll bar control }
SBM_ENABLE_ARROWS = 228;
SBM_GETPOS = 225;
SBM_GETRANGE = 227;
SBM_GETSCROLLINFO = 234;
SBM_SETPOS = 224;
SBM_SETRANGE = 226;
SBM_SETRANGEREDRAW = 230;
SBM_SETSCROLLINFO = 233;
{ Static control }
STM_GETICON = 369;
STM_GETIMAGE = 371;
STM_SETICON = 368;
STM_SETIMAGE = 370;
{ Static control notifications }
STN_CLICKED = 0;
STN_DBLCLK = 1;
STN_DISABLE = 3;
STN_ENABLE = 2;
{ Toolbar control }
TB_ADDBITMAP = 1043;
TB_ADDBUTTONS = 1044;
TB_AUTOSIZE = 1057;
TB_BUTTONCOUNT = 1048;
TB_BUTTONSTRUCTSIZE = 1054;
TB_CHANGEBITMAP = 1067;
TB_CHECKBUTTON = 1026;
TB_COMMANDTOINDEX = 1049;
TB_CUSTOMIZE = 1051;
TB_DELETEBUTTON = 1046;
TB_ENABLEBUTTON = 1025;
TB_GETBITMAP = 1068;
TB_GETBITMAPFLAGS = 1065;
TB_GETBUTTON = 1047;
TB_ADDSTRINGW = 1101;
TB_GETBUTTONTEXTW = 1099;
TB_SAVERESTOREW = 1100;
TB_ADDSTRINGA = 1052;
TB_GETBUTTONTEXTA = 1069;
TB_SAVERESTOREA = 1050;
{$ifdef UNICODE}
const
TB_ADDSTRING = TB_ADDSTRINGW;
TB_GETBUTTONTEXT = TB_GETBUTTONTEXTW;
TB_SAVERESTORE = TB_SAVERESTOREW;
{$else}
const
TB_ADDSTRING = TB_ADDSTRINGA;
TB_GETBUTTONTEXT = TB_GETBUTTONTEXTA;
TB_SAVERESTORE = TB_SAVERESTOREA;
{$endif}
{ UNICODE }
const
TB_GETITEMRECT = 1053;
TB_GETROWS = 1064;
TB_GETSTATE = 1042;
TB_GETTOOLTIPS = 1059;
TB_HIDEBUTTON = 1028;
TB_INDETERMINATE = 1029;
TB_INSERTBUTTON = 1045;
TB_ISBUTTONCHECKED = 1034;
TB_ISBUTTONENABLED = 1033;
TB_ISBUTTONHIDDEN = 1036;
TB_ISBUTTONINDETERMINATE = 1037;
TB_ISBUTTONPRESSED = 1035;
TB_PRESSBUTTON = 1027;
TB_SETBITMAPSIZE = 1056;
TB_SETBUTTONSIZE = 1055;
TB_SETCMDID = 1066;
TB_SETPARENT = 1061;
TB_SETROWS = 1063;
TB_SETSTATE = 1041;
TB_SETTOOLTIPS = 1060;
{ Track bar control }
TBM_CLEARSEL = 1043;
TBM_CLEARTICS = 1033;
TBM_GETCHANNELRECT = 1050;
TBM_GETLINESIZE = 1048;
TBM_GETNUMTICS = 1040;
TBM_GETPAGESIZE = 1046;
TBM_GETPOS = 1024;
TBM_GETPTICS = 1038;
TBM_GETRANGEMAX = 1026;
TBM_GETRANGEMIN = 1025;
TBM_GETSELEND = 1042;
TBM_GETSELSTART = 1041;
TBM_GETTHUMBLENGTH = 1052;
TBM_GETTHUMBRECT = 1049;
TBM_GETTIC = 1027;
TBM_GETTICPOS = 1039;
TBM_SETLINESIZE = 1047;
TBM_SETPAGESIZE = 1045;
TBM_SETPOS = 1029;
TBM_SETRANGE = 1030;
TBM_SETRANGEMAX = 1032;
TBM_SETRANGEMIN = 1031;
TBM_SETSEL = 1034;
TBM_SETSELEND = 1036;
TBM_SETSELSTART = 1035;
TBM_SETTHUMBLENGTH = 1051;
TBM_SETTIC = 1028;
TBM_SETTICFREQ = 1044;
{ Tool bar control notifications }
TBN_BEGINADJUST = -(703);
TBN_BEGINDRAG = -(701);
TBN_CUSTHELP = -(709);
TBN_ENDADJUST = -(704);
TBN_ENDDRAG = -(702);
TBN_GETBUTTONINFOW = -(720);
TBN_GETBUTTONINFOA = -(700);
{$ifdef UNICODE}
const
TBN_GETBUTTONINFO = TBN_GETBUTTONINFOW;
{$else}
const
TBN_GETBUTTONINFO = TBN_GETBUTTONINFOA;
{$endif}
{ UNICODE }
const
TBN_QUERYDELETE = -(707);
TBN_QUERYINSERT = -(706);
TBN_RESET = -(705);
TBN_TOOLBARCHANGE = -(708);
{ Tab control }
TCM_ADJUSTRECT = 4904;
TCM_DELETEALLITEMS = 4873;
TCM_DELETEITEM = 4872;
TCM_GETCURFOCUS = 4911;
TCM_GETCURSEL = 4875;
TCM_GETIMAGELIST = 4866;
TCM_GETITEMW = 4924;
TCM_INSERTITEMW = 4926;
TCM_SETITEMW = 4925;
TCM_GETITEMA = 4869;
TCM_INSERTITEMA = 4871;
TCM_SETITEMA = 4870;
TCM_SETUNICODEFORMAT = 8197; // = CCM_SETUNICODEFORMAT
TCM_GETUNICODEFORMAT = 8198; // = CCM_GETUNICODEFORMAT
{$ifdef UNICODE}
const
TCM_GETITEM = TCM_GETITEMW;
TCM_INSERTITEM = TCM_INSERTITEMW;
TCM_SETITEM = TCM_SETITEMW;
{$else}
const
TCM_GETITEM = TCM_GETITEMA;
TCM_INSERTITEM = TCM_INSERTITEMA;
TCM_SETITEM = TCM_SETITEMA;
{$endif}
{ UNICODE }
const
TCM_GETITEMCOUNT = 4868;
TCM_GETITEMRECT = 4874;
TCM_GETROWCOUNT = 4908;
TCM_GETTOOLTIPS = 4909;
TCM_HITTEST = 4877;
TCM_REMOVEIMAGE = 4906;
TCM_SETCURFOCUS = 4912;
TCM_SETCURSEL = 4876;
TCM_SETIMAGELIST = 4867;
TCM_SETITEMEXTRA = 4878;
TCM_SETITEMSIZE = 4905;
TCM_SETPADDING = 4907;
TCM_SETTOOLTIPS = 4910;
{ Tab control notifications }
TCN_KEYDOWN = -(550);
TCN_SELCHANGE = -(551);
TCN_SELCHANGING = -(552);
{ Tool tip control }
TTM_ACTIVATE = 1025;
TTM_ADDTOOLW = 1074;
TTM_DELTOOLW = 1075;
TTM_ENUMTOOLSW = 1082;
TTM_GETCURRENTTOOLW = 1083;
TTM_GETTEXTW = 1080;
TTM_GETTOOLINFOW = 1077;
TTM_HITTESTW = 1079;
TTM_NEWTOOLRECTW = 1076;
TTM_SETTOOLINFOW = 1078;
TTM_UPDATETIPTEXTW = 1081;
TTM_ADDTOOLA = 1028;
TTM_DELTOOLA = 1029;
TTM_ENUMTOOLSA = 1038;
TTM_GETCURRENTTOOLA = 1039;
TTM_GETTEXTA = 1035;
TTM_GETTOOLINFOA = 1032;
TTM_HITTESTA = 1034;
TTM_NEWTOOLRECTA = 1030;
TTM_SETTOOLINFOA = 1033;
TTM_UPDATETIPTEXTA = 1036;
{$ifdef UNICODE}
const
TTM_ADDTOOL = TTM_ADDTOOLW;
TTM_DELTOOL = TTM_DELTOOLW;
TTM_ENUMTOOLS = TTM_ENUMTOOLSW;
TTM_GETCURRENTTOOL = TTM_GETCURRENTTOOLW;
TTM_GETTEXT = TTM_GETTEXTW;
TTM_GETTOOLINFO = TTM_GETTOOLINFOW;
TTM_HITTEST = TTM_HITTESTW;
TTM_NEWTOOLRECT = TTM_NEWTOOLRECTW;
TTM_SETTOOLINFO = TTM_SETTOOLINFOW;
TTM_UPDATETIPTEXT = TTM_UPDATETIPTEXTW;
{$else}
const
TTM_ADDTOOL = TTM_ADDTOOLA;
TTM_DELTOOL = TTM_DELTOOLA;
TTM_ENUMTOOLS = TTM_ENUMTOOLSA;
TTM_GETCURRENTTOOL = TTM_GETCURRENTTOOLA;
TTM_GETTEXT = TTM_GETTEXTA;
TTM_GETTOOLINFO = TTM_GETTOOLINFOA;
TTM_HITTEST = TTM_HITTESTA;
TTM_NEWTOOLRECT = TTM_NEWTOOLRECTA;
TTM_SETTOOLINFO = TTM_SETTOOLINFOA;
TTM_UPDATETIPTEXT = TTM_UPDATETIPTEXTA;
{$endif}
{ UNICODE }
const
TTM_GETTOOLCOUNT = 1037;
TTM_RELAYEVENT = 1031;
TTM_SETDELAYTIME = 1027;
TTM_WINDOWFROMPOINT = 1040;
{ Tool tip control notification }
TTN_NEEDTEXTW = -(530);
TTN_NEEDTEXTA = -(520);
{$ifdef UNICODE}
const
TTN_NEEDTEXT = TTN_NEEDTEXTW;
{$else}
const
TTN_NEEDTEXT = TTN_NEEDTEXTA;
{$endif}
{ UNICODE }
const
TTN_POP = -(522);
TTN_SHOW = -(521);
{ Tree view control }
TVM_CREATEDRAGIMAGE = 4370;
TVM_DELETEITEM = 4353;
TVM_ENDEDITLABELNOW = 4374;
TVM_ENSUREVISIBLE = 4372;
TVM_EXPAND = 4354;
TVM_GETCOUNT = 4357;
TVM_GETEDITCONTROL = 4367;
TVM_GETIMAGELIST = 4360;
TVM_GETINDENT = 4358;
TVM_GETITEMRECT = 4356;
TVM_GETNEXTITEM = 4362;
TVM_GETVISIBLECOUNT = 4368;
TVM_HITTEST = 4369;
TVM_EDITLABELW = 4417;
TVM_GETISEARCHSTRINGW = 4416;
TVM_GETITEMW = 4414;
TVM_INSERTITEMW = 4402;
TVM_SETITEMW = 4415;
TVM_EDITLABELA = 4366;
TVM_GETISEARCHSTRINGA = 4375;
TVM_GETITEMA = 4364;
TVM_INSERTITEMA = 4352;
TVM_SETITEMA = 4365;
{$ifdef UNICODE}
const
TVM_EDITLABEL = TVM_EDITLABELW;
TVM_GETISEARCHSTRING = TVM_GETISEARCHSTRINGW;
TVM_GETITEM = TVM_GETITEMW;
TVM_INSERTITEM = TVM_INSERTITEMW;
TVM_SETITEM = TVM_SETITEMW;
{$else}
const
TVM_EDITLABEL = TVM_EDITLABELA;
TVM_GETISEARCHSTRING = TVM_GETISEARCHSTRINGA;
TVM_GETITEM = TVM_GETITEMA;
TVM_INSERTITEM = TVM_INSERTITEMA;
TVM_SETITEM = TVM_SETITEMA;
{$endif}
{ UNICODE }
const
TVM_SELECTITEM = 4363;
TVM_SETIMAGELIST = 4361;
TVM_SETINDENT = 4359;
TVM_SORTCHILDREN = 4371;
TVM_SORTCHILDRENCB = 4373;
{ Tree view control notification }
TVN_KEYDOWN = -(412);
TVN_BEGINDRAGW = -(456);
TVN_BEGINLABELEDITW = -(459);
TVN_BEGINRDRAGW = -(457);
TVN_DELETEITEMW = -(458);
TVN_ENDLABELEDITW = -(460);
TVN_GETDISPINFOW = -(452);
TVN_ITEMEXPANDEDW = -(455);
TVN_ITEMEXPANDINGW = -(454);
TVN_SELCHANGEDW = -(451);
TVN_SELCHANGINGW = -(450);
TVN_SETDISPINFOW = -(453);
TVN_BEGINDRAGA = -(407);
TVN_BEGINLABELEDITA = -(410);
TVN_BEGINRDRAGA = -(408);
TVN_DELETEITEMA = -(409);
TVN_ENDLABELEDITA = -(411);
TVN_GETDISPINFOA = -(403);
TVN_ITEMEXPANDEDA = -(406);
TVN_ITEMEXPANDINGA = -(405);
TVN_SELCHANGEDA = -(402);
TVN_SELCHANGINGA = -(401);
TVN_SETDISPINFOA = -(404);
{$ifdef UNICODE}
const
TVN_BEGINDRAG = TVN_BEGINDRAGW;
TVN_BEGINLABELEDIT = TVN_BEGINLABELEDITW;
TVN_BEGINRDRAG = TVN_BEGINRDRAGW;
TVN_DELETEITEM = TVN_DELETEITEMW;
TVN_ENDLABELEDIT = TVN_ENDLABELEDITW;
TVN_GETDISPINFO = TVN_GETDISPINFOW;
TVN_ITEMEXPANDED = TVN_ITEMEXPANDEDW;
TVN_ITEMEXPANDING = TVN_ITEMEXPANDINGW;
TVN_SELCHANGED = TVN_SELCHANGEDW;
TVN_SELCHANGING = TVN_SELCHANGINGW;
TVN_SETDISPINFO = TVN_SETDISPINFOW;
{$else}
const
TVN_BEGINDRAG = TVN_BEGINDRAGA;
TVN_BEGINLABELEDIT = TVN_BEGINLABELEDITA;
TVN_BEGINRDRAG = TVN_BEGINRDRAGA;
TVN_DELETEITEM = TVN_DELETEITEMA;
TVN_ENDLABELEDIT = TVN_ENDLABELEDITA;
TVN_GETDISPINFO = TVN_GETDISPINFOA;
TVN_ITEMEXPANDED = TVN_ITEMEXPANDEDA;
TVN_ITEMEXPANDING = TVN_ITEMEXPANDINGA;
TVN_SELCHANGED = TVN_SELCHANGEDA;
TVN_SELCHANGING = TVN_SELCHANGINGA;
TVN_SETDISPINFO = TVN_SETDISPINFOA;
{$endif}
{ UNICODE }
{ Up/down control }
const
UDM_GETACCEL = 1132;
UDM_GETBASE = 1134;
UDM_GETBUDDY = 1130;
UDM_GETPOS = 1128;
UDM_GETPOS32 = 1138;
UDM_GETRANGE = 1126;
UDM_GETRANGE32 = 1136;
UDM_SETACCEL = 1131;
UDM_SETBASE = 1133;
UDM_SETBUDDY = 1129;
UDM_SETPOS = 1127;
UDM_SETPOS32 = 1137;
UDM_SETRANGE = 1125;
UDM_SETRANGE32 = 1135;
{ Up/down control notification }
UDN_DELTAPOS = -(722);
{ Window messages }
WM_ACTIVATE = 6;
WM_ACTIVATEAPP = 28;
WM_APPCOMMAND = $0319;
WM_ASKCBFORMATNAME = 780;
WM_CANCELJOURNAL = 75;
WM_CANCELMODE = 31;
WM_CAPTURECHANGED = 533;
WM_CHANGECBCHAIN = 781;
WM_CHAR = 258;
WM_CHARTOITEM = 47;
WM_CHILDACTIVATE = 34;
WM_CHOOSEFONT_GETLOGFONT = 1025;
WM_CHOOSEFONT_SETLOGFONT = 1125;
WM_CHOOSEFONT_SETFLAGS = 1126;
WM_CLEAR = 771;
WM_CLIPBOARDUPDATE = $031D;
WM_CLOSE = 16;
WM_COMMAND = 273;
WM_COMPACTING = 65;
WM_COMPAREITEM = 57;
WM_CONTEXTMENU = 123;
WM_COPY = 769;
WM_COPYDATA = 74;
WM_CREATE = 1;
WM_CTLCOLORBTN = 309;
WM_CTLCOLORDLG = 310;
WM_CTLCOLOREDIT = 307;
WM_CTLCOLORLISTBOX = 308;
WM_CTLCOLORMSGBOX = 306;
WM_CTLCOLORSCROLLBAR = 311;
WM_CTLCOLORSTATIC = 312;
WM_CUT = 768;
WM_DEADCHAR = 259;
WM_DELETEITEM = 45;
WM_DESTROY = 2;
WM_DESTROYCLIPBOARD = 775;
WM_DEVICECHANGE = 537;
WM_DEVMODECHANGE = 27;
WM_DISPLAYCHANGE = 126;
WM_DRAWCLIPBOARD = 776;
WM_DRAWITEM = 43;
WM_DROPFILES = 563;
WM_ENABLE = 10;
WM_ENDSESSION = 22;
WM_ENTERIDLE = 289;
WM_ENTERMENULOOP = 529;
WM_ENTERSIZEMOVE = 561;
WM_ERASEBKGND = 20;
WM_EXITMENULOOP = 530;
WM_EXITSIZEMOVE = 562;
WM_FONTCHANGE = 29;
WM_GESTURE = $0119;
WM_GESTURENOTIFY = $011A;
WM_GESTURECOMMAND = $011D;
WM_GETACTIONTEXT = $0331;
WM_GETDLGCODE = 135;
WM_GETFONT = 49;
WM_GETHOTKEY = 51;
WM_GETICON = 127;
WM_GETMINMAXINFO = 36;
WM_GETOBJECT = $3D;
WM_GETTEXT = 13;
WM_GETTEXTLENGTH = 14;
WM_GETTITLEBARINFOEX = $033F;
WM_HELP = 83;
WM_HOTKEY = 786;
WM_HSCROLL = 276;
WM_HSCROLLCLIPBOARD = 782;
WM_ICONERASEBKGND = 39;
WM_IME_CHAR = 646;
WM_IME_COMPOSITION = 271;
WM_IME_COMPOSITIONFULL = 644;
WM_IME_CONTROL = 643;
WM_IME_ENDCOMPOSITION = 270;
WM_IME_KEYDOWN = 656;
WM_IME_KEYUP = 657;
WM_IME_NOTIFY = 642;
WM_IME_REQUEST = $0288;
WM_IME_SELECT = 645;
WM_IME_SETCONTEXT = 641;
WM_IME_STARTCOMPOSITION = 269;
WM_INITDIALOG = 272;
WM_INITMENU = 278;
WM_INITMENUPOPUP = 279;
WM_INPUT = $00FF;
WM_INPUT_DEVICE_CHANGE = $00FE;
WM_INPUTLANGCHANGE = 81;
WM_INPUTLANGCHANGEREQUEST = 80;
WM_KEYDOWN = 256;
WM_KEYUP = 257;
WM_KILLFOCUS = 8;
WM_LBUTTONDBLCLK = 515;
WM_LBUTTONDOWN = 513;
WM_LBUTTONUP = 514;
WM_MBUTTONDBLCLK = 521;
WM_MBUTTONDOWN = 519;
WM_MBUTTONUP = 520;
WM_MDIACTIVATE = 546;
WM_MDICASCADE = 551;
WM_MDICREATE = 544;
WM_MDIDESTROY = 545;
WM_MDIGETACTIVE = 553;
WM_MDIICONARRANGE = 552;
WM_MDIMAXIMIZE = 549;
WM_MDINEXT = 548;
WM_MDIREFRESHMENU = 564;
WM_MDIRESTORE = 547;
WM_MDISETMENU = 560;
WM_MDITILE = 550;
WM_MEASURECONTROL = $0330;
WM_MEASUREITEM = 44;
WM_MENUCHAR = 288;
WM_MENUCOMMAND = $0126;
WM_MENUSELECT = 287;
WM_MENURBUTTONUP = $0122;
WM_MENUDRAG = $0123;
WM_MENUGETOBJECT = $0124;
WM_MOUSEACTIVATE = 33;
WM_MOUSEMOVE = 512;
WM_MOUSEWHEEL = 522;
WM_MOUSEHWHEEL= $020E;
WM_MOUSEHOVER = 673;
WM_MOUSELEAVE = 675;
WM_MOVE = 3;
WM_MOVING = 534;
WM_NCACTIVATE = 134;
WM_NCCALCSIZE = 131;
WM_NCCREATE = 129;
WM_NCDESTROY = 130;
WM_NCHITTEST = 132;
WM_NCLBUTTONDBLCLK = 163;
WM_NCLBUTTONDOWN = 161;
WM_NCLBUTTONUP = 162;
WM_NCMBUTTONDBLCLK = 169;
WM_NCMBUTTONDOWN = 167;
WM_NCMBUTTONUP = 168;
WM_NCMOUSEMOVE = 160;
WM_NCPAINT = 133;
WM_NCRBUTTONDBLCLK = 166;
WM_NCRBUTTONDOWN = 164;
WM_NCRBUTTONUP = 165;
WM_NCXBUTTONDOWN =$00AB;
WM_NCXBUTTONUP =$00AC;
WM_NCXBUTTONDBLCLK=$00AD;
WM_NCMOUSEHOVER = $02A0;
WM_NCMOUSELEAVE = $02A2;
WM_NEXTDLGCTL = 40;
WM_NOTIFY = 78;
WM_NOTIFYFORMAT = 85;
WM_NULL = 0;
WM_PAINT = 15;
WM_PAINTCLIPBOARD = 777;
WM_PAINTICON = 38;
WM_PALETTECHANGED = 785;
WM_PALETTEISCHANGING = 784;
WM_PARENTNOTIFY = 528;
WM_PASTE = 770;
WM_PENWINFIRST = 896;
WM_PENWINLAST = 911;
WM_POWER = 72;
WM_POWERBROADCAST = 536;
WM_PRINT = 791;
WM_PRINTCLIENT = 792;
WM_PSD_ENVSTAMPRECT = 1029;
WM_PSD_FULLPAGERECT = 1025;
WM_PSD_GREEKTEXTRECT = 1028;
WM_PSD_MARGINRECT = 1027;
WM_PSD_MINMARGINRECT = 1026;
WM_PSD_PAGESETUPDLG = 1024;
WM_PSD_YAFULLPAGERECT = 1030;
WM_QUERYDRAGICON = 55;
WM_QUERYENDSESSION = 17;
WM_QUERYNEWPALETTE = 783;
WM_QUERYOPEN = 19;
WM_QUEUESYNC = 35;
WM_QUIT = 18;
WM_RBUTTONDBLCLK = 518;
WM_RBUTTONDOWN = 516;
WM_RBUTTONUP = 517;
WM_RENDERALLFORMATS = 774;
WM_RENDERFORMAT = 773;
WM_SETCURSOR = 32;
WM_SETFOCUS = 7;
WM_SETFONT = 48;
WM_SETHOTKEY = 50;
WM_SETICON = 128;
WM_SETREDRAW = 11;
WM_SETTEXT = 12;
WM_SETTINGCHANGE = 26;
WM_SHOWWINDOW = 24;
WM_SIZE = 5;
WM_SIZECLIPBOARD = 779;
WM_SIZING = 532;
WM_SPOOLERSTATUS = 42;
WM_STYLECHANGED = 125;
WM_STYLECHANGING = 124;
WM_SYSCHAR = 262;
WM_SYSCOLORCHANGE = 21;
WM_SYSCOMMAND = 274;
WM_SYSDEADCHAR = 263;
WM_SYSKEYDOWN = 260;
WM_SYSKEYUP = 261;
WM_TCARD = 82;
WM_THEMECHANGED = $031A;
WM_TIMECHANGE = 30;
WM_TIMER = 275;
WM_UNDO = 772;
WM_UNICHAR = $109;
WM_UNINITMENUPOPUP = $0125;
WM_USER = 1024;
WM_APP = $8000;
WM_USERCHANGED = 84;
WM_VKEYTOITEM = 46;
WM_VSCROLL = 277;
WM_VSCROLLCLIPBOARD = 778;
WM_WINDOWPOSCHANGED = 71;
WM_WINDOWPOSCHANGING = 70;
WM_WININICHANGE = 26;
{ Window message ranges }
WM_KEYFIRST = 256;
WM_KEYLAST = 264;
WM_MOUSEFIRST = 512;
WM_MOUSELAST = 525;
WM_XBUTTONDOWN = 523;
WM_XBUTTONUP = 524;
WM_XBUTTONDBLCLK = 525;
WM_CHANGEUISTATE = $0127;
WM_UPDATEUISTATE = $0128;
WM_QUERYUISTATE = $0129;
WM_NEXTMENU = $0213;
WM_WTSSESSION_CHANGE = $02B1;
WM_TABLET_FIRST = $02c0;
WM_TABLET_LAST = $02df;
WM_DPICHANGED = $02E0;
WM_DWMCOMPOSITIONCHANGED = $031E;
WM_DWMNCRENDERINGCHANGED = $031F;
WM_DWMCOLORIZATIONCOLORCHANGED = $0320;
WM_DWMWINDOWMAXIMIZEDCHANGE = $0321;
WM_DWMSENDICONICTHUMBNAIL = $0323;
WM_DWMSENDICONICLIVEPREVIEWBITMAP= $0326;
Type
{$ifdef MESSAGESUNIT}
MSG = Windows.MSG;
TMessage = Windows.TMessage;
TWMSize = Windows.TWMSize;
TWMNoParams = Windows.TWMNoParams;
TWMKey = Windows.TWMKey;
TWMMenuChar = Windows.TWMMenuChar;
TWMScroll = Windows.TWMScroll;
TWMGetText = Windows.TWMGetText;
TWMKillFocus = Windows.TWMKillFocus;
TWMSetCursor = Windows.TWMSetCursor;
TWMSetFocus = Windows.TWMSetFocus;
TWMSetFont = Windows.TWMSetFont;
TWMShowWindow = Windows.TWMShowWindow;
TWMEraseBkgnd = Windows.TWMEraseBkgnd;
TWMIconEraseBkgnd = TWMEraseBkgnd;
LPMSG = ^Windows.MSG;
tagMSG = Windows.tagMSG;
TMSG = Windows.TMSG;
PMSG = Windows.PMSG;
PMessage = Windows.PMessage;
TWMGetDlgCode = TWMNoParams;
TWMFontChange = TWMNoParams;
TWMGetFont = TWMNoParams;
TWMHScroll = TWMScroll;
TWMVScroll = TWMScroll;
TWMGetTextLength = TWMNoParams;
TWMUIState = Windows.TWMUIState;
TWMNCHitTest = Windows.TWMNCHitTest;
TWMMouse = Windows.TWMMouse;
TWMMouseWheel = Windows.TWMMouseWheel;
TWMNCHitMessage = Windows.TWMNCHitMessage;
TWMPaint = Windows.TWMPaint;
TWMCommand = Windows.TWMCommand;
TWMNotify = Windows.TWMNotify;
TWMPrint = Windows.TWMPrint;
TWMWinIniChange = Windows.TWMWinIniChange;
TWMContextMenu = Windows.TWMContextMenu;
TWMNCCalcSize = Windows.TWMNCCalcSize;
TWMCharToItem = Windows.TWMCharToItem;
TWMParentNotify = Windows.TWMParentNotify;
TWMSysCommand = Windows.TWMSysCommand;
TWMMove = Windows.TWMMove;
TWMWindowPosMsg = Windows.TWMWindowPosMsg;
TWMCompareItem = Windows.TWMCompareItem;
TWMDeleteItem = Windows.TWMDeleteItem;
TWMDrawItem = Windows.TWMDrawItem;
TWMMeasureItem = Windows.TWMMeasureItem;
TWMNCCreate = Windows.TWMNCCreate;
TWMInitMenuPopup = Windows.TWMInitMenuPopup;
TWMMenuSelect = Windows.TWMMenuSelect;
TWMActivate = Windows.TWMActivate;
TWMQueryEndSession = Windows.TWMQueryEndSession;
TWMMDIActivate = Windows.TWMMDIActivate;
TWMNextDlgCtl = Windows.TWMNextDlgCtl;
TWMHelp = Windows.TWMHelp;
TWMGetMinMaxInfo = Windows.TWMGetMinMaxInfo;
TWMSettingChange = Windows.TWMSettingChange;
TWMCreate = Windows.TWMCreate;
TWMCtlColor = Windows.TWMCtlColor;
TWMInitDialog = Windows.TWMInitDialog;
TWMNCPaint = Windows.TWMNCPaint;
TWMSetText = Windows.TWMSetText;
TWMSizeClipboard = Windows.TWMSizeClipboard;
TWMSpoolerStatus = Windows.TWMSpoolerStatus;
TWMStyleChange = Windows.TWMStyleChange;
TWMSysDeadChar = Windows.TWMSysDeadChar;
TWMSystemError = Windows.TWMSystemError;
TWMTimer = Windows.TWMTimer;
TWMVScrollClipboard = Windows.TWMVScrollClipboard;
TWMDisplayChange = Windows.TWMDisplayChange;
TWMDropFiles = Windows.TWMDropFiles;
TWMEnable = Windows.TWMEnable;
TWMMouseActivate = Windows.TWMMouseActivate;
TWMEndSession = Windows.TWMEndSession;
TWMActivateApp = Windows.TWMActivateApp;
TWMCancelMode = Windows.TWMCancelMode;
TWMNCDestroy = Windows.TWMNCDestroy;
TWMDestroy = Windows.TWMDestroy;
TWMClose = Windows.TWMClose;
TWMQueryUIState = Windows.TWMQueryUIState;
TWMSysColorChange = Windows.TWMSysColorChange;
TWMQueryDragIcon = Windows.TWMQueryDragIcon;
TWMTimeChange = Windows.TWMTimeChange;
TWMUndo = Windows.TWMUndo;
TWMWindowPosChanged = TWMWindowPosMsg;
TWMWindowPosChanging= TWMWindowPosMsg;
TWMPaste = Windows.TWMPaste;
TWMCut = Windows.TWMCut;
TWMCopy = Windows.TWMCopy;
{$else}
HALFLRESULT = WORD; // in win64, these remain 16-bit. the extra room is unused.
HALFPARAM = WORD;
HALFPARAMBOOL = WORDBOOL;
MSG = record
hwnd : HWND;
message : UINT;
wParam : WPARAM;
lParam : LPARAM;
time : DWORD;
pt : POINT;
end;
LPMSG = ^MSG;
tagMSG = MSG;
TMSG = MSG;
PMSG = ^MSG;
// define a type for a field that only takes space if 64-bit.
TDWordFiller = record
{$ifdef CPU64}
filler : array[0..3] of byte;
{$endif}
end;
PMessage = ^TMessage;
TMessage = record
msg : UINT;
// Delphi docs say no filler here. Because next field is
// already 8 byte aligned in 64-bit?
case longint of
0: (
wParam : WPARAM;
lParam : LPARAM;
Result : LRESULT;
);
1: (
wParamlo,
wParamhi : HALFPARAM; // Is there Windows type for half an w/lparam?
wParamFiller : TDwordFiller;
lParamlo,
lParamhi : HALFPARAM;
lParamFiller : TDwordFiller;
Resultlo,
Resulthi : HALFLRESULT;
ResultFiller : TDwordFiller;
);
end;
TWMSize = record
Msg: UINT;
MsgFiller : TDwordFiller;
SizeType : WPARAM;
Width : HALFPARAM;
Height : HALFPARAM;
LParamfiller : TDWordFiller;
Result : LRESULT;
End;
TWMNoParams = record
Msg : UINT;
Unusedw : WPARAM;
Unusedl : LPARAM;
Result : LRESULT;
end;
TWMCancelMode = TWMNoParams;
TWMNCDestroy = TWMNoParams;
TWMDestroy = TWMNoParams;
TWMClose = TWMNoParams;
TWMQueryUIState = TWMNoParams;
TWMPaste = TWMNoParams;
TWMCut = TWMNoParams;
TWMCopy = TWMNoParams;
TWMUIState = record
Msg : UINT;
MsgFiller : TDwordFiller;
Action : Word;
Flags : Word;
WParamFiller : TDwordFiller;
Unused : LParam;
unused2 : LResult;
end;
TWMChangeUIState = TWMUIState;
TWMUpdateUIState = TWMUIState;
TWMKey = record
Msg: UINT;
MsgFiller : TDwordFiller;
CharCode: Word;
Unused: Word;
WParamFiller : TDwordFiller;
KeyData: Longint;
LParamFiller : TDwordFiller;
Result: LRESULT;
end;
TWMKeyDown = TWMKey;
TWMKeyUp = TWMKey;
TWMChar = TWMKey;
TWMSysChar = TWMKey;
TWMSysKeyDown = TWMKey;
TWMSysKeyUp = TWMKey;
TWMMenuChar = record
Msg: UINT;
MsgFiller : TDwordFiller;
User: Char;
MenuFlag: Word;
WParamFiller : TDwordFiller;
Menu: HMENU;
Result: LRESULT;
end;
TWMGetDlgCode = TWMNoParams;
TWMFontChange = TWMNoParams;
TWMGetFont = TWMNoParams;
TWMSysColorChange = TWMNoParams;
TWMQueryDragIcon = TWMNoParams;
TWMScroll = record
Msg : UINT;
MsgFiller : TDwordFiller;
ScrollCode : HALFPARAM;
Pos : HALFPARAM;
WparamFiller : TDwordFiller;
ScrollBar : HWND;
Result : LRESULT;
end;
TWMHScroll = TWMScroll;
TWMVScroll = TWMScroll;
TWMGetText = record
Msg : UINT;
MsgFiller : TDwordFiller;
TextMax : WPARAM;
Text : PChar;
Result : LRESULT;
end;
TWMGetTextLength = TWMNoParams;
TWMKillFocus = record
Msg : UINT;
MsgFiller : TDwordFiller;
FocusedWnd : HWND;
UnUsed : LPARAM;
Result : LRESULT;
end;
TWMSetCursor = record
Msg : UINT;
MsgFiller : TDwordFiller;
CursorWnd : HWND;
HitTest : HALFPARAM;
MouseMsg : HALFPARAM;
LParamFiller : TDwordFiller;
Result : LRESULT;
end;
TWMSetFocus = record
Msg : UINT;
MsgFiller : TDwordFiller;
FocusedWnd : HWND;
Unused : LPARAM;
Result : LRESULT;
end;
TWMSetFont = record
Msg : UINT;
MsgFiller : TDwordFiller;
Font : HFONT;
Redraw : HALFPARAMBOOL;
Unused : HALFPARAM;
LParamFiller : TDwordFiller;
Result : LRESULT;
end;
TWMShowWindow = record
Msg : UINT;
MsgFiller : TDwordFiller;
Show : HALFPARAMBOOL;
Unused : HALFPARAM;
WParamFiller : TDwordFiller;
Status : LPARAM;
Result : LRESULT;
end;
TWMEraseBkgnd = record
Msg : UINT;
MsgFiller : TDwordFiller;
DC : HDC;
Unused : LPARAM;
Result : LRESULT;
end;
TWMNCHitTest = record
Msg : UINT;
MsgFiller : TDwordFiller;
Unused : WParam;
case Integer of
0: (XPos : Smallint;YPos : Smallint);
1: ( Pos : TSmallPoint;LParamFiller:TDwordFiller;Result: LRESULT);
end;
TWMMouse = record
Msg : UINT;
MsgFiller : TDwordFiller;
Keys : WParam;
case Integer of
0: (XPos : Smallint;YPos : Smallint);
1: (Pos : TSmallPoint;LParamFiller:TDwordFiller;Result : LRESULT);
end;
TWMLButtonDblClk = TWMMouse;
TWMLButtonDown = TWMMouse;
TWMLButtonUp = TWMMouse;
TWMMButtonDblClk = TWMMouse;
TWMMButtonDown = TWMMouse;
TWMMButtonUp = TWMMouse;
TWMMouseWheel = record
Msg : UINT;
MsgFiller : TDwordFiller;
Keys : SmallInt;
WheelDelta : SmallInt;
WParamFiller : TDwordFiller;
case Integer of
0: (XPos : Smallint;YPos : Smallint);
1: (Pos : TSmallPoint;LParamFiller:TDwordFiller;Result : LRESULT);
end;
TWMNCHitMessage = record
Msg : UINT;
MsgFiller : TDwordFiller;
HitTest : Longint;
WParamFiller : TDwordFiller;
XCursor : Smallint;
YCursor : Smallint;
LParamFiller : TDwordFiller;
Result : LRESULT;
end;
TWMNCLButtonDblClk = TWMNCHitMessage;
TWMNCLButtonDown = TWMNCHitMessage;
TWMNCLButtonUp = TWMNCHitMessage;
TWMNCMButtonDblClk = TWMNCHitMessage;
TWMNCMButtonDown = TWMNCHitMessage;
TWMNCMButtonUp = TWMNCHitMessage;
TWMNCMouseMove = TWMNCHitMessage;
TWMRButtonDblClk = TWMMouse;
TWMRButtonDown = TWMMouse;
TWMRButtonUp = TWMMouse;
TWMMouseMove = TWMMouse;
TWMPaint = record
Msg : UINT;
MsgFiller : TDwordFiller;
DC : HDC;
Unused : Longint;
LParamFiller : TDwordFiller;
Result : LRESULT;
end;
TWMCommand = record
Msg : UINT;
MsgFiller : TDwordFiller;
ItemID : Word;
NotifyCode : Word;
WParamFiller : TDwordFiller;
Ctl : HWND;
Result : LRESULT;
end;
TWMNotify = record
Msg : UINT;
MsgFiller : TDwordFiller;
IDCtrl : Longint;
WParamFiller : TDwordFiller;
NMHdr : PNMHdr;
Result : LRESULT;
end;
TWMPrint = record
Msg : UINT;
MsgFiller : TDwordFiller;
DC : HDC;
Flags : Cardinal;
LParamFiller : TDwordFiller;
Result : LRESULT;
end;
TWMPrintClient = TWMPrint;
TWMWinIniChange = record
Msg : UINT;
MsgFiller : TDwordFiller;
Unused : WParam;
Section : PChar;
Result : LRESULT;
end;
TWMContextMenu = record
Msg : UINT;
MsgFiller : TDwordFiller;
hWnd : HWND;
case Integer of
0: (XPos : Smallint;YPos : Smallint);
1: (Pos : TSmallPoint; LParamFiller : TDwordFiller;Result : LRESULT);
end;
TWMNCCalcSize = record
Msg : UINT;
MsgFiller : TDwordFiller;
CalcValidRects : BOOL;
WParamFiller : TDwordFiller;
CalcSize_Params : PNCCalcSizeParams;
Result : LRESULT;
end;
TWMCharToItem = record
Msg : UINT;
MsgFiller : TDwordFiller;
Key : Word;
CaretPos : Word;
WParamFiller : TDwordFiller;
ListBox: HWND;
Result : LRESULT;
end;
TWMVKeyToItem = TWMCharToItem;
TWMParentNotify = record
Msg : UINT;
MsgFiller : TDwordFiller;
case Word of // moves into union to simply alignment rules.
WM_CREATE, WM_DESTROY: (Event : word;ChildID : Word; WParamFiller : TDwordFiller;ChildWnd : HWnd);
WM_LBUTTONDOWN, WM_MBUTTONDOWN, WM_RBUTTONDOWN: (dummy:word;Value : Word; WParamFiller2 : TDwordFiller;XPos : Smallint;YPos : Smallint);
0: (dummy2:word;Value1 : Word; WParamFiller3 : TDwordFiller;Value2 : Longint; LParamFiller : TDwordFiller;Result : LRESULT);
end;
TWMSysCommand = record
Msg : UINT;
MsgFiller : TDwordFiller;
case CmdType : WParam of
SC_HOTKEY: (ActivateWnd : HWND);
SC_KEYMENU: (Key : Word);
SC_CLOSE, SC_HSCROLL, SC_MAXIMIZE, SC_MINIMIZE, SC_MOUSEMENU, SC_MOVE,
SC_NEXTWINDOW, SC_PREVWINDOW, SC_RESTORE, SC_SCREENSAVE, SC_SIZE,
SC_TASKLIST, SC_VSCROLL: (XPos : Smallint; YPos : Smallint; LParamFiller : TDwordFiller;Result : LRESULT);
end;
TWMMove = record
Msg : UINT;
MsgFiller : TDwordFiller;
Unused : WParam;
case Integer of
0: (XPos : Smallint;YPos : Smallint);
1: (Pos : TSmallPoint; LParamFiller : TDwordFiller;Result : LRESULT);
end;
TWMWindowPosMsg = record
Msg : UINT;
MsgFiller : TDwordFiller;
Unused : WParam;
WindowPos : PWindowPos;
Result : LRESULT;
end;
TWMWindowPosChanged = TWMWindowPosMsg;
TWMWindowPosChanging = TWMWindowPosMsg;
TWMCompareItem = record
Msg : UINT;
MsgFiller : TDwordFiller;
Ctl : HWnd;
CompareItemStruct : PCompareItemStruct;
Result : LRESULT;
end;
TWMDeleteItem = record
Msg : UINT;
MsgFiller : TDwordFiller;
Ctl : HWND;
DeleteItemStruct : PDeleteItemStruct;
Result : LRESULT;
end;
TWMDrawItem = record
Msg : UINT;
MsgFiller : TDwordFiller;
Ctl : HWND;
DrawItemStruct : PDrawItemStruct;
Result : LRESULT;
end;
TWMMeasureItem = record
Msg : UINT;
MsgFiller : TDwordFiller;
IDCtl : HWnd;
MeasureItemStruct : PMeasureItemStruct;
Result : LRESULT
end;
TWMNCCreate = record
Msg : UINT;
MsgFiller : TDwordFiller;
Unused : WParam;
CreateStruct : PCreateStruct;
Result : LRESULT;
end;
TWMInitMenuPopup = record
Msg : UINT;
MsgFiller : TDwordFiller;
MenuPopup : HMENU;
Pos : Smallint;
SystemMenu : WordBool;
LParamFiller : TDwordFiller;
Result : LRESULT;
end;
TWMMenuSelect = record
Msg : UINT;
MsgFiller : TDwordFiller;
IDItem : Word;
MenuFlag : Word;
WParamFiller : TDwordFiller;
Menu: HMENU;
Result : LRESULT;
end;
TWMActivate = record
Msg : UINT;
MsgFiller : TDwordFiller;
Active : Word;
Minimized : WordBool;
WParamFiller : TDwordFiller;
ActiveWindow : HWND;
Result : LRESULT;
end;
TWMQueryEndSession = record
Msg : UINT;
MsgFiller : TDwordFiller;
Source : Longint;
WParamFiller : TDwordFiller;
Unused : LParam;
Result : LRESULT;
end;
TWMMDIActivate = record
Msg : UINT;
MsgFiller : TDwordFiller;
case Integer of
0: (ChildWnd : HWND);
1: (DeactiveWnd : HWND;ActiveWnd : HWND;Result: LRESULT);
end;
TWMNextDlgCtl = record
Msg : UINT;
MsgFiller : TDwordFiller;
CtlFocus : Longint;
WParamFiller : TDwordFiller;
Handle : WordBool;
Unused : Word;
LParamFiller : TDwordFiller;
Result : LRESULT;
end;
TWMHelp = record
Msg : UINT;
MsgFiller : TDwordFiller;
Unused : WParam;
HelpInfo : PHelpInfo;
Result : LRESULT;
end;
TWMGetMinMaxInfo = record
Msg : UINT;
MsgFiller : TDwordFiller;
Unused : WParam;
MinMaxInfo : PMinMaxInfo;
Result : LRESULT;
end;
TWMSettingChange = record
Msg : UINT;
MsgFiller : TDwordFiller;
Flag : Integer;
WParamFiller : TDwordFiller;
Section : PChar;
Result : LRESULT;
end;
TWMCreate = record
Msg : UINT;
MsgFiller : TDwordFiller;
Unused : WParam;
CreateStruct : PCreateStruct;
Result : LRESULT;
end;
TWMCtlColor = record
Msg : UINT;
MsgFiller : TDwordFiller;
ChildDC : HDC;
ChildWnd : HWND;
Result : LRESULT;
end;
TWMCtlColorScrollbar = TWMCtlColor;
TWMCtlColorStatic = TWMCtlColor;
TWMCtlColorBtn = TWMCtlColor;
TWMCtlColorListbox = TWMCtlColor;
TWMCtlColorMsgbox = TWMCtlColor;
TWMCtlColorDlg = TWMCtlColor;
TWMCtlColorEdit = TWMCtlColor;
TWMInitDialog = record
Msg : UINT;
MsgFiller : TDwordFiller;
Focus : HWND;
InitParam : Longint;
LParamFiller : TDwordFiller;
Result : LRESULT;
end;
TWMNCPaint = record
Msg : UINT;
MsgFiller : TDwordFiller;
RGN : HRGN;
Unused : LPARAM;
Result : LRESULT;
end;
TWMSetText = record
Msg : UINT;
MsgFiller : TDwordFiller;
Unused : WParam;
Text : PChar;
Result : LRESULT;
end;
TWMSizeClipboard = record
Msg: UINT;
MsgFiller : TDwordFiller;
Viewer: HWND;
RC: THandle;
Result: LRESULT;
end;
TWMSpoolerStatus = record
Msg: UINT;
MsgFiller: TDwordFiller;
JobStatus: WPARAM;
JobsLeft : word;
Unused : word;
LParamFiller : TDwordFiller;
Result: LRESULT;
end;
TWMStyleChange = record
Msg: UINT;
MsgFiller : TDwordFiller;
StyleType: LPARAM;
StyleStruct: PStyleStruct;
Result: LRESULT;
end;
TWMStyleChanged = TWMStyleChange;
TWMStyleChanging = TWMStyleChange;
TWMSysDeadChar = record
Msg: UINT;
MsgFiller : TDwordFiller;
CharCode: WPARAM;
KeyData: LPARAM;
Result: LRESULT;
end;
TWMSystemError = record
Msg: UINT;
MsgFiller : TDwordFiller;
ErrSpec: WPARAM;
Unused: LPARAM;
Result: LRESULT;
end;
TWMTimeChange = TWMNoParams;
TWMTimer = record
Msg: UINT;
MsgFiller : TDwordFiller;
TimerID: WPARAM;
TimerProc: TFarProc;
Result: LRESULT;
end;
TWMUndo = TWMNoParams;
TWMVScrollClipboard = record
Msg: UINT;
MsgFiller : TDwordFiller;
Viewer: HWND;
ScollCode: word;
ThumbPos: word;
LParamFiller : TDwordFiller;
Result: LRESULT;
end;
TWMDisplayChange = record
Msg: UINT;
MsgFiller : TDwordFiller;
BitsPerPixel: WParam;
Width: Word;
Height: Word;
LParamFiller : TDwordFiller;
Result: LRESULT;
end;
TWMDropFiles = record
Msg: UINT;
MsgFiller : TDwordFiller;
Drop: THANDLE;
Unused: LPARAM;
Result: LRESULT;
end;
TWMEnable = record
Msg: UINT;
MsgFiller : TDwordFiller;
Enabled: BOOL;
WParamFiller : TDwordFiller;
Unused: LPARAM;
Result: LRESULT;
end;
TWMMouseActivate = record
Msg: UINT;
MsgFiller : TDwordFiller;
TopLevel: HWND;
HitTestCode: Word;
MouseMsg: Word;
LParamFiller : TDwordFiller;
Result: LRESULT;
end;
TWMEndSession = record
Msg: UINT;
MsgFiller : TDwordFiller;
EndSession: BOOL;
WParamFiller : TDwordFiller;
Unused: LPARAM;
Result: LRESULT;
end;
TWMActivateApp = record
Msg: UINT;
MsgFiller : TDwordFiller;
Active: BOOL;
WParamFiller : TDwordFiller;
ThreadId: LPARAM;
Result: LRESULT;
end;
{$endif messagesunit}
{$endif read_interface}
Reference in New Issue View Git Blame Copy Permalink