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, 0 insertions, 875 deletions

diff --git a/plugins/Actman30/ua/i_uaplaces.inc b/plugins/Actman30/ua/i_uaplaces.inc
deleted file mode 100644
index 222065b460..0000000000
--- a/plugins/Actman30/ua/i_uaplaces.inc
+++ /dev/null
@@ -1,875 +0,0 @@
-{}

-(*

-const

-  MenuServices:array [tMenuType] of pAnsiChar = (

-    'CList/AddMainMenuItem'   {MS_CLIST_ADDMAINMENUITEM   },

-    'CList/AddContactMenuItem'{MS_CLIST_ADDCONTACTMENUITEM},

-    'CList/AddTrayMenuItem'   {MS_CLIST_ADDTRAYMENUITEM   },

-    'CList/AddProtoMenuItem'  {MS_CLIST_ADDPROTOMENUITEM  },

-    'CList/AddStatusMenuItem' {MS_CLIST_ADDSTATUSMENUITEM }

-  );

-*)

-type

-  tuaMenuRec = record

-    hMenuRoot:HMENU;

-    position :integer;

-  end;

-  tuaMenuRecA = array [tMenuType] of tuaMenuRec;

-

-var

-  arMenuRec: array of tuaMenuRecA;

-

-//===== Support =====

-

-function ServiceCallWithLParam(wParam:WPARAM; lParam:LPARAM):int_ptr; cdecl;

-begin

-  result:=CallService(MS_ACT_RUNBYID, lParam, wParam);

-end;

-

-procedure SetTTBState(const ActionItem:tMyActionItem);

-var

-  lflag:integer;

-begin

-  if ActionItem.hTTBButton=0 then exit;

-  if (ActionItem.flags and UAF_2STATE)=0 then exit;

-

-  lflag:=CallService(MS_TTB_GETBUTTONSTATE,ActionItem.hTTBButton,0);

-  if lflag=TTBST_PUSHED then

-  begin

-    if (ActionItem.flags and (UAF_2STATE+UAF_PRESSED))<>(UAF_2STATE+UAF_PRESSED) then exit;

-    lflag:=0;

-  end

-  else

-  begin

-    if (ActionItem.flags and (UAF_2STATE+UAF_PRESSED))=(UAF_2STATE+UAF_PRESSED) then exit;

-    if (ActionItem.flags and UAF_PRESSED)=0 then exit;

-    lflag:=TTBST_PUSHED;

-  end;

-  CallService(MS_TTB_SETBUTTONSTATE,ActionItem.hTTBButton,lflag);

-end;

-

-procedure SetTABState(hContact:THANDLE;const ActionItem:tMyActionItem;pressed:integer);

-var

-  tabb:TBBButton;

-  pc:pWideChar;

-begin

-  FillChar(tabb,SizeOf(tabb),0);

-  tabb.cbSize       :=SizeOf(tabb);

-  tabb.dwButtonID   :=ActionItem.dwActID;

-  tabb.pszModuleName:=MODULE_NAME;

-

-  if pressed<>0 then

-  begin

-    pc:=ActionItem.szTabBTooltipPressed;

-    if pc=nil then pc:=ActionItem.szTabBTooltip;

-    tabb.hIcon:=ActionItem.hIcolibIconPressed;

-    tabb.bbbFlags:=BBSF_PUSHED;

-  end

-  else

-  begin

-    pc:=ActionItem.szTabBTooltip;

-    tabb.hIcon:=ActionItem.hIcolibIcon;

-    tabb.bbbFlags:=BBSF_RELEASED;

-  end;

-  if pc=nil then pc:=ActionItem.szActDescr;

-  tabb.szTooltip.w:=pc;

-  CallService(MS_BB_SETBUTTONSTATE,hContact,TLPARAM(@tabb));

-end;

-

-function IsLocalItem(const UAItem:tMyActionItem):boolean;

-begin

-  result:=((UAItem.flags and UAF_GLOBAL)=0) and

-     (UAItem.UAMenuItem[main_menu  ].hMenuItem=0) and

-     (UAItem.UAMenuItem[tray_menu  ].hMenuItem=0) and

-     (UAItem.UAMenuItem[proto_menu ].hMenuItem=0) and

-     (UAItem.UAMenuItem[status_menu].hMenuItem=0) and

-     (UAItem.hTTBButton=0);

-end;

-

