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

1 files changed, 76 insertions, 48 deletions

diff --git a/include/delphi/m_contacts.inc b/include/delphi/m_contacts.inc
index 4ea0d936c3..cef88c4b38 100644
--- a/include/delphi/m_contacts.inc
+++ b/include/delphi/m_contacts.inc
@@ -1,4 +1,4 @@
-(*

+{

 Miranda IM

 

 This program is free software; you can redistribute it and/or

@@ -14,71 +14,99 @@ 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_CONTACTS}

+{$DEFINE M_CONTACTS}

 type

-

-    PCONTACTINFO = ^TCONTACTINFO;

-	TCONTACTINFO = record

-		cbSize: int;

-		dwFlag: Byte;

-		hContact: THandle;

-		szProto: PChar;

-		type_: Byte;

-		retval: record (* in C this is a nameless union *)

-			case longint of

-            0: (bVal: Byte);

-            1: (wVal: WORD);

-            2: (dVal: DWORD);

-            3: (pszVal: PChar);

-            4: (cchVal: Word);

-			end;

-	end;

+  PCONTACTINFO = ^TCONTACTINFO;

+  TCONTACTINFO = record

+    cbSize  : int;

+    dwFlag  : Byte;

+    hContact: THandle;

+    szProto : PAnsiChar;

+    _type   : Byte;

+    retval: record // in C this is a nameless union

+      case longint of

+        0: (bVal  : Byte);

+        1: (wVal  : WORD);

+        2: (dVal  : DWORD);

+        3: (szVal : TChar);

+        4: (cchVal: Word);

+      end;

+  end;

 

 const

 

 // CNF_* Types of information you can retreive by setting the dwFlag in CONTACTINFO

 

-	CNF_FIRSTNAME	= 1;  // returns first name (string)

-	CNF_LASTNAME	= 2;  // returns last name (string)

-	CNF_NICK		= 3;  // returns nick name (string)

-	CNF_CUSTOMNICK	= 4;  // returns custom nick name, clist name (string)

-	CNF_EMAIL		= 5;  // returns email (string)

-	CNF_CITY		= 6;  // returns city (string)

-	CNF_STATE		= 7;  // returns state (string)

-	CNF_COUNTRY		= 8;  // returns country (string)

-	CNF_PHONE		= 9;  // returns phone (string)

-	CNF_HOMEPAGE	= 10; // returns homepage (string)

-	CNF_ABOUT		= 11; // returns about info (string)

-	CNF_GENDER		= 12; // returns gender (byte,'M','F' character)

-	CNF_AGE			= 13; // returns age (byte, 0==unspecified)

-	CNF_FIRSTLAST	= 14; // returns first name + last name (string)

-	CNF_UNIQUEID	= 15; // returns uniqueid, protocol username (must check type for type of return)

+  CNF_FIRSTNAME  = 1;  // returns first name (string)

+  CNF_LASTNAME   = 2;  // returns last name (string)

+  CNF_NICK       = 3;  // returns nick name (string)

+  CNF_CUSTOMNICK = 4;  // returns custom nick name, clist name (string)

+  CNF_EMAIL      = 5;  // returns email (string)

+  CNF_CITY       = 6;  // returns city (string)

+  CNF_STATE      = 7;  // returns state (string)

+  CNF_COUNTRY    = 8;  // returns country (string)

+  CNF_PHONE      = 9;  // returns phone (string)

+  CNF_HOMEPAGE   = 10; // returns homepage (string)

+  CNF_ABOUT      = 11; // returns about info (string)

+  CNF_GENDER     = 12; // returns gender (byte,'M','F' character)

+  CNF_AGE        = 13; // returns age (byte, 0==unspecified)

+  CNF_FIRSTLAST  = 14; // returns first name + last name (string)

+  CNF_UNIQUEID   = 15; // returns uniqueid, protocol username (must check type for type of return)

+  CNF_FAX        = 18; // returns fax (string)

+  CNF_CELLULAR   = 19; // returns cellular (string)

+  CNF_TIMEZONE   = 20; // returns timezone (string)

+  CNF_MYNOTES    = 21; // returns user specified notes (string)

+  CNF_BIRTHDAY   = 22; // returns birthday day of month (byte)

+  CNF_BIRTHMONTH = 23; // returns birthday month (byte)

+  CNF_BIRTHYEAR  = 24; // returns birthday year (word)

+  CNF_STREET     = 25; // returns street (string)

+  CNF_ZIP        = 26; // returns zip code (string)

+  CNF_LANGUAGE1  = 27; // returns language1 (string)

+  CNF_LANGUAGE2  = 28; // returns language2 (string)

+  CNF_LANGUAGE3  = 29; // returns language3 (string)

+  CNF_CONAME     = 30; // returns company name (string)

+  CNF_CODEPT     = 31; // returns company department (string)

+  CNF_COPOSITION = 32; // returns company position (string)

+  CNF_COSTREET   = 33; // returns company street (string)

+  CNF_COCITY     = 34; // returns company city (string)

+  CNF_COSTATE    = 35; // returns company state (string)

+  CNF_COZIP      = 36; // returns company zip code (string)

+  CNF_COCOUNTRY  = 37; // returns company country (string)

+  CNF_COHOMEPAGE = 38; // returns company homepage (string)

+  CNF_DISPLAYUID = 39; // returns uniqueid to display in interface (must check type for type of return)

 

 // Special types

 // Return the custom name using the name order setting

 // IMPORTANT: When using CNF_DISPLAY you MUST free the string returned

 // You must **NOT** do this from your version of free() you have to use Miranda's free()

 // you can get a function pointer to Miranda's free() via MS_SYSTEM_GET_MMI, see m_system.h

-	CNF_DISPLAY		= 16;

+  CNF_DISPLAY = 16;

 // Same as CNF_DISPLAY except the custom handle is not used

 // IMPORTANT: When using CNF_DISPLAYNC you MUST free the string returned

 // You must **NOT** do this from your version of free() you have to use Miranda's free()

 // you can get a function pointer to Miranda's free() via MS_SYSTEM_GET_MMI, see m_system.h

-	CNF_DISPLAYNC	= 17;

+  CNF_DISPLAYNC = 17;

+

+// Add this flag if you want to get the Unicode info

+  CNF_UNICODE = $80;

 

 // If MS_CONTACT_GETCONTACTINFO returns 0 (valid), then one of the following

 // types is setting telling you what type of info you received

-	CNFT_BYTE		= 1;

-	CNFT_WORD		= 2;

-	CNFT_DWORD		= 3;

-	CNFT_ASCIIZ		= 4;

+  CNFT_BYTE   = 1;

+  CNFT_WORD   = 2;

+  CNFT_DWORD  = 3;

+  CNFT_ASCIIZ = 4;

+

+  {

+    wParam : not used

+    lParam : Pointer to an initialised TCONTACTINFO structure

+    affects: Get contact information

+    returns: Zero on success, non zero on failure.

+    notes  : If successful, the type is set and the result is put into the associated member of TCONTACTINFO

+  }

+  MS_CONTACT_GETCONTACTINFO:PAnsiChar = 'Miranda/Contact/GetContactInfo';

 

-	{

-		wParam : not used

-		lParam : Pointer to an initialised TCONTACTINFO structure

-		affects: Get contact information

-		returns: Zero on success, non zero on failure.

-		notes  : If successful, the type is set and the result is put into the associated member of TCONTACTINFO

-	}

-	MS_CONTACT_GETCONTACTINFO	= 'Miranda/Contact/GetContactInfo';

+{$ENDIF}