InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / ThemeFont Object
In This Topic
    ThemeFont Object
    In This Topic
    Font configuration properties for the current Theme.
    Example
    'This example creates and saves a theme. The theme is applied to the session.
    Public Sub CreateAndSaveTheme()
     
        'Declare and set a font object.
        Dim font As ThemeFont
        Set font = ThisTerminal.Theme.font
       
        'Declare and set a cursor object.
        Dim cursor As ThemeCursor
        Set cursor = ThisTerminal.Theme.cursor
        
        'Set AutofontSize to false to allow resizing of font.
        font.AutoFontSize = False
        font.FONTSIZE = 12
      
        'Change to a colored cursor with a faster blink rate and a vertical bar shape.
        cursor.Parent.DisplayEnhancements.ColorCursor = True
        cursor.CursorBlink = True
        cursor.CursorShape = CursorShapeOption_VerticalBar
       
        'Save the changes in a new theme to prevent InfoConnect from requesting to save the new theme.
        ThisTerminal.Theme.SaveAs (Environ$("USERPROFILE") & "\Documents\Micro Focus\InfoConnect\Themes\myNewTheme.themex")
           
    End Sub
    See Also