GefFontFormat (object)

Represents the attributes of a
font.

Description:

Gets and sets the attributes of a font.

Example:

Sub GefFontFormat_Bold() 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.Bold
= gefStateTrue CimGetScreen.Refresh
False End
If End IfEnd Sub