From 0ebb1294ecaf4d62ad6b3e911be6275248c05354 Mon Sep 17 00:00:00 2001
From: George Hazan <ghazan@miranda.im>
Date: Sun, 27 Nov 2016 21:02:54 +0300
Subject: correct type for ServiceExists() - bool

---
 plugins/QuickSearch/sr_window.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'plugins/QuickSearch/sr_window.pas')

diff --git a/plugins/QuickSearch/sr_window.pas b/plugins/QuickSearch/sr_window.pas
index bdefa5f51b..e1d44f8e11 100644
--- a/plugins/QuickSearch/sr_window.pas
+++ b/plugins/QuickSearch/sr_window.pas
@@ -359,7 +359,7 @@ end;
 
 procedure DeleteOneContact(hContact:TMCONTACT);
 begin
-  if ServiceExists(strCListDel)>0 then
+  if ServiceExists(strCListDel) then
     CallService(strCListDel,hContact,0)
   else
     db_delete_contact(hContact);
@@ -899,7 +899,7 @@ begin
   AppendMenuW(mmenu,MF_SEPARATOR,0,nil);
   AppendMenuW(mmenu,MF_STRING,101,TranslateW('&Delete'));
   AppendMenuW(mmenu,MF_STRING,102,TranslateW('&Copy'));
-  if ServiceExists(MS_MC_CONVERTTOMETA)<>0 then
+  if ServiceExists(MS_MC_CONVERTTOMETA) then
     AppendMenuW(mmenu,MF_STRING,103,TranslateW('C&onvert to Meta'));
 
   cntmenu:=MakeContainerMenu(300);
@@ -1485,7 +1485,7 @@ begin
         if j>0 then
         begin
           StrCopy(StrCopyE(buf,GetProtoName(FlagBuf[i].proto)),PS_GETCUSTOMSTATUSICON);
-          if ServiceExists(buf)<>0 then
+          if ServiceExists(buf) then
           begin
             h:=CallService(buf,j,LR_SHARED);
 
@@ -1508,7 +1508,7 @@ begin
         MirVerW:=MainBuf[lplvcd^.nmcd.lItemlParam,sub].text;
 
 //!!
-        if (MirVerW<>nil) and (MirVerW[0]<>#0) and (ServiceExists(MS_FP_GETCLIENTICONW)<>0) then
+        if (MirVerW<>nil) and (MirVerW[0]<>#0) and ServiceExists(MS_FP_GETCLIENTICONW) then
         begin
           h:=CallService(MS_FP_GETCLIENTICONW,tlparam(MirVerW),0);
           ListView_GetSubItemRect(grid,lplvcd^.nmcd.dwItemSpec,lplvcd^.iSubItem,LVIR_ICON,@rc);
@@ -1622,7 +1622,7 @@ begin
 
       else if (datatype=QSTS_STRING) and
          (StrCmp(setting,'MirVer')=0) and
-         (ServiceExists(MS_FP_GETCLIENTICONW)<>0) then
+         ServiceExists(MS_FP_GETCLIENTICONW) then
         flags:=flags or COL_CLIENT;
 
     end
@@ -2258,7 +2258,7 @@ begin
   if j=0 then
     exit;
 
-  TTInstalled := ServiceExists(MS_TIPPER_SHOWTIP)<>0;
+  TTInstalled := ServiceExists(MS_TIPPER_SHOWTIP);
   // too lazy to move pattern and flags to thread
   if apattern<>nil then
   begin
-- 
cgit v1.2.3