From 74e738f374f759723daf8920677158712d0ca5c1 Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Tue, 16 Jul 2013 20:08:30 +0000
Subject: - Actman 3 added (not adopted)

git-svn-id: http://svn.miranda-ng.org/main/trunk@5391 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Actman30/ua/i_uavars.inc | 121 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 121 insertions(+)
 create mode 100644 plugins/Actman30/ua/i_uavars.inc

(limited to 'plugins/Actman30/ua/i_uavars.inc')

diff --git a/plugins/Actman30/ua/i_uavars.inc b/plugins/Actman30/ua/i_uavars.inc
new file mode 100644
index 0000000000..5b53cde26a
--- /dev/null
+++ b/plugins/Actman30/ua/i_uavars.inc
@@ -0,0 +1,121 @@
+{}
+const
+  MODULE_NAME = 'Actions';
+const
+  opt_groups:PAnsiChar = 'Group';
+  opt_ua    :PAnsiChar = 'UA';
+  opt_id    :PAnsiChar = 'id';
+  opt_flags :PAnsiChar = 'Flags';
+
+const
+  ICOLIB_ACTSECTION = MODULE_NAME+'/Registered actions';
+  ICOLIB_MNUSECTION = MODULE_NAME+'/Menu icons';
+
+  SERVICE_WITH_LPARAM_NAME = MODULE_NAME+'/CallAction';
+  TTB_SERVICE_NAME         = MODULE_NAME+'/TTBAction';
+
+type
+  tMenuType = (main_menu,contact_menu,tray_menu,proto_menu,status_menu);
+  pUAMenuItem = ^tUAMenuItem;
+  tUAMenuItem = record
+    hMenuItem         :THANDLE;
+    szMenuPopup       :pWideChar;
+    szMenuNameVars    :pWideChar;
+    szMenuShowWhenVars:pWideChar;
+    hMenuRoot         :THANDLE;
+    menu_opt          :dword;
+    changed           :boolean;
+  end;
+type
+  pMyActionItem = ^tMyActionItem;
+  tMyActionItem = record
+    flags               :dword;
+    dwActID             :dword;     // action ID
+    wSortIndex          :word;      // list/menu/toolbar order
+    // UseActions/Action_ID
+    szNameID            :pAnsiChar; // uaction ID
+    szActDescr          :pWideChar; // action name
+
+    hIcolibIcon,
+    hIcolibIconPressed  :THANDLE;
+
+    hTTBButton          :THANDLE;   // TopToolbar button
+    szTTBTooltip        :PAnsiChar;
+    szTTBTooltipPressed :PAnsiChar;
+    szTTBShowWhenVars   :pWideChar;
+
+    szTabBTooltip       :PWideChar; // TabSRMM toolbar button
+    szTabBTooltipPressed:PWideChar;
+
+    lastContact         :THANDLE;   // for contact menu
+    hMenuService        :THANDLE;   // common menu service
+    UAMenuItem          :array [tMenuType] of tUAMenuItem;
+  end;
+
+const
+  UAF_NONE      = 0;
+
+  UAF_REGHOTKEY = 1 shl  0; // hotkey
+  UAF_REGTTBB   = 1 shl  1; // modern toolbar
+
+  UAF_REGTABB   = 1 shl  5; // TabSRMM toolbar
+  UAF_USING     = UAF_REGHOTKEY or UAF_REGTTBB or UAF_REGTABB;
+
+  UAF_2STATE    = 1 shl 11; // Buttons/menu items are 2-state
+  UAF_PRESSED   = 1 shl 12; // Button pressed/menu item selected
+  UAF_SAVESTATE = 1 shl 13; // Save or not "pressed" state
+  UAF_GLOBAL    = 1 shl 14; // not contact related even if in contact menu only
+
+  // realtime, no save
+  UAF_HKREGGED  = 1 shl 16; // hotkey registered
+  UAF_TBREGGED  = 1 shl 17; // TabSRMM button registered
+  UAF_DISABLED  = 1 shl 30; // action disabled atm
+  UAF_REALTIME  = UAF_HKREGGED or UAF_TBREGGED or UAF_DISABLED;
+
+  UAF_SPECIAL   = 1 shl 31; // for settings read
+
+  // menu options
+  UAF_MENUSEP = 1 shl 1; // menu item separated
+  UAF_MENUUSE = 1 shl 8; // use this menu
+
+type
+  tNameRec = record
+    name   :PAnsiChar;
+    service:PAnsiChar;
+    mask   :dword;
+    atype  :word;
+    enable :boolean;
+  end;
+
+const
+  NumTypes  = 8;
+const
+  uaTTB     = 0;
+  uaTAB     = 1;
+  uaHotkey  = 2;
+  uaMenu    = 3;
+
+const
+  NamesArray: array [0..NumTypes-1] of tNameRec = (
+    (name:'TopToolbar'; service:'TopToolBar/AddButton';
+     mask:UAF_REGTTBB  ; atype:uaTTB; enable:false),
+    (name:'TabSRMM toolbar'     ; service:'TabSRMM/ButtonsBar/AddButton';
+     mask:UAF_REGTABB  ; atype:uaTAB; enable:false),
+    (name:'Core Hotkey'         ; service:nil{MS_HOTKEY_REGISTER};
+     mask:UAF_REGHOTKEY; atype:uaHotkey; enable:false),
+    (name:'Main menu'           ; service:nil;
+     mask:0; atype:uaMenu+(ORD(main_menu   ) shl 8); enable:false),
+    (name:'Contact menu'        ; service:nil;
+     mask:0; atype:uaMenu+(ORD(contact_menu) shl 8); enable:false),
+    (name:'Tray menu'           ; service:'CList/AddTrayMenuItem';
+     mask:0; atype:uaMenu+(ORD(tray_menu   ) shl 8); enable:false),
+    (name:'Protocol menus'      ; service:'CList/AddProtoMenuItem';
+     mask:0; atype:uaMenu+(ORD(proto_menu  ) shl 8); enable:false),
+    (name:'Status menu'         ; service:'CList/AddStatusMenuItem';
+     mask:0; atype:uaMenu+(ORD(status_menu ) shl 8); enable:false)
+    );
+
+var
+  UActionList:array of tMyActionItem;
+var
+  szMyPath:array [0..MAX_PATH] of WideChar;
-- 
cgit v1.2.3