Menu_ModifyItem applied to the pascal code

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

1 files changed, 2 insertions, 12 deletions

diff --git a/plugins/Watrack/popup/popups.pas b/plugins/Watrack/popup/popups.pas
index fe01254a62..cf149f0adf 100644
--- a/plugins/Watrack/popup/popups.pas
+++ b/plugins/Watrack/popup/popups.pas
@@ -312,7 +312,6 @@ end;
 

 function NewPlStatus(wParam:WPARAM;lParam:LPARAM):int;cdecl;

 var

-  mi:TCListMenuItem;

   flag:integer;

 begin

   result:=0;

@@ -333,22 +332,14 @@ begin
       else // like 1

         exit

       end;

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

-      mi.flags :=CMIM_FLAGS+flag;

-      CallService(MS_CLIST_MODIFYMENUITEM,hMenuInfo,tlparam(@mi));

+      Menu_ModifyItem(hMenuInfo, nil, INVALID_HANDLE_VALUE, flag);

     end;

   end;

 end;

 

 function IconChanged(wParam:WPARAM;lParam:LPARAM):int;cdecl;

-var

-  mi:TCListMenuItem;

 begin

   result:=0;

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

-  mi.flags :=CMIM_ICON;

-  mi.hIcon :=IcoLib_GetIcon(IcoBtnInfo,0);

-  CallService(MS_CLIST_MODIFYMENUITEM,hMenuInfo,tlparam(@mi));

   if ActionList<>nil then

   begin

     mFreeMem(ActionList);

@@ -479,7 +470,7 @@ begin
   sid.szDescription.a:='Music Info';

   Skin_AddIcon(@sid);

   DestroyIcon(sid.hDefaultIcon);

-  sic:=HookEvent(ME_SKIN2_ICONSCHANGED,@IconChanged);

+  HookEvent(ME_SKIN2_ICONSCHANGED,@IconChanged);

 

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

   mi.szPopupName.a:=PluginShort;

@@ -536,7 +527,6 @@ begin
   CallService(MO_REMOVEMENUITEM,hMenuInfo,0);

   UnhookEvent(plStatusHook);

   DestroyServiceFunction(ssmi);

-  UnhookEvent(sic);

 

   freepopup;