summaryrefslogtreecommitdiff
path: root/plugins/Pascal_Headers/m_hotkeys.inc
blob: e0bda35da1d24e8138684f1a5961d95260608846 (plain)
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
{
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
  {$IFNDEF Win64}
  HOTKEYDESC_SIZE_V1 = 7*SizeOf(dword); //(offsetof(HOTKEYDESC, dwFlags))
  {$ELSE}
  HOTKEYDESC_SIZE_V1 = SizeOf(HOTKEYDESC);
  {$ENDIF}

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}