-function ServiceCallWithFParam(wParam:WPARAM; lParam:LPARAM; fParam:LPARAM):int_ptr; cdecl;

-var

-  i:integer;

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

-  p:pAnsiChar;

-  cnt:THANDLE;

-  state:integer;

-begin

-  for i:=0 to HIGH(UActionList) do

-  begin

-    with UActionList[i] do

-      if dwActID=cardinal(fParam) then

-        if (flags and UAF_2STATE)<>0 then

-        begin

-          // sync buttons/menus

-          if IsLocalItem(UActionList[i]) then

-          begin

-  //          if (flags and UAF_SAVESTATE)<>0 then

-            begin

-              state:=DBReadByte(lastContact,opt_ua,szNameID);

-              state:=state xor 1;

-              DBWriteByte(lastContact,opt_ua,szNameID,state);

-              cnt:=lastContact;

-            end;

-          end

-          else

-          begin

-            flags:=flags xor UAF_PRESSED;

-            // save "pressed" state

-            if (flags and UAF_SAVESTATE)<>0 then

-            begin

-              p:=GetUABranch(setting,dwActID);

-              if p<>nil then

-              begin

-                p:=StrCopyE(p,opt_ua);

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

-                StrCopy(p,opt_flags);

-                DBWriteDWord(0,DBBranch,setting,flags and not UAF_REALTIME);

-              end;

-            end;

-

-            if hTTBButton<>0 then

-              SetTTBState(UActionList[i]);

-

-            cnt:=0;

-            state:=ORD(flags and UAF_PRESSED);

-          end;

-          if (flags and UAF_REGTABB)<>0 then

-            SetTABState(cnt,UActionList[i],state);

-

-          break;

-        end;

-  end;

-

-  result:=CallService(MS_ACT_RUNBYID, fParam, wParam);

-end;

-

-function AddIcolibIconP(var ActionItem:tMyActionItem):THANDLE;

-var

-  sid:TSKINICONDESC;

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

-begin

-  if (ActionItem.hIcolibIconPressed=0) or

-     (ActionItem.hIcolibIconPressed=ActionItem.hIcolibIcon) then

-  begin

-    // add icon for action to icolib

-    fillChar(sid,SizeOf(sid),0);

-    sid.cbSize         :=sizeof(sid);

-    sid.szSection    .w:=ICOLIB_ACTSECTION;

-    sid.szDefaultFile.w:=szMyPath;

-    sid.iDefaultIndex  :=-IDI_ACTION;

-    sid.cx             :=16;

-    sid.cy             :=16;

-    sid.flags          :=SIDF_ALL_UNICODE;

-    // icon "off"

-    StrCopyW(StrCopyEW(buf,ActionItem.szActDescr),' (pressed)');

-    sid.szDescription.w:=@buf;

-    StrCopy(StrCopyE(@buf1,ActionItem.szNameID),'_pressed');

-    sid.pszName        :=@buf1;

-    ActionItem.hIcolibIconPressed:=Skin_AddIcon(@sid);

-  end;

-  result:=ActionItem.hIcolibIconPressed;

-end;

-

-function AddIcolibIcon(var ActionItem:tMyActionItem):THANDLE;

-var

-  sid:TSKINICONDESC;

-begin

-  if ActionItem.hIcolibIcon=0 then

-  begin

-    // add icon for action to icolib

-    fillChar(sid,SizeOf(sid),0);

-    sid.cbSize         :=sizeof(sid);

-    sid.szSection    .w:=ICOLIB_ACTSECTION;

-    sid.szDefaultFile.w:=szMyPath;

-    sid.iDefaultIndex  :=-IDI_ACTION;

-    sid.cx             :=16;

-    sid.cy             :=16;

-    sid.flags          :=SIDF_ALL_UNICODE;

-    // icon "on"

-    sid.szDescription.w:=ActionItem.szActDescr;

-    sid.pszName        :=ActionItem.szNameID;

-    ActionItem.hIcolibIcon:=Skin_AddIcon(@sid);

-  end;

-  result:=ActionItem.hIcolibIcon;

-end;

-

-procedure DeleteIcolibIconP(var ActionItem:tMyActionItem);

-var

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

-begin

-  if (ActionItem.hIcolibIconPressed<>0) and

-     (ActionItem.hIcolibIconPressed<>ActionItem.hIcolibIcon) then

-  begin

-    StrCopy(StrCopyE(@buf1,ActionItem.szNameID),'_pressed');

