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/ExternalAPI/delphi/m_notify.inc | 183 --------------------------------
 1 file changed, 183 deletions(-)

(limited to 'plugins/ExternalAPI/delphi/m_notify.inc')

diff --git a/plugins/ExternalAPI/delphi/m_notify.inc b/plugins/ExternalAPI/delphi/m_notify.inc
index 6d269b0f99..2798ebbf31 100644
--- a/plugins/ExternalAPI/delphi/m_notify.inc
+++ b/plugins/ExternalAPI/delphi/m_notify.inc
@@ -64,188 +64,6 @@ const
 
 var
   notifyLink:PMNOTIFYLINK;
-(*
-function MNotifyRegister(name:PAnsiChar;icon:HICON):THANDLE;
-begin
-  if notifyLink<>nil then
-    result:=notifyLink^.Register(name,icon)
-  else
-    result:=0;
-end;
-function MNotifyCreate(atype:THANDLE):THANDLE;
-begin
-  if notifyLink<>nil then
-    result:=notifyLink^.Create(atype)
-  else
-    result:=0;
-end;
-function MNotifyIsValid(notify:THANDLE):int;
-begin
-  if notifyLink<>nil then
-    result:=notifyLink^.IsValid(notify)
-  else
-    result:=0;
-end;
-function MNotifySet(notifyORtype:THANDLE,name:PAnsiChar;val:TDBVARIANT):int;
-begin
-  if notifyLink<>nil then
-    result:=notifyLink^.Set(notifyORtype,name,val)
-  else
-    result:=0;
-end;
-function MNotifyGet(notifyORtype:THANDLE,name:PAnsiChar;val:PDBVARIANT):int;
-begin
-  if notifyLink<>nil then
-    result:=notifyLink^.Get(notifyORtype,name,val)
-  else
-    result:=0;
-end;
-function MNotifyAddAction(notifyORtype:THANDLE;icon:HICON;name:PAnsiChar;service:PAnsiChar=nil;cookie:dword=0):int;
-begin
-  if notifyLink<>nil then
-    result:=notifyLink^.AddAction(notifyORtype,icon,name)
-  else
-    result:=0;
-end;
-function MNotifyGetActions(notifyORtype:THANDLE;actions:PMNOTIFYACTIONINFO):int;
-begin
-  if notifyLink<>nil then
-    result:=notifyLink^.GetActions(notifyORtype,actions)
-  else
-    result:=0;
-end;
-function MNotifyAddRef(notify:THANDLE):int;
-begin
-  if notifyLink<>nil then
-    result:=notifyLink^.AddRef(notify)
-  else
-    result:=0;
-end;
-function MNotifyRelease(notify:THANDLE):int;
-begin
-  if notifyLink<>nil then
-    result:=notifyLink^.Release(notify)
-  else
-    result:=0;
-end;
-procedure MNotifyShow(notify:THANDLE);
-begin
-  if notifyLink<>nil then
-    notifyLink^.Show(notify)
-end;
-procedure MNotifyUpdate(notify:THANDLE);
-begin
-  if notifyLink<>nil then
-    notifyLink^.Update(notify)
-end;
-procedure MNotifyRemove(notify:THANDLE);
-begin
-  if notifyLink<>nil then
-    notifyLink^.Remove(notify)
-end;
-
-procedure MNotifyGetLink;
-begin
-  if PluginLink^.ServiceExists(MS_NOTIFY_GETLINK)<>0 then
-    notifyLink:=PMNOTIFYLINK(CallService(MS_NOTIFY_GETLINK,0,0))
-  else
-    notifyLink:=nil;
-end;
-
-// get helpers
-function MNotifyGetByte(notifyORtype:THANDLE;name:PAnsiChar;defValue:byte):byte;
-var
-  dbv:TDBVARIANT;
-begin
-  MNotifyGet(notifyORtype,name,dbv);
-  if dbv._type<>DBVT_BYTE then
-    result:=defValue
-  else
-    result:=dbv.bVal;
-end;
-function MNotifyGetWord(notifyORtype:THANDLE;name:PAnsiChar;defValue:word):word;
-var
-  dbv:TDBVARIANT;
-begin
-  MNotifyGet(notifyORtype,name,dbv);
-  if dbv._type<>DBVT_WORD then
-    result:=defValue
-  else
-   result:=dbv.wVal;
-end;
-function MNotifyGetDWord(notifyORtype:THANDLE;name:PAnsiChar;defValue:dword):dword;
-var
-  dbv:TDBVARIANT;
-begin
-  MNotifyGet(notifyORtype,name,dbv);
-  if dbv._type<>DBVT_DWORD then
-    result:=defValue
-  else
-    result:=dbv.dVal;
-end;
-function MNotifyGetString(notifyORtype:THANDLE;name:PAnsiChar;defValue:PAnsiChar):PAnsiChar;
-var
-  dbv:TDBVARIANT;
-begin
-  MNotifyGet(notifyORtype,name,dbv);
-  if dbv._type<>DBVT_ASCIIZ then
-    result:=defValue
-  else
-    result:=dbv.szVal.a;
-end;
-function MNotifyGetWString(notifyORtype:THANDLE;name:PAnsiChar;defValue:PWideChar):PWideChar;
-var
-  dbv:TDBVARIANT;
-begin
-  MNotifyGet(notifyORtype,name,dbv);
-  if dbv._type<>DBVT_WCHAR then
-    result:=defValue
-  else
-    result:=dbv.szVal.w;
-end;
-
-// set helpers
-procedure MNotifySetByte(notifyORtype:THANDLE;name:PAnsiChar;value:byte);
-var
-  dbv:TDBVARIANT;
-begin
-  dbv._type:=DBVT_BYTE;
-  dbv.bVal :=value;
-  MNotifySet(notifyORtype,name,dbv);
-end;
-procedure MNotifySetWord(notifyORtype:THANDLE;name:PAnsiChar;value:word);
-var
-  dbv:TDBVARIANT;
-begin
-  dbv._type:=DBVT_WORD;
-  dbv.wVal :=value;
-  MNotifySet(notifyORtype,name,dbv);
-end;
-procedure MNotifySetDWord(notifyORtype:THANDLE;name:PAnsiChar;value:dword);
-var
-  dbv:TDBVARIANT;
-begin
-  dbv._type:=DBVT_DWORD;
-  dbv.dVal :=value;
-  MNotifySet(notifyORtype,name,dbv);
-end;
-procedure MNotifySetString(notifyORtype:THANDLE;name:PAnsiChar;value:PAnsiChar);
-var
-  dbv:TDBVARIANT;
-begin
-  dbv._type  :=DBVT_ASCIIZ;
-  dbv.szVal.a:=value;
-  MNotifySet(notifyORtype,name,dbv);
-end;
-procedure MNotifySetWString(notifyORtype:THANDLE;name:PAnsiChar;value:PWideChar);
-var
-  dbv:TDBVARIANT;
-begin
-  dbv._type  :=DBVT_WCHAR;
-  dbv.szVal.w:=value;
-  MNotifySet(notifyORtype,name,dbv);
-end;
-*)
 
 const
 // Common options for Get/Set actions
@@ -260,6 +78,5 @@ const
   NFOPT_BACKCOLOR = 'General/BackColor';
   NFOPT_TEXTCOLOR = 'General/TextColor';
   NFOPT_TIMEOUT   = 'General/Timeout';
-//  NFOPT_ONDESTROY = 'General/OnDestroy';
 
 {$ENDIF}
-- 
cgit v1.2.3