📄 delphicommctrl.inc
字号:
TB_ADDBUTTONS = TB_ADDBUTTONSA;
IDB_STD_SMALL_COLOR = 0;
IDB_STD_LARGE_COLOR = 1;
IDB_VIEW_SMALL_COLOR = 4;
IDB_VIEW_LARGE_COLOR = 5;
IDB_HIST_SMALL_COLOR = 8;
IDB_HIST_LARGE_COLOR = 9;
STD_CUT = 0;
STD_COPY = 1;
STD_PASTE = 2;
STD_UNDO = 3;
STD_REDO = 4;
STD_DELETE = 5;
STD_FILENEW = 6;
STD_FILEOPEN = 7;
STD_FILESAVE = 8;
STD_PRINTPRE = 9;
STD_PROPERTIES = 10;
STD_HELP = 11;
STD_FIND = 12;
STD_REPLACE = 13;
STD_PRINT = 14;
{ icon indexes for standard view bitmap }
VIEW_LARGEICONS = 0;
VIEW_SMALLICONS = 1;
VIEW_LIST = 2;
VIEW_DETAILS = 3;
VIEW_SORTNAME = 4;
VIEW_SORTSIZE = 5;
VIEW_SORTDATE = 6;
VIEW_SORTTYPE = 7;
VIEW_PARENTFOLDER = 8;
VIEW_NETCONNECT = 9;
VIEW_NETDISCONNECT = 10;
VIEW_NEWFOLDER = 11;
VIEW_VIEWMENU = 12;
{ icon indexes for standard history bitmap }
HIST_BACK = 0;
HIST_FORWARD = 1;
HIST_FAVORITES = 2;
HIST_ADDTOFAVORITES = 3;
HIST_VIEWTREE = 4;
TBSTATE_CHECKED = $01;
TBSTATE_PRESSED = $02;
TBSTATE_ENABLED = $04;
TBSTATE_HIDDEN = $08;
TBSTATE_INDETERMINATE = $10;
TBSTATE_WRAP = $20;
TBSTATE_ELLIPSES = $40;
TBSTATE_MARKED = $80;
TBSTYLE_BUTTON = $00;
TBSTYLE_SEP = $01;
TBSTYLE_CHECK = $02;
TBSTYLE_GROUP = $04;
TBSTYLE_CHECKGROUP = TBSTYLE_GROUP or TBSTYLE_CHECK;
TBSTYLE_DROPDOWN = $08;
TBSTYLE_AUTOSIZE = $0010; // automatically calculate the cx of the button
TBSTYLE_NOPREFIX = $0020; // if this button should not have accel prefix
TBSTYLE_TOOLTIPS = $0100;
TBSTYLE_WRAPABLE = $0200;
TBSTYLE_ALTDRAG = $0400;
TBSTYLE_FLAT = $0800;
TBSTYLE_LIST = $1000;
TBSTYLE_CUSTOMERASE = $2000;
TBSTYLE_REGISTERDROP = $4000;
TBSTYLE_TRANSPARENT = $8000;
TBSTYLE_EX_DRAWDDARROWS = $00000001;
TBIF_IMAGE = $00000001;
TBIF_TEXT = $00000002;
TBIF_STATE = $00000004;
TBIF_STYLE = $00000008;
TBIF_LPARAM = $00000010;
TBIF_COMMAND = $00000020;
TBIF_SIZE = $00000040;
TTN_FIRST = 0-520; { tooltips }
TTN_LAST = 0-549;
TTN_NEEDTEXTA = TTN_FIRST - 0;
TTN_NEEDTEXT = TTN_FIRST - 0;
TTN_NEEDTEXTW = TTN_FIRST - 10;
TTS_ALWAYSTIP = $01;
TTS_NOPREFIX = $02;
TTM_ACTIVATE = WM_USER + 1;
TTM_SETDELAYTIME = WM_USER + 3;
TTM_ADDTOOLA = WM_USER + 4;
TTM_DELTOOLA = WM_USER + 5;
TTM_NEWTOOLRECTA = WM_USER + 6;
TTM_GETTOOLINFOA = WM_USER + 8;
TTM_SETTOOLINFOA = WM_USER + 9;
TTM_HITTESTA = WM_USER + 10;
TTM_GETTEXTA = WM_USER + 11;
TTM_UPDATETIPTEXTA = WM_USER + 12;
TTM_ENUMTOOLSA = WM_USER + 14;
TTM_GETCURRENTTOOLA = WM_USER + 15;
TTM_ADDTOOLW = WM_USER + 50;
TTM_DELTOOLW = WM_USER + 51;
TTM_NEWTOOLRECTW = WM_USER + 52;
TTM_GETTOOLINFOW = WM_USER + 53;
TTM_SETTOOLINFOW = WM_USER + 54;
TTM_HITTESTW = WM_USER + 55;
TTM_GETTEXTW = WM_USER + 56;
TTM_UPDATETIPTEXTW = WM_USER + 57;
TTM_ENUMTOOLSW = WM_USER + 58;
TTM_GETCURRENTTOOLW = WM_USER + 59;
TTM_WINDOWFROMPOINT = WM_USER + 16;
TTM_TRACKACTIVATE = WM_USER + 17; // wParam = TRUE/FALSE start end lparam = LPTOOLINFO
TTM_TRACKPOSITION = WM_USER + 18; // lParam = dwPos
TTM_SETTIPBKCOLOR = WM_USER + 19;
TTM_SETTIPTEXTCOLOR = WM_USER + 20;
TTM_GETDELAYTIME = WM_USER + 21;
TTM_GETTIPBKCOLOR = WM_USER + 22;
TTM_GETTIPTEXTCOLOR = WM_USER + 23;
TTM_SETMAXTIPWIDTH = WM_USER + 24;
TTM_GETMAXTIPWIDTH = WM_USER + 25;
TTM_SETMARGIN = WM_USER + 26; // lParam = lprc
TTM_GETMARGIN = WM_USER + 27; // lParam = lprc
TTM_POP = WM_USER + 28;
TTM_UPDATE = WM_USER + 29;
TTM_ADDTOOL = TTM_ADDTOOLA;
TTM_DELTOOL = TTM_DELTOOLA;
TTM_NEWTOOLRECT = TTM_NEWTOOLRECTA;
TTM_GETTOOLINFO = TTM_GETTOOLINFOA;
TTM_SETTOOLINFO = TTM_SETTOOLINFOA;
TTM_HITTEST = TTM_HITTESTA;
TTM_GETTEXT = TTM_GETTEXTA;
TTM_UPDATETIPTEXT = TTM_UPDATETIPTEXTA;
TTM_ENUMTOOLS = TTM_ENUMTOOLSA;
TTM_GETCURRENTTOOL = TTM_GETCURRENTTOOLA;
TTM_RELAYEVENT = WM_USER + 7;
TTM_GETTOOLCOUNT = WM_USER +13;
TTF_IDISHWND = $0001;
TTF_CENTERTIP = $0002;
TTF_RTLREADING = $0004;
TTF_SUBCLASS = $0010;
TTF_TRACK = $0020;
TTF_ABSOLUTE = $0080;
TTF_TRANSPARENT = $0100;
TTF_DI_SETITEM = $8000; // valid only on the TTN_NEEDTEXT callback
LPSTR_TEXTCALLBACKA = LPSTR(-1);
LPSTR_TEXTCALLBACKW = LPWSTR(-1);
LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA; CW_USEDEFAULT = Integer($80000000);
type
PTBAddBitmap = ^TTBAddBitmap;
TTBAddBitmap = packed record
hInst: THandle;
nID: UINT;
end;
PTBButton = ^TTBButton;
TTBButton = packed record
iBitmap: Integer;
idCommand: Integer;
fsState: Byte;
fsStyle: Byte;
bReserved: array[1..2] of Byte;
dwData: Longint;
iString: Integer;
end;
PTBButtonInfo = ^TTBButtonInfo;
TTBButtonInfo = packed record
cbSize: UINT;
dwMask: DWORD;
idCommand: Integer;
iImage: Integer;
fsState: Byte;
fsStyle: Byte;
cx: Word;
lParam: DWORD;
pszText: PAnsiChar;
cchText: Integer;
end;
PColorMap = ^TColorMap;
TColorMap = packed record
cFrom: TColorRef;
cTo: TColorRef;
end;
PTBNotify = ^TTBnotify;
TTBNotify = packed record
hdr: TNMHdr;
iItem: Integer;
tbButton: TTBButton;
cchText: Integer;
pszText: PChar;
end;
PTooltipText = ^TTooltipText;
TTooltipText = packed record
hdr: TNMHdr;
lpszText: PAnsiChar;
szText: array[0..79] of AnsiChar;
hinst: HINST;
uFlags: UINT;
lParam: LPARAM;
end;
PToolInfo = ^TToolInfo;
TToolInfo = packed record
cbSize: UINT;
uFlags: UINT;
hwnd: HWND;
uId: UINT;
Rect: TRect;
hInst: THandle;
lpszText: PAnsiChar;
lParam: LPARAM;
end;
const
WM_MOUSEHOVER = $02A1;
WM_MOUSELEAVE = $02A3;
TME_HOVER = $00000001;
TME_LEAVE = $00000002;
TME_QUERY = $40000000;
TME_CANCEL = $80000000;
HOVER_DEFAULT = $FFFFFFFF;
ODT_HEADER = 100;
ODT_TAB = 101;
ODT_LISTVIEW = 102;
type
tagTRACKMOUSEEVENT = packed record
cbSize: DWORD;
dwFlags: DWORD;
hwndTrack: HWND;
dwHoverTime: DWORD;
end;
PTrackMouseEvent = ^TTrackMouseEvent;
TTrackMouseEvent = tagTRACKMOUSEEVENT;
{ Declare _TrackMouseEvent. This API tries to use the window manager's }
{ implementation of TrackMouseEvent if it is present, otherwise it emulates. }
function _TrackMouseEvent(lpEventTrack: PTrackMouseEvent): BOOL; stdcall;
//////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
// Some stuff from new Delphi versions (not available in old ones):
const
//IDC_HAND = MakeIntResource(32649);
IDC_HAND = PChar(32649);
/////////////////////////////////////////////////////////
const
VK_PAGE_DOWN = VK_NEXT;
VK_PAGE_UP = VK_PRIOR;
VK_ALT = VK_MENU;
PBT_APMQUERYSUSPEND = 00 ;
PBT_APMQUERYSTANDBY = 01 ;
PBT_APMQUERYSUSPENDFAILED = 02 ;
PBT_APMQUERYSTANDBYFAILED = 03 ;
PBT_APMSUSPEND = 04 ;
PBT_APMSTANDBY = 05 ;
PBT_APMRESUMECRITICAL = 06 ;
PBT_APMRESUMESUSPEND = 07 ;
PBT_APMRESUMESTANDBY = 08 ;
PBTF_APMRESUMEFROMFAILURE = 000001 ;
PBT_APMBATTERYLOW = 09 ;
PBT_APMPOWERSTATUSCHANGE = 10 ;
PBT_APMOEMEVENT = 11 ;
PBT_APMRESUMEAUTOMATIC = 12 ;
{ DATETIMEPICKER}
const
// messages
DTM_FIRST = $1000;
DTM_GETSYSTEMTIME = DTM_FIRST + 1;
DTM_SETSYSTEMTIME = DTM_FIRST + 2;
DTM_GETRANGE = DTM_FIRST + 3;
DTM_SETRANGE = DTM_FIRST + 4;
DTM_SETFORMATA = DTM_FIRST + 5;
DTM_SETMCCOLOR = DTM_FIRST + 6;
DTM_GETMCCOLOR = DTM_FIRST + 7;
DTM_GETMONTHCAL = DTM_FIRST + 8;
DTM_SETMCFONT = DTM_FIRST + 9;
DTM_GETMCFONT = DTM_FIRST + 10;
DTM_SETFORMATW = DTM_FIRST + 50;
DTM_SETFORMAT = DTM_SETFORMATA;
// Ranges
GDTR_MIN = $0001;
GDTR_MAX = $0002;
// Return Values
GDT_ERROR = -1;
GDT_VALID = 0;
GDT_NONE = 1;
// notifications
DTN_FIRST = 0-760; { datetimepick }
DTN_LAST = 0-799;
DTN_DATETIMECHANGE = DTN_FIRST + 1; // the systemtime has changed
DTN_USERSTRINGA = DTN_FIRST + 2; // the user has entered a string
DTN_USERSTRINGW = DTN_FIRST + 15;
DTN_WMKEYDOWNA = DTN_FIRST + 3; // modify keydown on app format field (X)
DTN_WMKEYDOWNW = DTN_FIRST + 16;
DTN_FORMATA = DTN_FIRST + 4; // query display for app format field (X)
DTN_FORMATW = DTN_FIRST + 17;
DTN_FORMATQUERYA = DTN_FIRST + 5; // query formatting info for app format field (X)
DTN_FORMATQUERYW = DTN_FIRST + 18;
DTN_DROPDOWN = DTN_FIRST + 6; // MonthCal has dropped down
DTN_CLOSEUP = DTN_FIRST + 7; // MonthCal is popping up
DTN_USERSTRING = DTN_USERSTRINGA;
DTN_WMKEYDOWN = DTN_WMKEYDOWNA;
DTN_FORMAT = DTN_FORMATA;
DTN_FORMATQUERY = DTN_FORMATQUERYA;
// styles
DTS_UPDOWN = $0001; // use UPDOWN instead of MONTHCAL
DTS_SHOWNONE = $0002; // allow a NONE selection
DTS_SHORTDATEFORMAT = $0000; // use the short date format
// (app must forward WM_WININICHANGE messages)
DTS_LONGDATEFORMAT = $0004; // use the long date format
// (app must forward WM_WININICHANGE messages)
DTS_TIMEFORMAT = $0008; // use the time format
// (app must forward WM_WININICHANGE messages)
DTS_APPCANPARSE = $0010; // allow user entered strings
// (app MUST respond to DTN_USERSTRING)
DTS_RIGHTALIGN = $0020; // right-align popup instead of left-align it
// color index constants
MCSC_BACKGROUND = 0; // the background color (between months)
MCSC_TEXT = 1; // the dates
MCSC_TITLEBK = 2; // background of the title
MCSC_TITLETEXT = 3;
MCSC_MONTHBK = 4; // background within the month cal
MCSC_TRAILINGTEXT = 5; // the text color of header & trailing days
// structures
type
tagNMDATETIMESTRINGA = packed record
nmhdr: TNmHdr;
pszUserString: PAnsiChar; // string user entered
st: TSystemTime; // app fills this in
dwFlags: DWORD; // GDT_VALID or GDT_NONE
end;
tagNMDATETIMESTRINGW = packed record
nmhdr: TNmHdr;
pszUserString: PWideChar; // string user entered
st: TSystemTime; // app fills this in
dwFlags: DWORD; // GDT_VALID or GDT_NONE
end;
tagNMDATETIMESTRING = tagNMDATETIMESTRINGA;
PNMDateTimeStringA = ^TNMDateTimeStringA;
PNMDateTimeStringW = ^TNMDateTimeStringW;
PNMDateTimeString = PNMDateTimeStringA;
TNMDateTimeStringA = tagNMDATETIMESTRINGA;
TNMDateTimeStringW = tagNMDATETIMESTRINGW;
TNMDateTimeString = TNMDateTimeStringA;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -