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, 1 insertions, 18 deletions

diff --git a/plugins/Watrack/stat/statlog.pas b/plugins/Watrack/stat/statlog.pas
index 461b4c31bf..38a8f01af8 100644
--- a/plugins/Watrack/stat/statlog.pas
+++ b/plugins/Watrack/stat/statlog.pas
@@ -515,7 +515,6 @@ end;
 function NewPlStatus(wParam:WPARAM;lParam:LPARAM):int;cdecl;

 var

   flag:integer;

-  mi:tClistMenuItem;

   CurTime:dword;

 begin

   result:=0;

@@ -543,24 +542,11 @@ begin
       else // like 1

         exit

       end;

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

-      mi.flags :=CMIM_FLAGS+flag;

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

+      Menu_ModifyItem(hMenuReport, 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(IcoBtnReport,0);

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

-end;

-

 // ------------ base interface functions -------------

 

 function InitProc(aGetStatus:boolean=false):integer;

@@ -594,7 +580,6 @@ begin
   sid.szDescription.a:='Create Report';

   Skin_AddIcon(@sid);

   DestroyIcon(sid.hDefaultIcon);

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

 

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

   mi.szPopupName.a:=PluginShort;

@@ -612,8 +597,6 @@ begin
     SetModStatus(0);

 

   CallService(MO_REMOVEMENUITEM,hMenuReport,0);

-  UnhookEvent(plStatusHook);

-  UnhookEvent(sic);

   DestroyServiceFunction(hPackLog);

   DestroyServiceFunction(hMakeReport);

   DestroyServiceFunction(hAddToLog);