port of menu changes to pascal headers

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

2 files changed, 2 insertions, 16 deletions

diff --git a/plugins/Actman/ua/i_uaplaces.inc b/plugins/Actman/ua/i_uaplaces.inc
index 38531a19a3..6ea5113bc8 100644
--- a/plugins/Actman/ua/i_uaplaces.inc
+++ b/plugins/Actman/ua/i_uaplaces.inc
@@ -1,14 +1,5 @@
 {}

-(*

-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;

diff --git a/plugins/mRadio/i_tray.inc b/plugins/mRadio/i_tray.inc
index 7784e42e1f..52967dffaa 100644
--- a/plugins/mRadio/i_tray.inc
+++ b/plugins/mRadio/i_tray.inc
@@ -254,14 +254,9 @@ end;
 

 procedure CreateMIMTrayMenu;

 begin

-  doTray:=ServiceExists(MS_CLIST_ADDTRAYMENUITEM)<>0;

-

   CreateTrayMenu();

   MakeStationsMenu();

-  if doTray then

-    HookEvent(ME_CLIST_PREBUILDTRAYMENU,@TrayPrebuild)

-  else

-    HookEvent(ME_CLIST_PREBUILDMAINMENU,@TrayPrebuild)

+  HookEvent(ME_CLIST_PREBUILDTRAYMENU,@TrayPrebuild)

 end;

 

 procedure RemoveTrayItems;