From a411a7391bb879db8da398f067245a13c7fa7aee Mon Sep 17 00:00:00 2001 From: George Hazan Date: Wed, 25 Jul 2018 23:10:36 +0300 Subject: major code cleaning of all font-related structures --- include/delphi/m_fontservice.inc | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'include/delphi') diff --git a/include/delphi/m_fontservice.inc b/include/delphi/m_fontservice.inc index 4c6f5c09f4..1a906e596e 100644 --- a/include/delphi/m_fontservice.inc +++ b/include/delphi/m_fontservice.inc @@ -67,20 +67,12 @@ type // and getting one out again PFontID_tag = ^TFontID_tag; TFontID_tag = record - cbSize : int; - // [TRANSLATED-BY-CORE] group the font belongs to - this is the 'Font Group' list in the options page group : array[0..63] of AnsiChar; - // [TRANSLATED-BY-CORE] the name of the font setting e.g. 'contacts' in the 'contact list' group name : array[0..63] of AnsiChar; - // the 'module' in the database where the font data is stored dbSettingsGroup: array[0..31] of AnsiChar; - // 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; 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) order : int; backgroundGroup:array [0..63] of AnsiChar; backgroundName: array [0..63] of AnsiChar; @@ -90,20 +82,12 @@ type PFontIDW_tag = ^TFontIDW_tag; TFontIDW_tag = record - cbSize : int; - // [TRANSLATED-BY-CORE] group the font belongs to - this is the 'Font Group' list in the options page group : array[0..63] of WideChar; - // [TRANSLATED-BY-CORE] the name of the font setting e.g. 'contacts' in the 'contact list' group name : array[0..63] of WideChar; - // the 'module' in the database where the font data is stored dbSettingsGroup: array[0..31] of AnsiChar; - // 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; 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) order : int; backgroundGroup:array [0..63] of WideChar; backgroundName: array [0..63] of WideChar; @@ -121,7 +105,6 @@ function Font_Get(pGroup,pName:pAnsiChar; pFont:pLogFontA) : longint; stdcall; e type PColourID_tag = ^TColourID_tag; TColourID_tag = record - cbSize : int; group : array[0..63] of AnsiChar; name : array[0..63] of AnsiChar; dbSettingsGroup : array[0..31] of AnsiChar; @@ -135,7 +118,6 @@ type PColourIDW_tag = ^TColourIDW_tag; TColourIDW_tag = record - cbSize : int; group : array[0..63] of WideChar; name : array[0..63] of WideChar; dbSettingsGroup : array[0..31] of AnsiChar; -- cgit v1.2.3