| 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. Example: 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 |