From 33abe40382ca512cca7a21da2abfa685ce98d65c Mon Sep 17 00:00:00 2001
From: George Hazan <ghazan@miranda.im>
Date: Wed, 27 Mar 2019 18:50:16 +0300
Subject: pascal code cleaning

---
 include/delphi/m_clist.inc    | 49 -------------------------------------------
 include/delphi/m_clistint.inc | 11 +---------
 2 files changed, 1 insertion(+), 59 deletions(-)

diff --git a/include/delphi/m_clist.inc b/include/delphi/m_clist.inc
index 9839f5569a..89eb9ebcbd 100644
--- a/include/delphi/m_clist.inc
+++ b/include/delphi/m_clist.inc
@@ -36,31 +36,7 @@ procedure Menu_ShowItem(hMenu:HGENMENU; bShow:BYTE); stdcall; external AppDll;
 const
   ME_CLIST_PREBUILDCONTACTMENU:PAnsiChar = 'CList/PreBuildContactMenu';
 
-type
-  PCLISTDOUBLECLICKACTION = ^TCLISTDOUBLECLICKACTION;
-  TCLISTDOUBLECLICKACTION = record
-    cbSize         : int;
-    pszContactOwner: PAnsiChar; // name of the protocol owning the contact or NULL(0) for all
-    flags          : dword;     // CMIF_NOT flags above
-    pszService     : PAnsiChar; // service to call on double click, is called with wParam=hContact, lParam=0
-  end;
-
 const
-  {
-    wParam : 0
-    lParam : Pointer to a initalised TCLISTDOUBLECLICKACTION structure
-    Affect : Sets the service to call when a contact is double-clicked, see notes
-    Returns: 0 on success, [non zero] on failure
-    Notes  : in case of conflicts, the first module to have registered
-             will get the double click, no others will, this service
-             will return success even for duplicates
-             -
-             This service was dropped from development during 0.3.0.0, it is no
-             longer supported, see ME_CLIST_DOUBLECLICKED
-    Version: 0.1.2.2+, 0.2.0+ ONLY (not 3.0a)
-  }
-  MS_CLIST_SETDOUBLECLICKACTION:PAnsiChar = 'CList/SetDoubleClickAction';
-
   {
     wParam : TMCONTACT
     lParam : <none>
@@ -71,31 +47,6 @@ const
   }
   ME_CLIST_DOUBLECLICKED:PAnsiChar = 'CList/DoubleClicked';
 
-type
-  PCLISTEVENT = ^TCLISTEVENT;
-  TCLISTEVENT = record
-    hContact  : TMCONTACT; // handle to the contact to put the icon by
-    flags     : dword;
-    hIcon     : HICON;     // icon to flash!
-    hDBEvent  : TMEVENT;   // caller defined, but should be unique for hContact
-                           // or pszProtocol:PAnsiChar
-    lParam    : LPARAM;
-    pszService: PAnsiChar; // name of service to call on activation
-    szTooltip : TChar;     // short description of the event to display as a tooltip on the systray
-  end;
-
-const
-  CLEF_URGENT         = 1; // flashes the icon even if the user is occupied, and puts
-                           // the event at the top of the queue
-  CLEF_ONLYAFEW       = 2; // icon will not flash forever, only a few times,
-                           // e.g. online alert
-  CLEF_UNICODE        = 4; // set pszTooltip as unicode
-  CLEF_PROTOCOLGLOBAL = 8; // set event globally for protocol, hContact has to
-                           // be NULL, lpszProtocol the protocol ID name to be set
-
-  IMAGE_GROUPOPEN = 11;
-  IMAGE_GROUPSHUT = 12;
-
   function Clist_GetImageList : HIMAGELIST; stdcall; external AppDll;
 
   {
diff --git a/include/delphi/m_clistint.inc b/include/delphi/m_clistint.inc
index 3ec038b04d..155a5ce77f 100644
--- a/include/delphi/m_clistint.inc
+++ b/include/delphi/m_clistint.inc
@@ -78,15 +78,6 @@ type
     sortFunc  : pointer;
   end;
 
-  PEventList = ^TEventList;
-  TEventList = record
-    items     : ^PCListEvent;
-    count     : int;
-    limit     : int;
-    increment : int;
-    sortFunc  : pointer;
-  end;
-
   pClcGroup = ^tClcGroup;
   tClcGroup = record
     cl           : tContactList;
@@ -357,7 +348,7 @@ type
   * version 2 - events processing
   *************************************************************************************)
 
-    events : PEventList;
+    bzzz : pointer;
 
     pfnAddEvent                        : procedure; cdecl;
     pfnGetEvent                        : procedure; cdecl;
-- 
cgit v1.2.3