From d83baeb842ea828eaee90a0cd6575872a95240e8 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Sat, 8 Mar 2014 13:10:05 +0000
Subject: 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
---
 plugins/ExternalAPI/delphi/m_smileyadd.inc | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'plugins/ExternalAPI/delphi/m_smileyadd.inc')

diff --git a/plugins/ExternalAPI/delphi/m_smileyadd.inc b/plugins/ExternalAPI/delphi/m_smileyadd.inc
index a620b1219a..0cc064ea8f 100644
--- a/plugins/ExternalAPI/delphi/m_smileyadd.inc
+++ b/plugins/ExternalAPI/delphi/m_smileyadd.inc
@@ -40,8 +40,8 @@ type
        // if you prefer those icons.
        // If not found or NULL, "Standard" will be used
     flags              :uint;       // Flags (SAFLRE_*) that define the behaivior
-    disableRedraw      :BOOL;       // Parameter have been depricated, have no effect on operation
-    hContact           :MCONTACT;   // Contact handle
+    disableRedraw      :bool;       // Parameter have been depricated, have no effect on operation
+    hContact           :TMCONTACT;  // Contact handle
   end;
 
 {
@@ -71,7 +71,7 @@ type
     targetWParam : LPARAM;    // Target WParam to be sent (LParam will be PAnsiChar to
                               // select smiley) see the example file.
     hwndParent   : HWND;      // Parent window for smiley dialog
-    hContact     : MCONTACT;  // Contact handle
+    hContact     : TMCONTACT; // Contact handle
   end;
 
 {
@@ -98,7 +98,7 @@ type
      // do not destroy! NULL if the buttonicon is not defined...
     NumberOfVisibleSmileys: int;       // Number of visible smileys defined.
     NumberOfSmileys       : int;       // Number of total smileys defined
-    hContact              : MCONTACT;  //Contact handle
+    hContact              : TMCONTACT; //Contact handle
   end;
 
 const
@@ -129,7 +129,7 @@ type
     numSmileys  :uint;      // Number of Smileys found, this parameter filled by SmileyAdd
     oflag       :uint;      // One of the SAFL_ flags specifies content of the parse results
                             // this parameter filled by SmileyAdd
-    hContact    :MCONTACT;  // Contact handle
+    hContact    :TMCONTACT; // Contact handle
   end;
 
 type
@@ -217,16 +217,16 @@ type
   TFVCNDATA_NMHDR = record
     //NMHDR structure
     hwndFrom     :HWND;     // Window of smiley host
-    idFrom       :UINT_PTR; // ignored
-    code         :UINT;     // NM_FIREVIEWCHANGE
+    idFrom       :uint_ptr; // ignored
+    code         :uint;     // NM_FIREVIEWCHANGE
     
     cbSize       :size_t;
-    bEvent       :Byte;     // FVCN_ value - pre- or post- painting
-    bAction      :Byte;     // FVCA_ keys
+    bEvent       :byte;     // FVCN_ value - pre- or post- painting
+    bAction      :byte;     // FVCA_ keys
     hDC          :HDC;      // Canvas to draw on
     rcRect       :TRECT;    // Valid/should be in case of FVCA_DRAW
     clrBackground:COLORREF; // color to fill background if fTransparent is not set
-    fTransparent :BOOL;     // if need to fill back color (not supported)
+    fTransparent :bool;     // if need to fill back color (not supported)
     lParam       :LPARAM;   // used by host window PreFire and PostFire event
   end;
 
@@ -235,11 +235,11 @@ const
   NM_FIREVIEWCHANGE =  NM_FIRST+1;
 
 type
-  SMADD_CONT = record
+  TSMADD_CONT = record
     cbSize  :uint;
-    hContact:MCONTACT;
-    _type   :int;      // 0 - directory, 1 - file;
-    path    :TChar;    // smiley category name for reference
+    hContact:TMCONTACT;
+    _type   :int;       // 0 - directory, 1 - file;
+    path    :TChar;     // smiley category name for reference
   end;
 const
 //Loads all smileys for the contact
@@ -247,4 +247,4 @@ const
 //lParam = (LPARAM) (SMADD_CONT*) &dir;  // pointer to directory to load smiley from
   MS_SMILEYADD_LOADCONTACTSMILEYS:PAnsiChar = 'SmileyAdd/LoadContactSmileys';
 
-{$ENDIF}
\ No newline at end of file
+{$ENDIF}
-- 
cgit v1.2.3