From 65e002b63efdb00571d0ba4ec1a73b14e1d7d3a0 Mon Sep 17 00:00:00 2001 From: Alexey Kulakov Date: Wed, 4 Jul 2012 20:10:29 +0000 Subject: Pascal headers moved to include\delphi directory (with small updates) removed deprecated m_mwclc.h file and link on it in AutoShutdown plugin git-svn-id: http://svn.miranda-ng.org/main/trunk@763 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- include/delphi/m_addcontact.inc | 43 ++++++++++++++++++----------------------- 1 file changed, 19 insertions(+), 24 deletions(-) (limited to 'include/delphi/m_addcontact.inc') diff --git a/include/delphi/m_addcontact.inc b/include/delphi/m_addcontact.inc index 6bf08e8208..ce74841d7e 100644 --- a/include/delphi/m_addcontact.inc +++ b/include/delphi/m_addcontact.inc @@ -1,5 +1,4 @@ -(* - +{ Miranda IM: the free IM client for Microsoft* Windows* Copyright 2000-2003 Miranda ICQ/IM project, @@ -19,36 +18,32 @@ 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_ADDCONTACT} {$DEFINE M_ADDCONTACT} const - - HANDLE_SEARCHRESULT = 0; - HANDLE_EVENT = 1; - HANDLE_CONTACT = 2; + HANDLE_SEARCHRESULT = 0; + HANDLE_EVENT = 1; + HANDLE_CONTACT = 2; type - - PADDCONTACTSTRUCT = ^TADDCONTACTSTRUCT; - TADDCONTACTSTRUCT = record - handleType: Integer; - handle: THandle; // HDBEVENT, HCONTACT, SearchResult - szProto: PChar; // used by search result only - psr: Pointer; // @PROTOSEARCHRESULT - end; + PADDCONTACTSTRUCT = ^TADDCONTACTSTRUCT; + TADDCONTACTSTRUCT = record + handleType: Int; + handle : THandle; // HDBEVENT, HCONTACT, SearchResult + szProto : PAnsiChar; // used by search result only + psr : Pointer; // @PROTOSEARCHRESULT + end; const - - { - wParam : (HWND) Parent window of the dialog that will be presented - lParam : Pointer to an initialised TADDCONTACTSTRUCT - Affect : Open's the add contact dialog - Version: 0.1.2.2+ - } - MS_ADDCONTACT_SHOW = 'AddContact/Show'; + { + wParam : (HWND) Parent window of the dialog that will be presented + lParam : Pointer to an initialised TADDCONTACTSTRUCT + Affect : Open's the add contact dialog + Version: 0.1.2.2+ + } + MS_ADDCONTACT_SHOW:PAnsiChar = 'AddContact/Show'; {$ENDIF} -- cgit v1.2.3