Public Structure ANSIFONT_CHUNK
Public AFNT As AFNT_CHUNK
Public CHAR_CHUNKS As CHAR_CHUNK()
End Structure
Public Structure AFNT_CHUNK
Public MAIN As AFNT_MAIN
Public CHARS As AFNT_CHAR()
End Structure
Public Structure AFNT_MAIN
''' <summary>
''' Unique Font Identifier. GUID is being generated when a font is created and then
''' kept for the entire life-time of the font.
''' The ID is used as KEY value in any lists/collections of fonts, file name, including
''' preview images etc.
''' </summary>
''' <remarks>The GUID is stored in raw 32 characters long string format without any {}
''' or dashes ("-").
''' </remarks>
<VBFixedString(32)> Public ID As String
''' <summary>
''' A Custom Name/Label for the Font
''' </summary>
''' <remarks>
''' This is not a key, so it is not required to be unique in a collection of fonts.
''' </remarks>
<VBFixedString(25)> Public NAME As String
''' <summary>
''' Credits/Creator Name (Optional Information)
''' </summary>
''' <remarks></remarks>
<VBFixedString(35)> Public CREATEDBY As String
''' <summary>
''' Font Created Date/Time in String Format "YYYYMMDD-HHNNSS"
''' </summary>
''' <remarks></remarks>
<VBFixedString(15)> Public DATECREATED As String
''' <summary>
''' Last Modified Date/Time in String Format "YYYYMMDD-HHNNSS"
''' </summary>
''' <remarks></remarks>
<VBFixedString(15)> Public LASTCHANGED As String
''' <summary>
''' FONTTYPE Value derived from <seealso>eAnsiFontTypes</seealso> Enumeration.
''' 01 = ANSI, 02 = ASCII
''' </summary>
''' <remarks></remarks>
Public FONTTYPE As Byte
Public EMPTYLINEHEIGHT As Byte
Public LETTERSPACING As Byte
Public LINESPACING As Byte
Public SPACEWIDTH As Byte
Public BASELINEHEIGHT As Byte
''' <summary>
''' ALLCASE Value derived from <seealso>eLetterCase</seealso> Enumeration.
''' 00 = NotApplicable, 01 = UpperCase, 02 = LowerCase
''' </summary>
''' <remarks></remarks>
Public ALLCASE As Byte
''' <summary>
''' ALLOWOVERLAP Converted by BOOLEAN, only 00 and 01 are valid values.
''' </summary>
''' <remarks></remarks>
Public ALLOWOVERLAP As Byte
''' <summary>
''' UPPEREQLOWER Converted by BOOLEAN, only 00 and 01 are valid values.
''' </summary>
''' <remarks></remarks>
Public UPPEREQLOWER As Byte
<VBFixedString(13)> Public FILLER As String
End Structure
Public Structure AFNT_CHAR
Public DOSCHAR As Byte
Public DEFINED As Byte
Public MAXWIDTH As Byte
Public MAXHEIGHT As Byte
Public BLOCKSTART As System.Int32
End Structure
Public Structure CHAR_SMUSH
Public NEAR As System.Int32
Public FAR As System.Int32
End Structure
Public Structure CHAR_CHAR
Public CHARVALUE As Byte
Public FORECOLOR As Byte
Public BACKCOLOR As Byte
Public BLINKING As Byte
Public REVERSED As Byte
Public UNUSED1 As Byte
Public UNUSED2 As Byte
Public UNUSED3 As Byte
End Structure
Public Structure CHAR_CHUNK
Public DOSCHAR As Byte
Public CHARBLOCK As CHAR_CHAR()
Public SMUSHBLOCK As CHAR_SMUSH()
End Structure