GefTextFormat.GetIntegerFormat (method)

Gets the format parameters being used for the TextExpression display.

Syntax:

Boolean = object.GetIntegerFormat ( ZeroFilled, Width )

Parameters:

ZeroFilled As VARIANT* -

Width As VARIANT* -

Description:

The GetIntegerFormat method gets the settings for the integer format. The parameters correspond to the fields in the Text property page.

Example:

Sub GefTextFormat_GetIntegerFormat()

Dim oCimObj As GefObject

    Dim oCimTxtFmt As
GefTextFormat

    Dim nZeroFilled As Variant
    Dim nWidth As Variant

    Set oCimObj = CimGetObject

    Set oCimTxtFmt =
oCimObj.TextFormat

oCimTxtFmt.TextExpression ="$Project.Devices"
CimGetScreen.Refresh False

    If
oCimTxtFmt.SetFormatToInteger(True, 4) = True Then

        MsgBox "The
value is now being displayed as an integer"

        If
oCimTxtFmt.GetIntegerFormat(nZeroFilled, nWidth) = True
Then

            If
nZeroFilled Then

                MsgBox
"The text is being displayed as a zero filled integer and a width
of " & nWidth

Else

                MsgBox
"The text is being displayed as an integer and a width of " &
nWidth

            End
If

        End
If

End If

End Sub