From ad5e21919ef2472bb3eba941f55ed1e0943057a6 Mon Sep 17 00:00:00 2001
From: George Hazan <ghazan@miranda.im>
Date: Mon, 28 Oct 2019 12:15:55 +0300
Subject: useless pascal header removed

---
 include/delphi/m_api.pas      |  1 -
 include/delphi/m_options.inc  |  8 +++++
 include/delphi/m_userinfo.inc | 78 -------------------------------------------
 3 files changed, 8 insertions(+), 79 deletions(-)
 delete mode 100644 include/delphi/m_userinfo.inc

(limited to 'include/delphi')

diff --git a/include/delphi/m_api.pas b/include/delphi/m_api.pas
index 1e3346a0a4..4194a23e96 100644
--- a/include/delphi/m_api.pas
+++ b/include/delphi/m_api.pas
@@ -238,7 +238,6 @@ var
   {$include m_ssl.inc}
   {$include statusmodes.inc}
   {$include m_timezones.inc}
-  {$include m_userinfo.inc}
   {$include m_utils.inc}
   {$include m_xstatus.inc}
   {$include m_zlib.inc}
diff --git a/include/delphi/m_options.inc b/include/delphi/m_options.inc
index e3663cd8e9..cae304bb51 100644
--- a/include/delphi/m_options.inc
+++ b/include/delphi/m_options.inc
@@ -49,6 +49,14 @@ const
     DLUs.
   }
 
+const
+{
+  show the User Details dialog box
+  wParam=(WPARAM)(HANDLE)hContact
+  lParam=0
+}
+  MS_USERINFO_SHOWDIALOG:PAnsiChar = 'UserInfo/ShowDialog';
+
 type
   POPTIONSDIALOGPAGE = ^TOPTIONSDIALOGPAGE;
   TOPTIONSDIALOGPAGE = record
diff --git a/include/delphi/m_userinfo.inc b/include/delphi/m_userinfo.inc
deleted file mode 100644
index d92f16f955..0000000000
--- a/include/delphi/m_userinfo.inc
+++ /dev/null
@@ -1,78 +0,0 @@
-{
-Miranda IM: the free IM client for Microsoft* Windows*
-
-Copyright 2000-2006 Miranda ICQ/IM project, 
-all portions of this codebase are copyrighted to the people 
-listed in contributors.txt.
-
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-}
-
-{$IFNDEF M_USERINFO}
-{$DEFINE M_USERINFO}
-
-{$include m_options.inc}
-
-const
-{
-  show the User Details dialog box
-  wParam=(WPARAM)(HANDLE)hContact
-  lParam=0
-}
-  MS_USERINFO_SHOWDIALOG:PAnsiChar = 'UserInfo/ShowDialog';
-
-{ UserInfo/Initialise      v0.1.2.0+
- The user opened a details dialog. Modules should do whatever initialisation
- they need and call userinfo/addpage one or more times if they want pages
- displayed in the options dialog
- wParam=addInfo
- lParam=(LPARAM)hContact
- addInfo should be passed straight to the wParam of userinfo/addpage
- NB: The built-in userinfo module is loaded after all plugins, so calling
- HookEvent() in your plugin's Load() function will fail if you specify this
- hook. Look up core/m_system.h:me_system_modulesloaded.
-}
-  ME_USERINFO_INITIALISE:PAnsiChar = 'UserInfo/Initialise';
-
-{ UserInfo/AddPage        v0.1.2.0+
- Must only be called during an userinfo/initialise hook
- Adds a page to the details dialog
- wParam=addInfo
- lParam=(LPARAM)(OPTIONSDIALOGPAGE*)odp
- addInfo must have come straight from the wParam of userinfo/initialise
- Pages in the details dialog operate just like pages in property sheets. See the
- Microsoft documentation for info on how they operate.
- When the pages receive WM_INITDIALOG, lParam=(LPARAM)hContact
- Strings in the structure can be released as soon as the service returns, but
- icons must be kept around. This is not a problem if you're loading them from a
- resource
- The 3 'group' elements in the structure are ignored, and will always be ignored
- Unlike the options dialog, the details dialog does not resize to fit its
- largest page. Details dialog pages should be 222x132 dlus.
- The details dialog (currently) has no Cancel button. I'm waiting to see if it's
- sensible to have one.
- Pages will be sent PSN_INFOCHANGED through WM_NOTIFY (idFrom=0) when a protocol
- ack is broadcast for the correct contact and with type=ACKTYPE_GETINFO.
- To help you out, PSN_INFOCHANGED will also be sent to each page just after it's
- created.
- All PSN_ WM_NOTIFY messages have PSHNOTIFY.lParam=(LPARAM)hContact
-}
-  PSN_INFOCHANGED  = 1;
-  PSN_PARAMCHANGED = 2;
-
-  PSM_FORCECHANGED = (WM_USER+100);   //force-send a PSN_INFOCHANGED to all pages
-  MS_USERINFO_ADDPAGE:PAnsiChar = 'UserInfo/AddPage';
-
-{$ENDIF}
-- 
cgit v1.2.3