GFSkinEngine/Fontcls.cls

VERSION 1.0 CLASS
BEGIN
  MultiUse = ‑1 'True
END
Attribute VB_Name = "Fontcls"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'(c)2001 by Louis. Can be used in other projects, too (original source: SkinEngine).
Dim FontName As String
Dim FontSize As Single
Dim FontBoldFlag As Boolean
Dim FontItalicFlag As Boolean
Dim FontUnderlineFlag As Boolean
Dim FontStrikeThroughFlag As Boolean

Public Property Let Name(ByVal FontNamePassed As String)
    'on error resume next
    FontName = FontNamePassed
End Property

Public Property Set Name() As String
    'on error resume next
    Name = FontName
End Property

Public Property Let Size(ByVal FontSizePassed As Single)
    'on error resume next
    FontSize = FontSizePassed
End Property

Public Property Set Size() As Single
    'on error resume next
    Size = FontSize
End Property

Public Property Let Bold(ByVal FontBoldFlagPassed As Boolean)
    'on error resume next
    FontBoldFlag = FontBoldFlagPassed
End Property

Public Property Set Bold() As Boolean
    'on error resume next
    Bold = FontBoldFlag
End Property

Public Property Let Italic(ByVal FontItalicFlagPassed As Boolean)
    'on error resume next
    FontItalicFlag = FontItalicFlagPassed
End Property

Public Property Set Italic() As Boolean
    'on error resume next
    Italic = FontItalicFlag
End Property

Public Property Let Underline(ByVal FontUnderlineFlagPassed As Boolean)
    'on error resume next
    FontUnderlineFlag = FontUnderlineFlagPassed
End Property

Public Property Set Underline() As Boolean
    'on error resume next
    Underline = FontUnderlineFlag
End Property

Public Property Let StrikeThrough(ByVal FontStrikeThroughFlagPassed As Boolean)
    'on error resume next
    FontStrikeThroughFlag = FontStrikeThroughFlagPassed
End Property

Public Property Set StrikeThrough() As Boolean
    'on error resume next
    StrikeThrough = FontStrikeThroughFlag
End Property


[END OF FILE]