Actman 2.0 is moved to deprecated, Actman 3.0 is a new default Actman (with database settings converter from older version)

git-svn-id: http://svn.miranda-ng.org/main/trunk@11533 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 6 insertions, 169 deletions

diff --git a/plugins/Actman/i_opt_dlg.inc b/plugins/Actman/i_opt_dlg.inc
index 3e07cd97ae..e7a9e206ef 100644
--- a/plugins/Actman/i_opt_dlg.inc
+++ b/plugins/Actman/i_opt_dlg.inc
@@ -1,173 +1,9 @@
 {}

-const

-  etHK  = 1; // Groups  changed

-  etACT = 2; // Actions changed

-const

-  ACI_APPLY  :PAnsiChar = 'ACI_Apply';

-  ACI_NEW    :PAnsiChar = 'ACI_New';

-  ACI_UP     :PAnsiChar = 'ACI_Up';

-  ACI_DOWN   :PAnsiChar = 'ACI_Down';

-  ACI_DELETE :PAnsiChar = 'ACI_Delete';

-  ACI_RELOAD :PAnsiChar = 'ACI_Reload';

-  ACI_TEST   :PAnsiChar = 'ACI_Test';

-  ACI_IMPORT :PAnsiChar = 'ACI_Import';

-  ACI_EXPORT :PAnsiChar = 'ACI_Export';

-const

-  ACI_CONTACT = 'ACI_Contact';

-  ACI_SERVICE = 'ACI_Service';

-  ACI_PROGRAM = 'ACI_Program';

-  ACI_INSERT  = 'ACI_Insert';

-  ACI_ADVANCE = 'ACI_Advanced';

-  ACI_CHAIN   = 'ACI_Chain';

-  ACI_RW      = 'ACI_Database';

-  ACI_MESSAGE = 'ACI_Message';

-

-  ACI_FORMAT  = 'ACI_Format';

-

-  ACI_VAR_UNCHECKED = 'ACI_VarUnChecked';

-  ACI_VAR_CHECKED   = 'ACI_VarChecked';

-

-const

-  sresInt    = 0;

-  sresHex    = 1;

-  sresString = 2;

-  sresStruct = 3;

-type

-  tActId = record

-    code:dword;

-    id  :dword;

-    icon:PAnsiChar;

-    text:PAnsiChar;

-  end;

-const

-  ActIds:array [0..ACT_MAXTYPE-1] of tActId = (

-      (code:ACT_CONTACT; id:IDI_CONTACT; icon:ACI_CONTACT; text:'Open contact window'),

-      (code:ACT_SERVICE; id:IDI_SERVICE; icon:ACI_SERVICE; text:'Call service'),

-      (code:ACT_PROGRAM; id:IDI_PROGRAM; icon:ACI_PROGRAM; text:'Execute program'),

-      (code:ACT_TEXT   ; id:IDI_INSERT ; icon:ACI_INSERT ; text:'Insert text'),

-      (code:ACT_ADVANCE; id:IDI_ADVANCE; icon:ACI_ADVANCE; text:'Advanced'),

-      (code:ACT_CHAIN  ; id:IDI_CHAIN  ; icon:ACI_CHAIN  ; text:'Link to action'),

-      (code:ACT_RW     ; id:IDI_RW     ; icon:ACI_RW     ; text:'Profile'),

-      (code:ACT_MESSAGE; id:IDI_MESSAGE; icon:ACI_MESSAGE; text:'MessageBox'));

-

-procedure RegisterIcon(var sid:TSKINICONDESC;id:uint_ptr;name:PAnsiChar;descr:PAnsiChar);

 var

-  buf:array [0..63] of WideChar;

-begin

-  sid.hDefaultIcon   :=LoadImage(hInstance,MAKEINTRESOURCE(id),IMAGE_ICON,16,16,0);

-  sid.pszName        :=name;

-  sid.szDescription.w:=FastAnsiToWideBuf(descr,buf);

-  Skin_AddIcon(@sid);

-  DestroyIcon(sid.hDefaultIcon);

-end;

-

-procedure RegisterIcons;

-var

-  sid:TSKINICONDESC;

-  i:integer;

-begin

-  FillChar(sid,SizeOf(TSKINICONDESC),0);

-  sid.cbSize     :=SizeOf(TSKINICONDESC);

-  sid.cx         :=16;

-  sid.cy         :=16;

-  sid.flags      :=SIDF_UNICODE;

-  sid.szSection.w:='Actions';

-

-  RegisterIcon(sid,IDI_APPLY  ,ACI_APPLY  ,'Apply');

