diff options
| author | Alexey Kulakov <panda75@bk.ru> | 2012-07-04 20:10:29 +0000 |
|---|---|---|
| committer | Alexey Kulakov <panda75@bk.ru> | 2012-07-04 20:10:29 +0000 |
| commit | 65e002b63efdb00571d0ba4ec1a73b14e1d7d3a0 (patch) | |
| tree | d96b2f52ca3c89172f269cdb172c89cf6141d69c /include/delphi/m_hotkeys.inc | |
| parent | d7f143dba9e53347a1d7897bcd3989751c7f45f8 (diff) | |
Pascal headers moved to include\delphi directory (with small updates)
removed deprecated m_mwclc.h file and link on it in AutoShutdown plugin
git-svn-id: http://svn.miranda-ng.org/main/trunk@763 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'include/delphi/m_hotkeys.inc')
| -rw-r--r-- | include/delphi/m_hotkeys.inc | 105 |
1 files changed, 105 insertions, 0 deletions
diff --git a/include/delphi/m_hotkeys.inc b/include/delphi/m_hotkeys.inc new file mode 100644 index 0000000000..e0bda35da1 --- /dev/null +++ b/include/delphi/m_hotkeys.inc @@ -0,0 +1,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}
|