diff options
Diffstat (limited to 'delphi/Awkward/include/reserve/helpers/m_hotkeysservice.inc')
| -rw-r--r-- | delphi/Awkward/include/reserve/helpers/m_hotkeysservice.inc | 218 |
1 files changed, 218 insertions, 0 deletions
diff --git a/delphi/Awkward/include/reserve/helpers/m_hotkeysservice.inc b/delphi/Awkward/include/reserve/helpers/m_hotkeysservice.inc new file mode 100644 index 0000000..fbde963 --- /dev/null +++ b/delphi/Awkward/include/reserve/helpers/m_hotkeysservice.inc @@ -0,0 +1,218 @@ +{$IFNDEF M_HOTKEYSSERVICE}
+{$DEFINE M_HOTKEYSSERVICE}
+
+const
+ HKS_SERVICE_NAME = 'HotkeysService';
+
+// Modifiers for hotkeys
+// MOD_ALT = $0001;
+// MOD_CONTROL = $0002;
+// MOD_SHIFT = $0004;
+// MOD_WIN = $0008;
+ MOD_GLOBAL = $0010;
+
+// FLAGS
+// inherit modifiers from group (specified modifiers ignored)
+ HKS_ACTION_SHAREMODIFIERS = 1;
+// register item, but disable
+ HKS_INITIALLY_DISABLED = 2;
+
+// Structure of hotkey
+type
+ PHKSHotkey = ^THKSHotkey;
+ THKSHotkey = record
+ case boolean of
+ false: (
+ key :WORD;
+ modifiers:WORD;);
+ true: (hotkey:DWORD)
+ end;
+
+const
+// ITEM TYPES
+ HKS_ITEM_MODULE = 1;
+ HKS_ITEM_GROUP = 2;
+ HKS_ITEM_ACTION = 3;
+ HKS_ITEM_MACRO = 4;
+
+// Structure passed to RegisterItem service.
+// Used only for registration pursposes, so free it after call.
+// name, owner and itemType field is mandatory.
+// owner is item ID or must be 0 for 1st level items (module, single action or macro)
+// itemType can be one of ITEM TYPES constants.
+// flags can be combined from FLAGS constants.
+// Group can contain other groups and items and optionally
+// set group modifiers. Only item can be tree leaf.
+// If creating group, hotkey.modifiers will be used
+// as group modifiers (if nonzero)
+// If creating action, hotkey is optional. If hotkey.key is filled, then
+// hotkey will be assigned to item (if unused).
+// If creating macro, hotkey is mandatory.
+
+type
+ PHKSItem = ^THKSItem;
+ THKSItem = record
+ owner :int;
+ name :PAnsiChar;
+ itemType:int;
+ hotkey :THKSHotkey;
+ flags :int;
+ end;
+
+const
+{
+ Register item
+ wParam: item data in PKHSItem format
+ lParam: 0
+ Returns HANDLE called "ID" in loWord.
+ For actions and macros, hiWord returns state: 0 if ok, other if passed hotkey
+ can't be registered (for example already used)
+ In other cases hiWord is useless
+}
+ MS_HKS_REGISTER_ITEM = 'HotkeysService/RegisterItem';
+
+{
+ Unregister item
+ If item is Group, then all subItems will be unregistered.
+ wParam: item ID
+ lParam: 0
+ Returns: 0 on success, other on fail
+}
+ MS_HKS_UNREGISTER_ITEM = 'HotkeysService/UnregisterItem';
+
+{
+ Assign hotkey to item. If item is group, then only
+ modifiers are taken as group modifiers. Do not call on modules.
+ Hotkey consists of modifiers in hiWord and key in loWord.
+ wParam: item ID
+ lParam: hotkey as PHKS_Hotkey to register
+ Returns:
+ on success: hotkey
+ on error: 0
+}
+ MS_HKS_ASSIGN_HOTKEY = 'HotkeysService/AssignHotkey';
+
+{
+ Get hotkey assigned to item. Don't apply to modules.
+ wParam: item ID
+ lParam: 0
+ Returns: hotkey assigned, 0 otherwise.
+}
+ MS_HKS_GET_HOTKEY = 'HotkeysService/GetAssignedHotkey';
+
+{
+ Unassign hotkey from item. Only valid on action and macro items.
+ wParam: item ID
+ lParam: 0
+ Returns: 0 on success, other on fail
+}
+ MS_HKS_UNASSIGN_HOTKEY = 'HotkeysService/UnassignHotkey';
+
+{
+ Enable/Disable item.
+ If item is group or module, then all subItems will be affected.
+ wParam: item ID
+ lParam: 1 to enable, anything else to disable
+ Returns: 0 on success, other on fail
+}
+ MS_HKS_ENABLE_ITEM = 'HotkeysService/EnableItem';
+
+{
+ Hotkey to text
+ wParam: hotkey to textify
+ lParam: address to place string, space must be allocated
+ Returns: 0
+}
+ MS_HKS_TO_TEXT = 'HotkeysService/HotkeyToText';
+
+{
+ Get hotkey from text
+ wParam: text to convert to hotkey
+ lParam: 0
+ Returns: hotkey
+}
+ MS_HKS_FROM_TEXT = 'HotkeysService/HotkeyFromText';
+
+type
+ PHKSEvent = ^TTHKSEvent;
+ THKSEvent = record
+ itemId :int;
+ moduleId:int;
+ name :PAnsiChar;
+ itemType:int;
+ hotkey :THKSHotkey;
+ end;
+
+const
+{
+ Event when hotkey is pressed
+ wParam: PHKSEvent
+ lParam: 0
+}
+ ME_HKS_KEY_PRESSED = 'HotkeysService/HotkeyPressed';
+
+// Util functions ////////////////////////////////////////////////////////////////////////
+(*
+static int HKS_RegisterModule(AnsiChar *name)
+{
+ THKSItem item = {0};
+
+ if (!ServiceExists(MS_HKS_REGISTER_ITEM))
+ return -1;
+
+ item.name = name;
+ item.itemType = HKS_ITEM_MODULE;
+
+ return LOWORD(CallService(MS_HKS_REGISTER_ITEM, (WPARAM) &item, 0));
+}
+
+
+static int HKS_RegisterAction(int owner, AnsiChar *name, int modifiers, AnsiChar key, int flags)
+{
+ THKSItem item = {0};
+
+ if (!ServiceExists(MS_HKS_REGISTER_ITEM))
+ return -1;
+
+ item.owner = owner;
+ item.name = name;
+ item.itemType = HKS_ITEM_ACTION;
+ item.flags = flags;
+
+ if (key != 0)
+ {
+ item.hotkey.key = (WORD) key;
+ item.hotkey.modifiers = modifiers;
+ }
+
+ return LOWORD(CallService(MS_HKS_REGISTER_ITEM, (WPARAM) &item, 0));
+}
+
+
+static int HKS_RegisterGroup(int owner, AnsiChar *name, int modifiers, int flags)
+{
+ THKSItem item = {0};
+
+ if (!ServiceExists(MS_HKS_REGISTER_ITEM))
+ return -1;
+
+ item.owner = owner;
+ item.name = name;
+ item.itemType = HKS_ITEM_GROUP;
+ item.flags = flags;
+ item.hotkey.modifiers = modifiers;
+
+ return LOWORD(CallService(MS_HKS_REGISTER_ITEM, (WPARAM) &item, 0));
+}
+
+static int HKS_Unregister(int id)
+{
+ THKSItem item = {0};
+
+ if (!ServiceExists(MS_HKS_UNREGISTER_ITEM))
+ return -1;
+
+ return CallService(MS_HKS_UNREGISTER_ITEM, (WPARAM) id, 0);
+}
+*)
+{$ENDIF}
|