-  RegisterIcon(sid,IDI_NEW    ,ACI_NEW    ,'New');

-  RegisterIcon(sid,IDI_DELETE ,ACI_DELETE ,'Delete');

-  RegisterIcon(sid,IDI_UP     ,ACI_UP     ,'Up');

-  RegisterIcon(sid,IDI_DOWN   ,ACI_DOWN   ,'Down');

-  RegisterIcon(sid,IDI_RELOAD ,ACI_RELOAD ,'Reload');

-  RegisterIcon(sid,IDI_TEST   ,ACI_TEST   ,'Test');

-  RegisterIcon(sid,IDI_IMPORT ,ACI_IMPORT ,'Import');

-  RegisterIcon(sid,IDI_EXPORT ,ACI_EXPORT ,'Export');

-

-  RegisterIcon(sid,IDI_FORMAT ,ACI_FORMAT ,'Contact list format');

-

-  for i:=0 to ACT_MAXTYPE-1 do

-    with ActIds[i] do

-      RegisterIcon(sid,id,icon,text);

-

-  sid.cx:=8;

-  sid.cy:=8;

-  RegisterIcon(sid,IDI_VAR_CHECKED  ,ACI_VAR_CHECKED  ,'Use Variables');

-  RegisterIcon(sid,IDI_VAR_UNCHECKED,ACI_VAR_UNCHECKED,'Don''t use Variables');

-end;

-

-procedure SetStart;

-begin

-  if NewGroupList=nil then

-  begin

-    NewGroupList:=GroupList;

-    NewMaxGroups:=MaxGroups;

-  end;

-  if NewActionList=nil then

-  begin

-    NewActionList:=ActionList;

-    NewMaxActions:=MaxActions;

-  end;

-end;

-

-procedure SetChanged(wnd:HWND;atype:integer);

-begin

-  SendMessage(GetParent(wnd),PSM_CHANGED,0,0);

-  if ((atype and etHK )<>0) and (NewGroupList =GroupList ) then NewGroupList :=CloneGroupList;

-  if ((atype and etACT)<>0) and (NewActionList=ActionList) then NewActionList:=CloneActionList;

-end;

-

-procedure SetSave(Dialog:HWND;curIdx:integer);

-var

-  i,j:integer;

-  li:LV_ITEMW;

-  wnd:HWND;

-begin

-  if NewGroupList<>GroupList then

-  begin

-

-    DestroyGroups(GroupList,MaxGroups);

-    wnd:=GetDlgItem(Dialog,IDC_ACTION_GROUP);

-    j:=SendMessageW(wnd,LVM_GETITEMCOUNT,0,0);

-    MaxGroups:=j;

-    if j>0 then

-    begin

-      GetMem  (GroupList ,MaxGroups*SizeOf(tHKRecord));

-      FillChar(GroupList^,MaxGroups*SizeOf(tHKRecord),0);

-      li.mask    :=LVIF_PARAM;

-      li.iSubItem:=0;

-      for i:=0 to j-1 do

-      begin

-        li.iItem:=i;

-        SendMessageW(wnd,LVM_GETITEMW,0,lparam(@li)); // GetLParam(wnd,i);

-        move(NewGroupList^[li.lParam],GroupList^[i],SizeOf(tHKRecord));

-        li.lParam:=i;

-        SendMessageW(wnd,LVM_SETITEMW,0,lparam(@li));

-      end;

-    end

-    else

-      GroupList:=nil;

-

-    FreeMem(NewGroupList);

-    NewGroupList:=GroupList;

-    NewMaxGroups:=MaxGroups;

-  end;

-end;

-

-procedure SetCancel;

-begin

-  if NewActionList<>nil then

-  begin

-    if (NewActionList<>ActionList) then

-      DestroyActions(NewActionList,NewMaxActions);

-    NewActionList:=nil;

-  end;

-  if NewGroupList<>nil then

-  begin

-    if (NewGroupList<>GroupList) then

-      DestroyGroups(NewGroupList,NewMaxGroups);

-    NewGroupList:=nil;

-  end;

-end;

+  xmlfilename:array [0..511] of WideChar;

+const

+  etMacro = 1; // Groups  changed

+  etACT   = 2; // Actions changed

 

 {$include i_opt_dlg2.inc}

 

@@ -181,7 +17,8 @@ var
   i:integer;

 begin

   result:=0;

-  NoDescription  :=TranslateW('No description');

+  NoDescription:=TranslateW('No description');

+

   StrCopyW(xmlfilename,'c:\export.xml');

 

   DoInitCommonControls(ICC_USEREX_CLASSES);