Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Theme Object / Cursor Property
Example
In This Topic
    Cursor Property (Theme)
    In This Topic
    Gets the cursor object associated with the theme.
    Syntax
    expression.Cursor As ThemeCursor object 
    where expression is a variable that represents a Theme Object

    Property Value

    A ThemeCursor objectA ThemeCursor Object.
    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 Reflection from requesting to save the new theme.
        ThisTerminal.Theme.SaveAs (Environ$("USERPROFILE") & "\Documents\Micro Focus\Reflection\Themes\myNewTheme.themex")
           
    End Sub
    See Also