diff options
| author | watcherhd <watcherhd@e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb> | 2011-04-21 14:14:52 +0000 |
|---|---|---|
| committer | watcherhd <watcherhd@e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb> | 2011-04-21 14:14:52 +0000 |
| commit | cb4a46e7fbe62d788e66ed6121c717a2d22a4d7c (patch) | |
| tree | 30df260fdc5a1b5a7049c2f8cac8b7ef17513d6d /delphi/Awkward/include/m_hotkeys.inc | |
| parent | 19b6f534d2e784a1e120bf52c4aa07004798f473 (diff) | |
svn.miranda.im is moving to a new home!
git-svn-id: http://miranda-plugins.googlecode.com/svn/trunk@7 e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb
Diffstat (limited to 'delphi/Awkward/include/m_hotkeys.inc')
| -rw-r--r-- | delphi/Awkward/include/m_hotkeys.inc | 93 |
1 files changed, 93 insertions, 0 deletions
diff --git a/delphi/Awkward/include/m_hotkeys.inc b/delphi/Awkward/include/m_hotkeys.inc new file mode 100644 index 0000000..31b0195 --- /dev/null +++ b/delphi/Awkward/include/m_hotkeys.inc @@ -0,0 +1,93 @@ +{
+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;
+const
+ HOTKEYDESC_SIZE_V1 = 7*SizeOf(dword); //(offsetof(HOTKEYDESC, dwFlags))
+
+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;
+
+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';
+
+{$ENDIF}
|