GefFontFormat.Strikethrough (property)

Gets and sets the strikethrough state of the font.
Syntax: Boolean = object.Strikethrough
object.Strikethrough = Boolean
Description: The Strikethrough property switches the font between normal and striked through.


Sub GefFontFormat_Strikethrough()
    Dim oCimObj As GefObject
    Dim oCimObjTxtFmt As GefTextFormat
    Dim oCimObjFntFmt As GefFontFormat
    Set oCimObj = CimGetObject
    Set oCimObjTxtFmt = oCimObj.TextFormat
    If Not oCimObjTxtFmt Is Nothing Then
        Set oCimObjFntFmt = oCimObjTxtFmt.Font
        If Not oCimObjFntFmt Is Nothing Then
            oCimObjFntFmt.Strikethrough = gefStateTrue
            CimGetScreen.Refresh False
        End If
    End If
End Sub