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, 12 insertions, 12 deletions

diff --git a/include/delphi/m_protocols.inc b/include/delphi/m_protocols.inc
index fcea7499fd..b247c1ebcf 100644
--- a/include/delphi/m_protocols.inc
+++ b/include/delphi/m_protocols.inc
@@ -32,7 +32,7 @@
 type

   PCCSDATA = ^TCCSDATA;

   TCCSDATA = record

-    hContact      : MCONTACT;

+    hContact      : TMCONTACT;

     szProtoService: PAnsiChar;      // a PS_* constant

     wParam        : WPARAM;

     lParam        : LPARAM;

@@ -52,7 +52,7 @@ type
   TACKDATA = record

     cbSize  : int;

     szModule: PAnsiChar; // the name of the protocol module which initiated this ack

-    hContact: MCONTACT;

+    hContact: TMCONTACT;

     _type   : int;       // an ACKTYPE_* constant

     _result : int;       // an ACKRESULT_* constant

     hProcess: THANDLE;   // caller defined seq, I mean process code

@@ -123,7 +123,7 @@ type
   PPROTOFILETRANSFERSTATUS = ^TPROTOFILETRANSFERSTATUS;

   TPROTOFILETRANSFERSTATUS = record

     cbSize             : size_t;

-    hContact           : MCONTACT;

+    hContact           : TMCONTACT;

     flags              : dword;     // one of PFTS_* constants

     files              : ^TCHAR;

     totalFiles         : int;

@@ -268,8 +268,8 @@ type
     ppro            :PPROTO_INTERFACE; // pointer to the underlying object

 

     hwndAccMgrUI    :HWND;

-    bAccMgrUIChanged:Bool;

-	  bDynDisabled    :Bool;             // dynamic disable flag, is never written to db

+    bAccMgrUIChanged:bool;

+	  bDynDisabled    :bool;             // dynamic disable flag, is never written to db

   end;

   tagACCOUNT = TPROTOACCOUNT;

 

@@ -338,7 +338,7 @@ __inline PROTOACCOUNT* ProtoGetAccount( const AnsiChar* accName )
   gets the account associated with a contact

   wParam=(WPARAM)(HANDLE)hContact

   lParam=0

-  Returns a pAnsiChar pointing to the asciiz name of the protocol or NULL if the

+  Returns a PAnsiChar pointing to the asciiz name of the protocol or NULL if the

   contact has no protocol. There is no need to mir_free() it or anything.

   This is the name of the module that actually accesses the network for that contact.

 }

@@ -388,18 +388,18 @@ const
 type

   PPROTO_AVATAR_INFORMATIONW = ^TPROTO_AVATAR_INFORMATIONW;

   TPROTO_AVATAR_INFORMATIONW = record

-    cbSize  : int;      // sizeof()

-    hContact: MCONTACT; // this might have to be set by the caller too

-    format  : int;      // PA_FORMAT_*

+    cbSize  : int;       // sizeof()

+    hContact: TMCONTACT; // this might have to be set by the caller too

+    format  : int;       // PA_FORMAT_*

     // full path to filename which contains the avatar

     filename: array[0..(MAX_PATH)-1] of WideChar;

   end;

 

   PPROTO_AVATAR_INFORMATION = ^TPROTO_AVATAR_INFORMATION;

   TPROTO_AVATAR_INFORMATION = record

-    cbSize  : int;      // sizeof()

-    hContact: MCONTACT; // this might have to be set by the caller too

-    format  : int;      // PA_FORMAT_*

+    cbSize  : int;       // sizeof()

+    hContact: TMCONTACT; // this might have to be set by the caller too

+    format  : int;       // PA_FORMAT_*

     // full path to filename which contains the avatar

     filename: array[0..(MAX_PATH)-1] of AnsiChar;

   end;