-    CallService(MS_SKIN2_REMOVEICON,0,LPARAM(@buf1));

-    ActionItem.hIcolibIconPressed:=ActionItem.hIcolibIcon;

-  end;

-end;

-

-procedure DeleteIcolibIcon(var ActionItem:tMyActionItem);

-begin

-  DeleteIcolibIconP(ActionItem);

-  CallService(MS_SKIN2_REMOVEICON,0,LPARAM(ActionItem.szNameID));

-  ActionItem.hIcolibIcon       :=0;

-  ActionItem.hIcolibIconPressed:=0;

-end;

-

-//===== Really places =====

-

-//----- Hotkeys -----

-

-function AddCoreHotkey(var ActionItem:tMyActionItem):boolean;

-var

-  hkd:THOTKEYDESC;

-begin

-  if (ActionItem.flags and UAF_HKREGGED)=0 then

-  begin

-    FillChar(hkd,SizeOf(hkd),0);

-    hkd.cbSize          := SizeOf(hkd); // HOTKEYDESC_SIZE_V1 for pre-0.9

-    hkd.dwFlags         := HKD_UNICODE; // since 0.9 only

-    hkd.pszName         := ActionItem.szNameID;

-    hkd.pszDescription.w:= ActionItem.szActDescr;

-    hkd.pszSection    .w:= MODULE_NAME;

-    hkd.pszService      := SERVICE_WITH_LPARAM_NAME;

-    hkd.lParam          := ActionItem.dwActID;

-    result:=Hotkey_Register(@hkd)<>0;

-    if result then

-      ActionItem.flags:=ActionItem.flags or UAF_HKREGGED;

-  end

-  else

-    result:=true; //!!

-end;

-

-procedure DeleteCoreHotkey(var ActionItem:tMyActionItem);

-begin

-  if // bCoreHotkeyPresents and

-     // (ServiceExists(MS_HOTKEY_UNREGISTER)<>0) and

-     ((ActionItem.flags and UAF_HKREGGED)<>0) then

-  begin

-    CallService(MS_HOTKEY_UNREGISTER,0,LParam(ActionItem.szNameID));

-    ActionItem.flags:=ActionItem.flags and not UAF_HKREGGED;

-  end;

-end;

-

-//----- Common menu functions -----

-

-function AddRootMenuIcon(szPopupName:pWideChar):THANDLE;

-var

-  sid:TSKINICONDESC;

-begin

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

-  //first - register icon for root popup

-  sid.cbSize         := sizeof(sid);

-  sid.szSection.w    := ICOLIB_MNUSECTION;

-  sid.flags          := SIDF_ALL_UNICODE;

-  sid.cx             := 16;

-  sid.cy             := 16;

-  sid.szDescription.w:= szPopupName;

-  sid.szDefaultFile.w:= szMyPath;

-  sid.iDefaultIndex  := -IDI_ACTION;

-  WideToAnsi(szPopupName,sid.pszName);

-  result:=Skin_AddIcon(@sid);

-  mFreeMem(sid.pszName);

-end;

-

-procedure DeleteMenuItem(var ActionItem:tMyActionItem;mtype:tMenuType);

-var

-  i:integer;

-  hMenuRoot:THANDLE;

-  p:pMyActionItem;

-begin

-  with ActionItem.UAMenuItem[mtype] do

-  begin

-    if hMenuItem=0 then exit;

-    CallService(MO_REMOVEMENUITEM,hMenuItem,0);

-    hMenuItem:=0;

-  end;

-

-  hMenuRoot:=ActionItem.UAMenuItem[mtype].hMenuRoot;

-  if hMenuRoot<>0 then

-  begin

-    for i:=0 to HIGH(UActionList) do

-    begin

-      p:=@UActionList[i];

-      // presents somethere else

-      if (p<>@ActionItem) and (p.UAMenuItem[mtype].hMenuRoot=hMenuRoot) then

-        exit;

-    end;

-    // menu array cleanup now?

-    for i:=0 to HIGH(arMenuRec) do

-    begin

-      if arMenuRec[i][mtype].hMenuRoot=hMenuRoot then

-      begin

-        FillChar(arMenuRec[i][mtype],SizeOf(tuaMenuRec),0);

-//        arMenuRec[i][mtype].hMenuRoot:=0;

-        break;

-      end;

-    end;

-    CallService(MO_REMOVEMENUITEM,hMenuRoot,0);

