summaryrefslogtreecommitdiff
path: root/plugins/Actman30
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/Actman30')
-rw-r--r--plugins/Actman30/actman.dpr254
-rw-r--r--plugins/Actman30/i_opt_dlg2.inc7
-rw-r--r--plugins/Actman30/options.rc4
-rw-r--r--plugins/Actman30/options.resbin1140 -> 1004 bytes
4 files changed, 6 insertions, 259 deletions
diff --git a/plugins/Actman30/actman.dpr b/plugins/Actman30/actman.dpr
deleted file mode 100644
index d47d57c95a..0000000000
--- a/plugins/Actman30/actman.dpr
+++ /dev/null
@@ -1,254 +0,0 @@
-{$include compilers.inc}
-{$IFDEF COMPILER_16_UP}
- {$WEAKLINKRTTI ON}
- {.$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
-{$ENDIF}
-{$IMAGEBASE $13200000}
-library actman;
-{%File 'm_actman.inc'}
-{%File 'i_const.inc'}
-{%File 'i_opt_dlg2.inc'}
-{%File 'i_opt_dlg.inc'}
-{%File 'i_options.inc'}
-{%File 'i_services.inc'}
-{%File 'i_vars.inc'}
-{%File 'i_inoutxm.inc'}
-{%File 'tasks\i_opt_dlg.inc'}
-{%File 'tasks\i_options.inc'}
-{%File 'tasks\i_task.inc'}
-{%File 'hooks\i_options.inc'}
-{%File 'hooks\i_hook.inc'}
-{%File 'hooks\i_opt_dlg.inc'}
-{%File 'ua\i_opt_dlg.inc'}
-{%File 'ua\i_inoutxm.inc'}
-{%File 'ua\i_options.inc'}
-{%File 'ua\i_ua.inc'}
-{%File 'ua\i_uaplaces.inc'}
-{%File 'ua\i_uconst.inc'}
-
-uses
-// fastmm4,
- Windows,
- m_api,
- messages,
- commctrl,
- common,
- wrapper,
- io,
- dbsettings,
- mirutils,
- syswin,
- base64,
- question,
- mApiCardM,
- global,
- lowlevelc,
- dlgshare,
- iac_global,
- iac_settings,
- iac_storage,
- iac_dbrw,
- iac_messagebox,
- iac_text,
- iac_jump,
- iac_inout,
- iac_service,
- iac_program,
- iac_chain,
- iac_contact,
- iac_call,
- iac_ini,
- iac_notes,
- inoutxml,
- sedit,
- strans,
- ua in 'ua\ua.pas',
- hooks in 'hooks\hooks.pas',
- scheduler in 'tasks\scheduler.pas';
-
-{$r options.res}
-
-const
- PluginName = 'Action Manager';
-var
- hevaction,hHookChanged,hevinout:THANDLE;
-
-{$include m_actman.inc}
-
-
-function MirandaPluginInfoEx(mirandaVersion:dword):PPLUGININFOEX; cdecl;
-begin
- result:=@PluginInfo;
- PluginInfo.cbSize :=SizeOf(TPLUGININFOEX);
- PluginInfo.shortName :='Action manager';
- PluginInfo.version :=$00030001;
- PluginInfo.description:='Plugin for manage hotkeys to open contact window, insert text, '+
- 'run program and call services';
- PluginInfo.author :='Awkward';
- PluginInfo.authorEmail:='panda75@bk.ru; awk1975@ya.ru';
- PluginInfo.copyright :='(c) 2007-2013 Awkward';
- PluginInfo.homepage :='http://code.google.com/p/delphi-miranda-plugins/';
- PluginInfo.flags :=UNICODE_AWARE;
- PluginInfo.uuid :=MIID_ACTMAN;
-end;
-
-{$include i_const.inc}
-
-{$include i_options.inc}
-{$include i_services.inc}
-{$include i_opt_dlg.inc}
-{.$include i_inoutxm.inc}
-
-function PreShutdown(wParam:WPARAM;lParam:LPARAM):int;cdecl;
-var
- ptr:pActionLink;
-begin
- result:=0;
-
- ptr:=ActionLink;
- while ptr<>nil do
- begin
- if @ptr^.DeInit<>nil then
- ptr^.DeInit;
- ptr:=ptr^.Next;
- end;
-
- MacroList.Clear;
- MacroList.Free;
-
- DestroyHookableEvent(hHookChanged);
- DestroyHookableEvent(hevinout);
- DestroyHookableEvent(hevaction);
-
-end;
-
-procedure RegisterActTypes;
-var
- p:pActModule;
- sid:TSKINICONDESC;
- buf:array [0..63] of AnsiChar;
- pc:pAnsiChar;
-// ii:tIconItem;
-begin
- FillChar(sid,SizeOf(sid),0);
- sid.cbSize:=SizeOf(sid);
- sid.cx:=16;
- sid.cy:=16;
- sid.szSection.a:='Actions';
- sid.pszName :=@buf;
- pc:=StrCopyE(buf,IcoLibPrefix);
- p:=ModuleLink;
-{
- ii.size :=0;
- ii.hIcolib:=0;
- ii.szName :=@buf;
-}
- while p<>nil do
- begin
- if p^.Hash=0 then
- p^.Hash:=Hash(p^.Name,StrLen(p^.Name));
- //!! must add icon registration in icolib
-{
- StrCopy(pc,p^.Name);
- ii.szDescr :=p^.Name;
- ii.DefIconID:=;
- Icon_Register(hInstance,'Actions',@ii,1);
-}
- sid.hDefaultIcon :=LoadImageA(hInstance,p^.Icon,IMAGE_ICON,16,16,0);
- sid.szDescription.a:=p^.Name;
- StrCopy(pc,p^.Name);
- Skin_AddIcon(@sid);
- DestroyIcon(sid.hDefaultIcon);
-
- p:=p^.Next;
- end;
-end;
-
-// This function implements autostart action execution after all others plugins loading
-function DoAutostart(wParam:WPARAM;lParam:LPARAM):int;cdecl;
-var
- i:integer;
- Macro:pMacroRecord;
- section:array [0..127] of AnsiChar;
- p,p1:pAnsiChar;
-begin
- Result:=0;
- CallService(MS_ACT_RUNBYNAME,TWPARAM(AutoStartName),0);
-
- p1:=StrCopyE(section,opt_group);
- for i:=0 to MacroList.Count-1 do
- begin
- Macro:=MacroList[i];
- if (Macro^.flags and ACF_FIRSTRUN)<>0 then
- begin
- CallService(MS_ACT_RUNBYID,TWPARAM(Macro^.id),0);
- Macro^.flags:=Macro^.flags and not ACF_FIRSTRUN;
- p:=StrEnd(IntToStr(p1,i));
- p^:='/'; inc(p);
- StrCopy(p,opt_flags); DBWriteDWord(0,DBBranch,section,Macro^.flags);
- end;
- end;
-end;
-
-function OnModulesLoaded(wParam:WPARAM;lParam:LPARAM):int;cdecl;
-var
- ptr:pActionLink;
-begin
- Result:=0;
-
- RegisterActTypes;
-
- LoadMacros;
- RegisterIcons;
-
- HookEvent(ME_OPT_INITIALISE ,@OnOptInitialise);
- HookEvent(ME_SYSTEM_SHUTDOWN{ME_SYSTEM_OKTOEXIT},@PreShutdown);
- NotifyEventHooks(hHookChanged,twparam(ACTM_LOADED),0);
-
- IsMultiThread:=true;
- // Load additional modules
- ptr:=ActionLink;
- while ptr<>nil do
- begin
- if @ptr^.Init<>nil then
- ptr^.Init;
- ptr:=ptr^.Next;
- end;
-
- // cheat
- HookEvent(ME_SYSTEM_MODULESLOADED,@DoAutostart);
-// DoAutostart(0,0);
-end;
-
-function Load:int; cdecl;
-begin
- Result:=0;
- Langpack_Register;
-
- hHookChanged:=CreateHookableEvent(ME_ACT_CHANGED);
- hevinout :=CreateHookableEvent(ME_ACT_INOUT);
- hevaction :=CreateHookableEvent(ME_ACT_ACTION);
-
- CreateServiceFunction(MS_ACT_FREELIST ,@ActFreeList);
- CreateServiceFunction(MS_ACT_GETLIST ,@ActGetList);
- CreateServiceFunction(MS_ACT_RUNBYID ,@ActRun);
- CreateServiceFunction(MS_ACT_RUNBYNAME,@ActRunGroup);
- CreateServiceFunction(MS_ACT_RUNPARAMS,@ActRunParam);
-//!! CreateServiceFunction(MS_ACT_INOUT ,@ActInOut);
- CreateServiceFunction(MS_ACT_SELECT ,@ActSelect);
-
- HookEvent(ME_SYSTEM_MODULESLOADED,@OnModulesLoaded);
-end;
-
-function Unload: int; cdecl;
-begin
- Result:=0;
-end;
-
-exports
- Load, Unload,
- MirandaPluginInfoEx;
-
-begin
- DisableThreadLibraryCalls(hInstance);
-end.
diff --git a/plugins/Actman30/i_opt_dlg2.inc b/plugins/Actman30/i_opt_dlg2.inc
index ed8e83e0b3..75e1a51685 100644
--- a/plugins/Actman30/i_opt_dlg2.inc
+++ b/plugins/Actman30/i_opt_dlg2.inc
@@ -842,7 +842,7 @@ begin
ti.lpszText:=TranslateW('Test');
OptSetButtonIcon(ti.uId,ACI_TEST);
SendMessageW(hwndTooltip,TTM_ADDTOOLW,0,lparam(@ti));
-
+{!!
ti.uId :=GetDlgItem(Dialog,IDC_GROUP_IMPORT);
ti.lpszText:=TranslateW('Import');
OptSetButtonIcon(ti.uId,ACI_IMPORT);
@@ -852,6 +852,7 @@ begin
ti.lpszText:=TranslateW('Export');
OptSetButtonIcon(ti.uId,ACI_EXPORT);
SendMessageW(hwndTooltip,TTM_ADDTOOLW,0,lparam(@ti));
+}
end;
function DlgProcOpt2(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;
@@ -890,14 +891,14 @@ begin
// action type combobox
FillActTypeList(GetDlgItem(Dialog,IDC_ACTION_TYPE));
-
+{!!
// XML import/export service
if ServiceExists(MS_SYSTEM_GET_XI)=0 then
begin
EnableWindow(GetDlgItem(Dialog,IDC_GROUP_EXPORT),false);
EnableWindow(GetDlgItem(Dialog,IDC_GROUP_IMPORT),false);
end;
-
+}
OldActTableProc :=pointer(SetWindowLongPtrW(wnd,GWL_WNDPROC,long_ptr(@NewActTableProc)));
OldGroupTableProc:=pointer(SetWindowLongPtrW(MacroListWindow,
GWL_WNDPROC,long_ptr(@NewGroupTableProc)));
diff --git a/plugins/Actman30/options.rc b/plugins/Actman30/options.rc
index da9c1066d0..98be11b605 100644
--- a/plugins/Actman30/options.rc
+++ b/plugins/Actman30/options.rc
@@ -12,8 +12,8 @@ FONT 8, "MS Shell Dlg", 0, 0
CONTROL "Down" ,IDC_GROUP_DOWN ,"MButtonClass",WS_TABSTOP,114, 34,16,16,$18000000
CONTROL "Delete",IDC_GROUP_DELETE,"MButtonClass",WS_TABSTOP,114, 68,16,16,$18000000
CONTROL "Test" ,IDC_GROUP_TEST ,"MButtonClass",WS_TABSTOP,114, 85,16,16,$18000000
- CONTROL "Export",IDC_GROUP_EXPORT,"MButtonClass",WS_TABSTOP,114,102,16,16,$18000000
- CONTROL "Import",IDC_GROUP_IMPORT,"MButtonClass",WS_TABSTOP,114,119,16,16,$18000000
+// CONTROL "Export",IDC_GROUP_EXPORT,"MButtonClass",WS_TABSTOP,114,102,16,16,$18000000
+// CONTROL "Import",IDC_GROUP_IMPORT,"MButtonClass",WS_TABSTOP,114,119,16,16,$18000000
CONTROL "", IDC_MACRO_LIST, "SysListView32",
WS_BORDER | WS_TABSTOP |
diff --git a/plugins/Actman30/options.res b/plugins/Actman30/options.res
index 3ca52285ec..951c81f7f6 100644
--- a/plugins/Actman30/options.res
+++ b/plugins/Actman30/options.res
Binary files differ
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-15 14:33:53 +0000