GefColorFormat.IndexColor (property)

Gets and sets the index of the IndexColors used, if the Type of the GefColorFormat is gefColorIndex.
Syntax: long = object.IndexColor
object.IndexColor = long
Description: When set, also sets the Type to gefColorIndex.

We can assign an index color to an object, by sepcifying the index used by color in RGB.dat, valid range for index is from 0 to 1023.


Sub GefColorFormat_IndexColor()
    Dim oCimObj As GefObject
    Dim oCimBtnFmt As GefButtonFormat
    Dim oCimColorFmt As GefColorFormat
    Set oCimObj = CimGetObject
    Set oCimBtnFmt = oCimObj.ButtonFormat
    If Not oCimBtnFmt Is Nothing Then
        Set oCimColorFmt = oCimBtnFmt.FaceColor
        If Not oCimColorFmt Is Nothing Then
            oCimColorFmt.IndexColor = 2 '2 is the index number
            CimGetScreen.Refresh False
        End If
    End If
End Sub