Attribute VB_Name = "mFontTreat"
Option Explicit

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Módulo responsável por setar a fonte de objetos (PictureBox / Labels / Etc)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Seta a propriedade de fonte
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub SetFontType(obj As Object, Optional Charset As Byte)
    On Error Resume Next
    
    ' Seta propriedades no objeto
    obj.Font.Name = fn_Name
    obj.Font.Italic = fn_Italic
    obj.Font.Size = fn_Size
    obj.Font.Weight = fn_Weight
    obj.Font.Underline = fn_Underline
    obj.Font.Strikethrough = fn_Strikethru
    
    ' Sem charset específico
    If IsMissing(Charset) Then
        
        ' Usa o padrão
        obj.Font.Charset = fn_Charset
    Else
        
        ' Usa do parâmetro
        obj.Font.Charset = Charset
    End If
End Sub


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Seta a propriedade globais de fonte
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub SetGlobalFontType(obj As Object)
    On Error Resume Next
    
    ' Guarda propriedades do objeto
    fn_Name = obj.Font.Name
    fn_Italic = obj.Font.Italic
    fn_Size = obj.Font.Size
    fn_Weight = obj.Font.Weight
    fn_Underline = obj.Font.Underline
    fn_Strikethru = obj.Font.Strikethrough
    fn_Charset = obj.Font.Charset
End Sub