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

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}