-    ActionItem.UAMenuItem[mtype].hMenuRoot:=0;

-  end;

-end;

-

-function GetMenuPosition(hMenu:HMENU;mtype:tMenuType;toset:boolean):integer;

-var

-  i:integer;

-begin

-  result:=0;

-  for i:=0 to HIGH(arMenuRec) do

-  begin

-    if arMenuRec[i][mtype].hMenuRoot=hMenu then

-    begin

-      if toset then

-        inc(arMenuRec[i][mtype].position,100000);

-      result:=arMenuRec[i][mtype].position;

-      break;

-    end;

-  end;

-end;

-

-function MakeMenuItem(mtype:tMenuType;clmi:PCListMenuItem):THANDLE;

-begin

-  case mtype of

-    main_menu   : result:=Menu_AddMainMenuItem(clmi);

-    contact_menu: result:=Menu_AddContactMenuItem(clmi);

-    tray_menu   : result:=Menu_AddTrayMenuItem(clmi);

-    proto_menu  : result:=Menu_AddProtoMenuItem(clmi);

-    status_menu : result:=Menu_AddStatusMenuItem(clmi);

-  else

-    result:=0;

-  end;

-end;

-

-procedure CreateMenuItem(var ActionItem:tMyActionItem;mtype:tMenuType);

-var

-  extra:pWideChar;

-  ActItem:pMyActionItem;

-  ActMItem,UAMenuItem:pUAMenuItem;

-  clmi:TCListMenuItem;

-  i:integer;

-  res:boolean;

-begin

-{}

-  UAMenuItem:=@ActionItem.UAMenuItem[mtype];

-  if UAMenuItem.hMenuItem<>0 then exit;

-

-  // create popup menu

-{}{}

-  res:=true;

