1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
{$IFNDEF M_TOPTOOLBAR}
{$DEFINE M_TOPTOOLBAR}
const
TTB_OPTDIR = 'TopToolBar';
//button flags
const
TTBBF_DISABLED = $0001;
TTBBF_VISIBLE = $0002;
TTBBF_PUSHED = $0004;
TTBBF_SHOWTOOLTIP = $0008;
TTBBF_ISSEPARATOR = $0020;
TTBBF_ISLBUTTON = $0040;
TTBBF_ISSBUTTON = $0100;
TTBBF_ASPUSHBUTTON = $0200;
type
PTTBButton = ^TTBButton;
TTBButton = record
cbSize :int;
pszService :PAnsiChar; // or program for lButtons
dwFlags :DWORD;
lParamUp :LPARAM;
wParamUp :WPARAM;
lParamDown :LPARAM;
wParamDown :WPARAM;
name :PAnsiChar;
hIconUp :HICON; // or hIconHandleUp:HANDLE
hIconDn :HICON; // or hIconHandleDn:HANDLE
pszTooltipUp :PansiChar;
pszTooltipDn :PansiChar;
end;
const
//=== EVENTS ===
{
toptoolbar/moduleloaded event
wParam = lParam = 0
Called when the toolbar services are available
!!!Warning you may work with TTB services only in this event or later.
Im use settimer() - so notify appear in miranda message loop
after all onmodulesload calls.
}
ME_TTB_MODULELOADED:PAnsiChar = 'TopToolBar/ModuleLoaded';
{
toptoolbar/initbuttons event
wParam = lParam = 0
Called when the toolbar needs to add default buttons
}
ME_TTB_INITBUTTONS:PAnsiChar = 'TopToolBar/InitButtons';
{
//=== SERVICES ===
toptoolbar/addbutton service
wparam = (TTBButton*)lpTTBButton
lparam = (hLangpack)
returns: hTTBButton - handle of added button on success, -1 on failure.
}
MS_TTB_ADDBUTTON:PAnsiChar = 'TopToolBar/AddButton';
{
toptoolbar/removebutton service
wparam = (HANDLE)hTTButton
lparam = 0
returns: 0 on success, -1 on failure.
}
MS_TTB_REMOVEBUTTON:PAnsiChar = 'TopToolBar/RemoveButton';
{
toptoolbar/setstate service
wparam = (HANDLE)hTTButton
lparam = (LPARAM) state
returns: 0 on success, -1 on failure.
}
TTBST_PUSHED = 1;
TTBST_RELEASED = 2;
MS_TTB_SETBUTTONSTATE:PAnsiChar = 'TopToolBar/SetState';
{
toptoolbar/getstate service
wparam = (HANDLE)hTTButton
lparam = 0
returns: state on success, -1 on failure.
}
MS_TTB_GETBUTTONSTATE:PAnsiChar = 'TopToolBar/GetState';
{
toptoolbar/getoptions service
(HIWORD)wparam = (HANDLE)hTTButton
(LOWORD)wparam = TTBO_FLAG
lparam = 0,or lparam=lpTTBButton if flag=TTBO_ALLDATA
returns: value on success, -1 on failure.
}
TTBO_FLAGS = 0; // get/set all flags
TTBO_POS = 1; // position
TTBO_WIDTH = 2; // not impemented
TTBO_HEIGHT = 3; // not impemented
TTBO_TIPNAME = 4; // tool tip name
TTBO_ALLDATA = 5; // change all data via lparam=lpTTBButton
MS_TTB_GETBUTTONOPTIONS:PAnsiChar = 'TopToolBar/GetOptions';
{
toptoolbar/setoptions service
(HIWORD)wparam = (HANDLE)hTTButton
(LOWORD)wparam = TTBO_FLAG
lparam = value
returns: 1 on success, -1 on failure.
}
MS_TTB_SETBUTTONOPTIONS:PAnsiChar = 'TopToolBar/SetOptions';
{
toptoolbar/setcustomproc service
wparam = pfnCustomproc
lparam = procedure parameter
returns: always returns 0.
}
MS_TTB_SETCUSTOMPROC:PAnsiChar = 'TopToolBar/SetCustomProc';
const
TTB_WINDOW_HANDLE = THANDLE(-1);
{
this procedure is executed on each button on toolbar
and on a toolbar itself with hTTButton == TTB_WINDOW_HANDLE
hTTButton = button handle
hwndBtn = button window handle
userInfo = lParam passed into TopToolbar_SetCustomProc
}
type
pfnCustomProc = procedure(hTTButton:THANDLE; hwndBtn:HWND; userInfo:LPARAM); cdecl;
///////////////////////////////////////////////////////////////////////////////
// Toolbar internal structures
type
TTBCtrlButton = record
hWindow:HWND;
end;
type
pfnTTBPainterFunc = procedure(btnctrl:pointer{PTTBCtrl}; hdc:HDC); cdecl;
type
PTTBCtrl = ^TTBCtrl;
TTBCtrl = record
hWnd :HWND;
hFrame :THANDLE;
nButtonWidth :int;
nButtonHeight:int;
nButtonSpace :int;
nLastHeight :int; // fix against recursion in WM_SIZE
bOrderChanged:boolean; // set by buttons' arrange procedure if the buttons' order was changed
bFlatButtons,
bAutoSize,
bSingleLine :boolean;
bHardUpdate :boolean; // clist modern requires to delete buttons to update them
pButtonList :PSortedList;
lResult :LRESULT; // custom window proc result
fnWindowProc :TWNDPROC; // custom window proc
end;
type
PTBCtrlCustomize = ^TTBCtrlCustomize;
TTBCtrlCustomize = record
cbLen :size_t; // total length of the internal data structure
fnWindowProc:TWNDPROC; // subclassed windows procedure for the custom button
end;
{
Sets the custom painting procedure for a toolbar
wParam = not used
lParam = TTBCtrlCustomize*
Usage: SendMessage(hwndToolbar, TTB_SETCUSTOM, 0, (LPARAM)&CustomData);
Only works on TopToolbars
}
const
TTB_SETCUSTOM = WM_USER+1;
{$ENDIF}
|
