Pascal-style type correction

Letter case correction
small fixes
Actman UA part dialog slightly changed

git-svn-id: http://svn.miranda-ng.org/main/trunk@8473 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 22 insertions, 17 deletions

diff --git a/include/delphi/m_metacontacts.inc b/include/delphi/m_metacontacts.inc
index 19d46d518a..4a82b0f129 100644
--- a/include/delphi/m_metacontacts.inc
+++ b/include/delphi/m_metacontacts.inc
@@ -1,19 +1,19 @@
 {

-  Miranda IM: the free IM client for Microsoft  Windows

-

+  Miranda IM: the free IM client for Microsoft  Windows 

+  

   Copyright © 2004 Universite Louis PASTEUR, STRASBOURG.

   Copyright © 2004 Scott Ellis (www.scottellis.com.au mail@scottellis.com.au)

-

+  

   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.

@@ -22,6 +22,10 @@
 {$DEFINE M_METACONTACTS}

 

 const

+// standard module for all mc-related information

+  META_PROTO = 'MetaContacts';

+

+const

   { gets the handle for the default contact

     wParam=(HANDLE)hMetaContact

     lParam=0

@@ -31,7 +35,7 @@ const
   { gets the contact number for the default contact

     wParam=(HANDLE)hMetaContact

     lParam=0

-    returns a DWORD contact number, or -1 on failure }

+    returns a dword contact number, or -1 on failure }

   MS_MC_GETDEFAULTCONTACTNUM = 'MetaContacts/GetDefaultNum';

 

   { gets the handle for the 'most online' contact

@@ -43,18 +47,18 @@ const
   { gets the number of subcontacts for a metacontact

     wParam=(HANDLE)hMetaContact

     lParam=0

-    returns a DWORD representing the number of subcontacts for the given metacontact }

+    returns a dword representing the number of subcontacts for the given metacontact }

   MS_MC_GETNUMCONTACTS = 'MetaContacts/GetNumContacts';

 

   { gets the handle of a subcontact, using the subcontact's number

     wParam=(HANDLE)hMetaContact

-    lParam=(DWORD)contact number

+    lParam=(dword)contact number

     returns a handle to the specified subcontact }

   MS_MC_GETSUBCONTACT = 'MetaContacts/GetSubContact';

 

   { sets the default contact, using the subcontact's contact number

     wParam=(HANDLE)hMetaContact

-    lParam=(DWORD)contact number

+    lParam=(dword)contact number

     returns 0 on success }

   MS_MC_SETDEFAULTCONTACTNUM = 'MetaContacts/SetDefault';

 

@@ -66,7 +70,7 @@ const
 

   { forces the metacontact to send using a specific subcontact, using the subcontact's contact number

     wParam=(HANDLE)hMetaContact

-    lParam=(DWORD)contact number

+    lParam=(dword)contact number

     returns 0 on success }

   MS_MC_FORCESENDCONTACTNUM = 'MetaContacts/ForceSendContact';

 

@@ -92,9 +96,9 @@ const
 

   { method to get state of 'force' for a metacontact

     wParam=(HANDLE)hMetaContact

-    lParam= (DWORD)&contact_number or NULL

+    lParam= (dword)&contact_number or NULL

     if lparam supplied, the contact_number of the contatct 'in force' will be copied to the address it points to,

-    or if none is in force, the value (DWORD)-1 will be copied

+    or if none is in force, the value INVALID_CONTACT_ID will be copied

     (v0.8.0.8+ returns 1 if 'force default' is true with *lParam == default contact number, else returns 0 with *lParam as above) }

   MS_MC_GETFORCESTATE = 'MetaContacts/GetForceState';

 

@@ -138,22 +142,23 @@ const
   }

   MS_MC_REMOVEFROMMETA = 'MetaContacts/RemoveFromMetacontact';

 

-const

-  META_PROTO = 'MetaContacts';

+

+/////////////////////////////////////////////////////////////////////////////////////////

+// binary interface to MC

 

 { returns true if a contact is a metacontact or false otherwise

 }

-function db_mc_isMeta(hContact:MCONTACT):Integer; stdcall;

+function db_mc_isMeta(hContact:TMCONTACT):int; stdcall;

                  external CoreDLL name 'db_mc_isMeta';

 

 { returns true if a contact is a subcontact or false otherwise

 }

-function db_mc_isSub(hContact:MCONTACT):Integer; stdcall;

+function db_mc_isSub(hContact:TMCONTACT):int; stdcall;

                  external CoreDLL name 'db_mc_isSub';

 

 { returns a meta contact for a subcontact or 0 otherwise

 }

-function db_mc_getMeta(hContact:MCONTACT):MCONTACT; stdcall;

+function db_mc_getMeta(hContact:TMCONTACT):TMCONTACT; stdcall;

                  external CoreDLL name 'db_mc_getMeta';

 

 {$ENDIF}