GefObject.ForegroundFill (read-only property)

Gets the GefFillFormat for the object that is used for static filling of the object.
Syntax: Set GefFillFormat = object.ForegroundFill
Description: This static filling capability of an object is not exposed by the CimEdit user interface. If there is fill animation on the object, it overrides the static filling. This static filling can be controlled at runtime using scripting, thereby allowing you to implement fill animation from a script rather than using the FillAnim property.

Returns Nothing if this property is not valid for the object.


Sub GefObject_ForegroundFill()
    Dim oCimObj As GefObject
    Dim oCimFillFmt As GefFillFormat
    Set oCimObj = CimGetObject
    Set oCimFillFmt = oCimObj.ForegroundFill
    If Not oCimFillFmt Is Nothing Then
        oCimFillFmt.ForeColor.RGB = &HBB& 'red
        CimGetScreen.Refresh False
        MsgBox "The foreground fill property does not " & _
            "apply to this object"
    End If
End Sub