-  if (UAMenuItem.szMenuPopup<>nil) and (UAMenuItem.szMenuPopup^<>#0) then

-  begin

-    res:=false;

-    for i:=0 to HIGH(UActionList) do

-    begin

-      // try to find root popup with same name (if we already created one)

-      ActItem :=@UActionList[i];

-      ActMItem:=@ActItem.UAMenuItem[mtype];

-

-      if (ActMItem.szMenuPopup<>nil) and

-         (ActMItem.hMenuRoot<>0) and

-        ( (ActItem<>@ActionItem) and

-          (StrCmpW(ActMItem.szMenuPopup,UAMenuItem.szMenuPopup)=0) ) then

-      begin

-        UAMenuItem.hMenuRoot:=ActMItem.hMenuRoot;

-        res:=true;

-        break;

-      end;

-    end;

-  end;

-  // need to create popup menu

-  if not res then

-  begin

-    FillChar(clmi,SizeOf(clmi),0);

-    clmi.cbSize:=SizeOf(clmi);

-    if (UAMenuItem.menu_opt and UAF_NOTRANS)<>0 then

-      clmi.flags :=CMIF_UNICODE or CMIF_KEEPUNTRANSLATED

-    else

-      clmi.flags :=CMIF_UNICODE{ or CMIF_ICONFROMICOLIB};

-

-    if (UAMenuItem.szMenuPopup<>nil) and (UAMenuItem.szMenuPopup^<>#0) then

-    begin

-      if (UAMenuItem.menu_opt and UAF_MSUBVAR)<>0 then

-        clmi.szName.w:=ParseVarString(UAMenuItem.szMenuPopup)

-      else

-        clmi.szName.w:=UAMenuItem.szMenuPopup;

-    end

-    else

-      clmi.szName.w:=nil;

-    if clmi.szName.w=nil then

-      clmi.szName.w:=ActionItem.szActDescr;

-

-    clmi.hIcon   :=AddRootMenuIcon(clmi.szName.w);

-    clmi.position:=ActionItem.wSortIndex*10;

-

-    // position in Root Menu

-    inc(clmi.position,GetMenuPosition(0,mtype,

-        (UAMenuItem.menu_opt and UAF_MENUSEP)<>0));

-

-    UAMenuItem.hMenuRoot:=MakeMenuItem(mtype,@clmi);

-

-    if (clmi.szName.w<>ActionItem.szActDescr) and

-       (clmi.szName.w<>UAMenuItem.szMenuPopup) then

-      mFreeMem(clmi.szName.w);

-

-    for i:=1 to HIGH(arMenuRec) do

-    begin

-      with arMenuRec[i][mtype] do

-        if hMenuRoot=0 then

-        begin

-//          MenuName :=ActionItem.szActDescr;

-          hMenuRoot:=UAMenuItem.hMenuRoot;

-          break;

-        end;

-    end;

-

-  end;

-{}{}

-

- // Now Menu Item preparing

-{}{}

-  FillChar(clmi,SizeOf(clmi),0);

-  clmi.cbSize:=SizeOf(clmi);

-  if (UAMenuItem.menu_opt and UAF_NOTRANS)<>0 then

-    clmi.flags :=CMIF_UNICODE or CMIF_KEEPUNTRANSLATED

-  else

-    clmi.flags :=CMIF_UNICODE{ or CMIF_ICONFROMICOLIB};

-  if (ActionItem.flags and (UAF_2STATE+UAF_PRESSED))<>(UAF_2STATE+UAF_PRESSED) then

-  begin

-    clmi.hIcon:=ActionItem.hIcolibIcon;

-    extra:='0';

-  end

-  else

-  begin

-    clmi.hIcon:=ActionItem.hIcolibIconPressed;

-    clmi.flags:=clmi.flags or CMIF_CHECKED;

-    extra:='1';

-  end;

-

-  if (UAMenuItem.szMenuNameVars<>nil) and (UAMenuItem.szMenuNameVars^<>#0) then

-  begin

-    if (UAMenuItem.menu_opt and UAF_MNAMVAR)<>0 then

-      clmi.szName.w:=ParseVarString(UAMenuItem.szMenuNameVars,0,extra)

-    else

-      clmi.szName.w:=UAMenuItem.szMenuNameVars;

-  end

-  else

-    clmi.szName.w:=nil;

-  if clmi.szName.w=nil then

-    clmi.szName.w:=ActionItem.szActDescr;

-

-  if UAMenuItem.hMenuRoot<>0 then

-  begin

-    clmi.flags:=clmi.flags or CMIF_ROOTHANDLE;

-    clmi.szPopupName.w:=pWideChar(UAMenuItem.hMenuRoot);

-  end;

-

-  clmi.pszService:=ActionItem.szNameID;

-  if ActionItem.hMenuService=0 then

-    ActionItem.hMenuService:=CreateServiceFunctionParam(

-      clmi.pszService,@ServiceCallWithFParam,ActionItem.dwActID);

-

-  clmi.position:=ActionItem.wSortIndex*10;

-{}{}

-  inc(clmi.position,GetMenuPosition(UAMenuItem.hMenuRoot,mtype,

-      (UAMenuItem.menu_opt and UAF_MENUSEP)<>0));

-

-  UAMenuItem.hMenuItem:=MakeMenuItem(mtype,@clmi);

-  //CallService(MenuServices[mtype],0,LPARAM(@clmi));

-  if (clmi.szName.w<>ActionItem.szActDescr) and

-     (clmi.szName.w<>UAMenuItem.szMenuNameVars) then

-    mFreeMem(clmi.szName.w);

-{}

-

-end;

-

-function PreBuildMenu(mtype:tMenuType;hContact:TMCONTACT=0):int;

-var

-  i:integer;

-  mi:TCListMenuItem;

-  p,extra:pWideChar;

-begin

-  result:=0;

-

-  FillChar(mi,SizeOf(mi),0);

-  mi.cbSize:=SizeOf(mi);

-

-  for i:=0 to HIGH(UActionList) do

-  begin

-    mi.flags:=CMIM_FLAGS;

-    p:=nil;

-    with UActionList[i] do

-    begin

-      with UAMenuItem[mtype] do

-      begin

-        if hMenuItem<>0 then // it means, we process that item here

-        begin

-          mi.szName.w:=nil;

-          // Show / hide

-          if isVarsInstalled then

-          begin

-            if (szMenuShowWhenVars<>nil) and (szMenuShowWhenVars^<>#0) then

-            begin

-              p:=ParseVarString(szMenuShowWhenVars,hContact);

-              if p<>nil then

-              begin

-                if StrCmpW(p,'1')<>0 then

-                  mi.flags:=CMIM_FLAGS or CMIF_HIDDEN;

-                mFreeMem(p);

-              end;

-            end;

-          end;

-

-          // change if need to show only

-          // (popup can be used by many items, keep unchanged)

-          if (mi.flags and CMIF_HIDDEN)=0 then

-          begin

-            //!!!! icon (check for contact menu)

-            mi.flags:=mi.flags or CMIM_ICON or CMIM_FLAGS{ or CMIF_ICONFROMICOLIB};

-

-            if (mtype=contact_menu) and IsLocalItem(UActionList[i]) then

-            begin

-              lastContact:=hContact;

-              if ((flags and UAF_2STATE)<>0) and

-                 (DBReadByte(hContact,opt_ua,szNameID)<>0) then

-              begin

-                mi.flags:=mi.flags or CMIF_CHECKED;

-                mi.hIcon:=hIcolibIconPressed;

-                extra:='1';

-                flags:=flags or UAF_PRESSED;

-              end

-              else

-              begin

-                mi.hIcon:=hIcolibIcon;

-                flags:=flags and not UAF_PRESSED;

-                extra:='0';

-              end;

-

-            end

-            else

-            begin

-              if (flags and (UAF_2STATE+UAF_PRESSED))=(UAF_2STATE+UAF_PRESSED) then

-              begin

-                mi.flags:=mi.flags or CMIF_CHECKED;

-                mi.hIcon:=hIcolibIconPressed;

-                extra:='1';

-              end

-              else

-              begin

-                mi.hIcon:=hIcolibIcon;

-                extra:='0';

-              end;

-            end;

-

-            // new name

-            mi.flags:=mi.flags or CMIM_NAME or CMIF_UNICODE;

-            if (szMenuNameVars<>nil) and (szMenuNameVars^<>#0) then

-            begin

-              if (menu_opt and UAF_MNAMVAR)<>0 then

-                mi.szName.w:=ParseVarString(szMenuNameVars,hContact,extra)

-              else

-                mi.szName.w:=szMenuNameVars;

-            end

-            else

-              mi.szName.w:=nil;

-            if mi.szName.w=nil then

-              mi.szName.w:=szActDescr;

-          end;

-

-          CallService(MS_CLIST_MODIFYMENUITEM,hMenuItem,LPARAM(@mi));

-

-          if (mi.szName.w<>szActDescr) and

-             (mi.szName.w<>szMenuNameVars) then

-            mFreeMem(mi.szName.w);

-        end;

-      end;

-    end;

-

-  end;

-end;

-

-function PreBuildMainMenu(wParam:WPARAM;lParam:LPARAM):int; cdecl;

-begin

-  result:=PreBuildMenu(main_menu,wParam);

-end;

-

-function PreBuildContactMenu(wParam:WPARAM;lParam:LPARAM):int;  cdecl;

-begin

-  result:=PreBuildMenu(contact_menu,wParam);

-end;

-

-function PreBuildTrayMenu(wParam:WPARAM;lParam:LPARAM):int; cdecl;

-begin

-  result:=PreBuildMenu(tray_menu,wParam);

-end;

-

-//----- TopToolbar -----

-

-procedure AddTTBButton(var ActionItem:tMyActionItem);

-var

-  mtButton:TTBButton;

-  pc,pc1,pc2:pAnsiChar;

-  res:boolean;

-  p:pWideChar;

-begin

-  if not NamesArray[uaTTB].enable then exit;

-

-  if ActionItem.hTTBButton=0 then

-  begin

-    // Add or not

-    if isVarsInstalled then

-    begin

-      if (ActionItem.szTTBShowWhenVars<>nil) and (ActionItem.szTTBShowWhenVars^<>#0) then

-      begin

-        p:=ParseVarString(ActionItem.szTTBShowWhenVars);

-        if p<>nil then

-        begin

-          res:=StrCmpW(p,'1')<>0;

-          mFreeMem(p);

-        end

-        else

-          res:=true;

-        if res then

-          exit;

-      end;

-    end;

-

-    FillChar(mtButton,SizeOf(mtButton),0);

-    mtButton.cbSize  :=SizeOf(mtButton);

-

-    mtButton.pszService:=TTB_SERVICE_NAME;//SERVICE_WITH_LPARAM_NAME;

-    mtButton.lParamUp  :=ActionItem.dwActID;

-    mtButton.lParamDown:=ActionItem.dwActID;

-

-    mtButton.hIconUp:=ActionItem.hIcolibIcon;

-    mtButton.hIconDn:=ActionItem.hIcolibIconPressed;

-

-    WideToAnsi(ActionItem.szActDescr,pc);

-

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

-      mtButton.dwFlags:=TTBBF_VISIBLE or TTBBF_SHOWTOOLTIP{ or TTBBF_ASPUSHBUTTON}

-    else

-      mtButton.dwFlags:=TTBBF_VISIBLE or TTBBF_SHOWTOOLTIP;

-

-    if ActionItem.szTTBTooltip =nil then

-      pc1:=pc

-    else

-    begin

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

-        pc1:=ParseVarString(ActionItem.szTTBTooltip)

-      else

-        pc1:=ActionItem.szTTBTooltip;

-    end;

-

-    if ((ActionItem.flags and UAF_2STATE)=0) or

-       (ActionItem.szTTBTooltipPressed=nil) then

-      pc2:=pc1

-    else

-    begin

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

-        pc2:=ParseVarString(ActionItem.szTTBTooltipPressed)

-      else

-        pc2:=ActionItem.szTTBTooltipPressed;

-    end;

-

-    mtButton.Name :=pc;

-    mtButton.pszTooltipUp  :=pc1;

-    mtButton.pszTooltipDn  :=pc2;

-

-    ActionItem.hTTBButton:=TopToolbar_AddButton(@mtButton);

-    if ActionItem.hTTBButton=THANDLE(-1) then

-      ActionItem.hTTBButton:=0;

-    if (pc2<>pc1) and (pc2<>ActionItem.szTTBTooltipPressed) then

-      mFreeMem(pc2);

-    if (pc1<>pc) and (pc1<>ActionItem.szTTBTooltip) then

-      mFreeMem(pc1);

-

-    mFreeMem(pc);

-  end;

-end;

-

-procedure DeleteTTBButton(var ActionItem:tMyActionItem);

-begin

-  if ActionItem.hTTBButton<>0 then

-  begin

-    CallService(MS_TTB_REMOVEBUTTON,ActionItem.hTTBButton,0);

-    ActionItem.hTTBButton:=0;

-  end;

-end;

-

-function TTBServiceCall(wParam:WPARAM; lParam:LPARAM):int_ptr; cdecl;

-var

-  i,lflag:integer;

-begin

-  result:=0;

-  for i:=0 to HIGH(UActionList) do

-  begin

-    if TLPARAM(UActionList[i].dwActID)=lParam then

-    begin

-      with UActionList[i] do

-      begin

-        if (flags and UAF_2STATE)<>0 then

-        begin

-          if CallService(MS_TTB_GETBUTTONSTATE,hTTBButton,0)=TTBST_PUSHED then

-          begin

-            lflag:=0;

-          end

-          else

-          begin

-            lflag:=TTBST_PUSHED;

-          end;

-          CallService(MS_TTB_SETBUTTONSTATE,hTTBButton,lflag);

-        end;

-      end;

-

-      result:=ServiceCallWithFParam(0,0,lParam);

-      break;

-    end;

-  end;

-end;

-

-function OnTTBLoaded(wParam:WPARAM;lParam:LPARAM):int; cdecl;

-var

-  i:integer;

-begin

-  result:=0;

-  for i:=HIGH(UActionList) downto 0 do

-  begin

-    if (UActionList[i].flags and UAF_REGTTBB)<>0 then

-      AddTTBButton(UActionList[i]);

-  end;

-end;

-

-//----- TabSRMM Toolbar -----

-

-const

-  TABTOOLBAR_INITPOS = 350;

-

-procedure AddTabBBButton(var ActionItem:tMyActionItem);

-var

-  tabb:TBBButton;

-begin

-  if not NamesArray[uaTAB].enable then exit;

-

-  if (ActionItem.flags and UAF_TBREGGED)=0 then

-  begin

-    FillChar(tabb,SizeOf(tabb),0);

-    // register Tab ButtonBar button

-    tabb.cbSize       :=SizeOf(tabb);

-    tabb.dwButtonID   :=ActionItem.dwActID;

-    tabb.pszModuleName:=MODULE_NAME;

-    tabb.dwDefPos     :=(TABTOOLBAR_INITPOS+ActionItem.wSortIndex*10) and $7FFF;

-    tabb.iButtonWidth :=0;

-    tabb.hIcon        :=ActionItem.hIcolibIcon;

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

-      tabb.bbbFlags:=BBBF_ISIMBUTTON or BBBF_ISLSIDEBUTTON or

-                     BBBF_ISCHATBUTTON or BBBF_ISPUSHBUTTON

-    else

-      tabb.bbbFlags:=BBBF_ISIMBUTTON or BBBF_ISLSIDEBUTTON or

-                     BBBF_ISCHATBUTTON;

-

-    if ActionItem.szTabBTooltip<>nil then

-      tabb.szTooltip.w:=ActionItem.szTabBTooltip

-    else

-      tabb.szTooltip.w:=ActionItem.szActDescr;

-

-    if CallService(MS_BB_ADDBUTTON,0,LPARAM(@tabb))=0 then

-      ActionItem.flags:=ActionItem.flags or UAF_TBREGGED;

-  end;

-end;

-

-procedure DeleteTabBBButton(var ActionItem:tMyActionItem);

-var

-  tabb:TBBButton;

-begin

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

-  begin

-    FillChar(tabb,SizeOf(tabb),0);

-    tabb.cbSize       :=SizeOf(tabb);

-    tabb.dwButtonID   :=ActionItem.dwActID;

-    tabb.pszModuleName:=MODULE_NAME;

-    CallService(MS_BB_REMOVEBUTTON,0,LPARAM(@tabb));

-    ActionItem.flags:=ActionItem.flags and not UAF_TBREGGED;

-  end;

-end;

-

-function OnTabButtonPressed(wParam:WPARAM;lParam:LPARAM):int; cdecl;

-var

-  cbcd:pCustomButtonClickData;

-//  tabb:BBButton;

-//  pc:pWideChar;

-  i:integer;

-begin

-  result:=0;

-  cbcd:=pointer(lParam);

-  if StrCmp(cbcd.pszModule,MODULE_NAME)<>0 then

-    exit;

-

-  for i:=0 to HIGH(UActionList) do

-  begin

-    with UActionList[i] do

-    begin

-      if cbcd.dwButtonId=dwActID then

-      begin

-{

-        FillChar(tabb,SizeOf(tabb),0);

-        tabb.cbSize       :=SizeOf(tabb);

-        tabb.dwButtonID   :=cbcd.dwButtonId;

-        tabb.pszModuleName:=MODULE_NAME;

-        if (flags and UAF_2STATE)<>0 then

-        begin

-          CallService(MS_BB_GETBUTTONSTATE,cbcd.hContact,TLPARAM(@tabb));

-          if IsLocalItem(UActionList[i]) then

-          begin

-            if DBReadByte(hContact,opt_ua,szNameID)<>0 then

-          end

-          else

-          begin

-            if (tabb.bbbFlags and BBSF_PUSHED)<>0 then

-            begin

-              pc:=szTabBTooltipPressed;

-              if pc=nil then pc:=szTabBTooltip;

-              tabb.hIcon:=hIcolibIconPressed;

-            end

-            else

-            begin

-              pc:=szTabBTooltip;

-              tabb.hIcon:=hIcolibIcon;

-            end;

-            if pc=nil then pc:=szActDescr;

-            tabb.szTooltip.w:=pc;

-            tabb.bbbFlags     :=BBBF_ISIMBUTTON or BBBF_ISLSIDEBUTTON or

-                                BBBF_ISCHATBUTTON or BBBF_ISPUSHBUTTON;

-        end

-        else

-        begin

-          tabb.hIcon:=hIcolibIcon;

-          tabb.szTooltip.w:=szTabBTooltip;

-          if tabb.szTooltip.w=nil then tabb.szTooltip.w:=szActDescr;

-          tabb.bbbFlags     :=BBBF_ISIMBUTTON or BBBF_ISLSIDEBUTTON or

-                              BBBF_ISCHATBUTTON;

-        end;

-

-        tabb.iButtonWidth:=0;

-        tabb.dwDefPos    :=(TABTOOLBAR_INITPOS+wSortIndex*10) and $7FFF;

-        CallService(MS_BB_MODIFYBUTTON,0,TLPARAM(@tabb));

-}

-        ServiceCallWithFParam(cbcd.hContact,0,cbcd.dwButtonId);

-        result:=1;

-        break;

-      end;

-    end;

-  end;

-

-end;

-

-function OnTabBBLoaded(wParam:WPARAM;lParam:LPARAM):int; cdecl;

-var

-  i:integer;

-begin

-  result:=0;

-  for i:=HIGH(UActionList) downto 0 do

-  begin

-    if (UActionList[i].flags and UAF_REGTABB)<>0 then

-      AddTabBBButton(UActionList[i]);

-  end;

-end;