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
|
{
Miranda IM: the free IM client for Microsoft* Windows*
Copyright 2000-2007 Miranda ICQ/IM project,
all portions of this codebase are copyrighted to the people
listed in contributors.txt.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
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. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
{$IFNDEF M_HOTKEYS}
{$DEFINE M_HOTKEYS}
const
HKD_UNICODE = $0001;
type
HOTKEYDESC = record
cbSize :int;
pszName :PAnsiChar; // name to refer to hotkey when playing and in db
pszDescription:TChar; // description for options dialog
pszSection :TChar; // section name used to group sounds (NULL is acceptable)
pszService :PAnsiChar; // Service to call when HotKey Pressed
DefHotKey :word; // default hot key for action
lParam :LPARAM; // lParam to pass to service
dwFlags :dword; // Miranda ver >=9.0
end;
THOTKEYDESC = HOTKEYDESC;
PHOTKEYDESC = ^THOTKEYDESC;
const
HKF_MIRANDA_LOCAL = $8000;
{ use this macro to defile hotkey codes like this:
hkd.DefHotkey = HOTKEYCODE(HOTKEYF_SHIFT|HOTKEYF_EXT, 'A');
}
// HOTKEYCODE(mod,vk) (MAKEWORD((vk),(mod)))
{ CoreHotkeys/Register service
Registers new hotkey
wParam=(WPARAM)0
lParam=(LPARAM)(HOTKEYDESC *)hotkey
Returns 0 on failure or hotkey atom id on success
}
MS_HOTKEY_REGISTER:PAnsiChar = 'CoreHotkeys/Register';
{ CoreHotkeys/Unregister service
Unregister existing hotkey
wParam=(WPARAM)0
lParam=(LPARAM)(AnsiChar *)pszName
Returns 0 on success or nonzero otherwise
}
MS_HOTKEY_UNREGISTER:PAnsiChar = 'CoreHotkeys/Unregister';
{ CoreHotkeys/Check service
Checks if "manual" hotkey was activated and returns its id.
wParam=(WPARAM)(MSG *)message
lParam=(LPARAM)(AnsiChar *)pszSection
Returns lParam associated with activated hotkey
}
MS_HOTKEY_CHECK:PAnsiChar = 'CoreHotkeys/Check';
{ Subclass/unsubclass edit box to act as hotkey control
wParam=(WPARAM)(HWND)hwndEdit
lParam=(LPARAM)0
Returns zero on success
You will get notification with LOWORD(wParam) == 0 when users sets hotkey.
Subclassed control processes HKM_SETHOTKEY and HKM_GETHOTKEY similarly to
windows' hotkey, in all other it acts just like normal editbox (beware of
standart notifications that occur on text updates!)
Subclass procedure uses GWL_USERDATA to store internal information. Do not
use it for own purposes.
}
MS_HOTKEY_SUBCLASS :PAnsiChar = 'CoreHotkeys/Subclass';
MS_HOTKEY_UNSUBCLASS:PAnsiChar = 'CoreHotkeys/Unsubclass';
{
This event is fired when hotkeys were changed (Mirver 9.0+ ?)
wParam = lParam = 0
}
ME_HOTKEYS_CHANGED:PAnsiChar = 'CoreHotkeys/Changed';
{$ENDIF}
|
