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, 4 insertions, 89 deletions

diff --git a/plugins/Actman/ua/i_options.inc b/plugins/Actman/ua/i_options.inc
index 91f54e89d8..977ff7891b 100644
--- a/plugins/Actman/ua/i_options.inc
+++ b/plugins/Actman/ua/i_options.inc
@@ -26,7 +26,10 @@ begin
     begin

       p:=StrCopyE(p,opt_UA);

       p^:='/'; inc(p);

-

+{!!

+      p^:='*'; inc(p); p^:=#0;

+      DBDeleteGroup(0,DBBranch,setting);

+!!}

       StrCopy(p,opt_Flags); DBDeleteSetting(0,DBBranch,setting);

     

       StrCopy(p,opt_TTBTooltip        ); DBDeleteSetting(0,DBBranch,setting);

@@ -196,8 +199,6 @@ end;
 *)

 procedure SetAllActionUsers(var ActionItem:tMyActionItem; initial:boolean);

 var

-  setting:array [0..63] of AnsiChar;

-  p:pAnsiChar;

   luse:boolean;

   lmenu:tMenuType;

 begin

@@ -248,90 +249,4 @@ begin
     DestroyServiceFunction(ActionItem.hMenuService);

     ActionItem.hMenuService:=0;

   end;

-

-  // First run (ok ok, if ppl ask for it....)

-  p:=GetUABranch(setting,ActionItem.dwActID);

-  if p<>nil then

-  begin

-    p:=StrCopyE(p,opt_UA);

-    p^:='/'; inc(p);

-    StrCopy(p,'_FirstRun');

-    if DBReadByte(0,DBBranch,setting,0)<>0 then

-    begin

-      CAllService(MS_ACT_RUNBYID,ActionItem.dwActID,0);

-      DBDeleteSetting(0,DBBranch,setting);

-    end;

-  end;

-

-end;

-

-procedure DeleteUAction(num:integer);

-var

-  ActionItem:pMyActionItem;

-  setting:array [0..63] of AnsiChar;

-  p:pAnsiChar;

-  luse:boolean;

-  lmenu:tMenuType;

-begin

-  DeleteUASettings(num);

-

-  ActionItem:=@UActionList[num];

-

-  DeleteIcolibIcon(ActionItem^);

-

-  if (ActionItem.flags and UAF_REGHOTKEY)<>0 then

-    DeleteCoreHotkey(ActionItem^);

-

-  if (ActionItem.flags and UAF_REGTTBB)<>0 then

-    DeleteTTBButton(ActionItem^);

-  mFreeMem(ActionItem.szTTBTooltip);

-  mFreeMem(ActionItem.szTTBTooltipPressed);

-  mFreeMem(ActionItem.szTTBShowWhenVars);

-

-  if (ActionItem.flags and UAF_REGTABB)<>0 then

-    DeleteTabBBButton(ActionItem^);

-  mFreeMem(ActionItem.szTabBTooltip);

-  mFreeMem(ActionItem.szTabBTooltipPressed);

-

-  luse:=false;

-  for lmenu:=main_menu to HIGH(tMenuType) do

-  begin

-    with ActionItem.UAMenuItem[lmenu] do

-    begin

-      if (menu_opt and UAF_MENUUSE)<>0 then

-      begin

-        luse:=true;

-        DeleteMenuItem(ActionItem^,lmenu);

-      end;

-      mFreeMem(szMenuPopup);

-      mFreeMem(szMenuNameVars);

-      mFreeMem(szMenuShowWhenVars);

-    end;

-  end;

-

-  if (not luse) and (ActionItem.hMenuService<>0) then

-  begin

-    DestroyServiceFunction(ActionItem.hMenuService);

-    ActionItem.hMenuService:=0;

-  end;

-

-  p:=GetUABranch(setting,ActionItem.dwActID);

-  if p<>nil then

-  begin

-    p:=StrCopyE(p,opt_UA);

-    p^:='/'; inc(p);

-    StrCopy(p,'_FirstRun');

-    DBDeleteSetting(0,DBBranch,setting);

-  end;

-

-  // Free Memory

-  mFreeMem(ActionItem.szNameID);

-  mFreeMem(ActionItem.szActDescr);

-  

-  // compact list

-  if num<HIGH(UActionList) then

-  begin

-    move(UActionList[num+1],UActionList[num],(HIGH(UACtionList)-num)*SizeOf(tMyActionItem));

-  end;

-  SetLength(UActionList,Length(UActionList)-1);

 end;