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
---
 include/delphi/m_fontservice.inc | 39 +++++++++++++--------------------------
 1 file changed, 13 insertions(+), 26 deletions(-)

(limited to 'include/delphi/m_fontservice.inc')

diff --git a/include/delphi/m_fontservice.inc b/include/delphi/m_fontservice.inc
index bc4d74fe98..b93f7cf653 100644
--- a/include/delphi/m_fontservice.inc
+++ b/include/delphi/m_fontservice.inc
@@ -44,8 +44,8 @@ type
   TFontSettings_tag = record
     colour  : TCOLORREF;
     size    : ShortInt;
-    style   : BYTE; // see the DBFONTF_* flags above
-    charset : BYTE;
+    style   : byte; // see the DBFONTF_* flags above
+    charset : byte;
     szFace  : array[0..(LF_FACESIZE)-1] of AnsiChar;
   end;
   TFontSettings = TFontSettings_tag;
@@ -55,8 +55,8 @@ type
   TFontSettingsW_tag = record
     colour  : TCOLORREF;
     size    : ShortInt;
-    style   : BYTE; // see the DBFONTF_* flags above
-    charset : BYTE;
+    style   : byte; // see the DBFONTF_* flags above
+    charset : byte;
     szFace  : array[0..(LF_FACESIZE)-1] of WideChar;
   end;
   TFontSettingsW = TFontSettingsW_tag;
@@ -77,7 +77,7 @@ type
     // prepended to the settings used to store this font's data in the db
     prefix         : array[0..31] of AnsiChar;
     // bitwise OR of the FIDF_* flags above
-    flags          : DWORD;
+    flags          : dword;
     deffontsettings: TFontSettings; // defaults, if flags & FIDF_DEFAULTVALID
     // controls the order in the font group in which the fonts are listed in the
     // UI (if order fields are equal, they will be ordered alphabetically by name)
@@ -100,7 +100,7 @@ type
     // prepended to the settings used to store this font's data in the db
     prefix         : array[0..31] of AnsiChar;
     // bitwise OR of the FIDF_* flags above
-    flags          : DWORD;
+    flags          : dword;
     deffontsettings: TFontSettingsW; // defaults, if flags & FIDF_DEFAULTVALID
     // controls the order in the font group in which the fonts are listed in the
     // UI (if order fields are equal, they will be ordered alphabetically by name)
@@ -111,19 +111,6 @@ type
   TFontIDW = TFontIDW_tag;
   PFontIDW = ^TFontIDW;
 
-const
-  {$IFNDEF WIN64}
-  FontID_SIZEOF_V2  = 372;
-  FontID_SIZEOF_V2A = 372;
-  FontID_SIZEOF_V2U = 660;
-  FontIDW_SIZEOF_V2 = 660;
-  {$ELSE}
-  FontID_SIZEOF_V2  = SizeOf(TFontID);
-  FontID_SIZEOF_V2A = SizeOf(TFontID);
-  FontID_SIZEOF_V2U = SizeOf(TFontIDW);
-  FontIDW_SIZEOF_V2 = SizeOf(TFontIDW);
-  {$ENDIF}
-
 const
   { register a font }
   { wparam = pointer to FontID structure}
@@ -149,7 +136,7 @@ type
     name            : array[0..63] of AnsiChar;
     dbSettingsGroup : array[0..31] of AnsiChar;
     setting         : array[0..31] of AnsiChar;
-    flags           : DWORD;     // not used
+    flags           : dword;     // not used
     defcolour       : TCOLORREF; // default value
     order           : int;
   end;
@@ -163,7 +150,7 @@ type
     name            : array[0..63] of WideChar;
     dbSettingsGroup : array[0..31] of AnsiChar;
     setting         : array[0..31] of AnsiChar;
-    flags           : DWORD;     // not used
+    flags           : dword;     // not used
     defcolour       : TCOLORREF; // default value
     order           : int;
   end;
@@ -241,18 +228,18 @@ const
 // register an effect
 // wparam = (EffectID *)&effect_id
 // lparam = hLangpack
-  MS_EFFECT_REGISTERA:pAnsiChar = 'Effect/Register';
-  MS_EFFECT_REGISTERW:pAnsiChar = 'Effect/RegisterW';
+  MS_EFFECT_REGISTERA:PAnsiChar = 'Effect/Register';
+  MS_EFFECT_REGISTERW:PAnsiChar = 'Effect/RegisterW';
 
 // get a effect
 // wparam = (EffectID *)&effect_id (only name and group matter)
 // lparam = (FONTEFFECT *)&effect
 // rerturns 0, or -1 if not found
-  MS_EFFECT_GET :pAnsiChar = 'Effect/Get';
-  MS_EFFECT_GETW:pAnsiChar = 'Effect/GetW';
+  MS_EFFECT_GET :PAnsiChar = 'Effect/Get';
+  MS_EFFECT_GETW:PAnsiChar = 'Effect/GetW';
 
 // fired when a user modifies font settings, so reget your fonts and colours
 // wparam = lparam = 0
-  ME_EFFECT_RELOAD:pAnsiChar = 'Effect/Reload';
+  ME_EFFECT_RELOAD:PAnsiChar = 'Effect/Reload';
 
 {$ENDIF}
-- 
cgit v1.2.3