From c09a65cb4153f151ec2eb074614b4ccfe7c22bdb Mon Sep 17 00:00:00 2001
From: George Hazan <ghazan@miranda.im>
Date: Wed, 6 Mar 2019 17:14:40 +0300
Subject: popups: pascal code cleaning

---
 plugins/Watrack/lastfm/i_last_api.inc | 4 ++--
 plugins/Watrack/lastfm/i_last_opt.inc | 4 +---
 2 files changed, 3 insertions(+), 5 deletions(-)

(limited to 'plugins/Watrack/lastfm')

diff --git a/plugins/Watrack/lastfm/i_last_api.inc b/plugins/Watrack/lastfm/i_last_api.inc
index 3d58bd27dd..f8975305df 100644
--- a/plugins/Watrack/lastfm/i_last_api.inc
+++ b/plugins/Watrack/lastfm/i_last_api.inc
@@ -81,7 +81,7 @@ begin
       else if StrCmp(res,'BADAUTH' )=0 then StrCopy(tmp,Translate('Bad Auth. Check login and password'))
       else if StrCmp(res,'BADTIME' )=0 then StrCopy(tmp,Translate('Bad TimeStamp'))
       else if StrCmp(res,'FAILED',6)=0 then StrCopy(tmp,res+7);
-      CallService(MS_POPUP_SHOWMESSAGE,wparam(@request),SM_ERROR);
+      PUShowMessage(@request,SM_ERROR);
     end;
     mFreeMem(res);
   end;
@@ -194,7 +194,7 @@ begin
       else if StrCmp(res,'FAILED',6)=0 then
       begin
         StrCopy(StrCopyE(args,Translate('Last.fm error: ')),res+7);
-        CallService(MS_POPUP_SHOWMESSAGE,wparam(@args),SM_NOTIFY);
+        PUShowMessage(@args,SM_NOTIFY);
         result:=0;
       end;
       mFreeMem(res);
diff --git a/plugins/Watrack/lastfm/i_last_opt.inc b/plugins/Watrack/lastfm/i_last_opt.inc
index c629962697..9628dcf163 100644
--- a/plugins/Watrack/lastfm/i_last_opt.inc
+++ b/plugins/Watrack/lastfm/i_last_opt.inc
@@ -23,9 +23,7 @@ begin
   mFreeMem(lfm_login   ); lfm_login   :=DBReadString(0,PluginShort,optLogin);
   mFreeMem(lfm_password); lfm_password:=DBReadString(0,PluginShort,optPassword);
   if (lfm_login=nil) or (lfm_password=nil) then
-    CallService(MS_POPUP_SHOWMESSAGEW,
-      wparam(TranslateW('Don''t forget to enter Login and Password to use Last.fm service')),
-      SM_WARNING);
+    PUShowMessageW(TranslateW('Don''t forget to enter Login and Password to use Last.fm service'), SM_WARNING);
 end;
 
 procedure FreeOpt;
-- 
cgit v1.2.3