CreateIndividualTheme Method
Description
Creates a new Individual Values Theme. After editing the Theme properties, use StoreTheme to save the Theme in a Named Object Library.
Syntax
Visual Basic |
---|
Public Function CreateIndividualTheme( _ ByVal formula As String, _ ByVal nValues As Integer _ ) As Integer |
Parameters
- formula
- The expression to use for matching values. See Property Expression Syntax for details.
- nValues
- The number of individual values in the Theme, in the range 1 to 16383.
Remarks
Example:
Consider a number of items in an SWD. The following code will create a red brush for the first item, a blue brush for the second item, this can be carried on up to a component index number of one less than the total number of theme components.
GisCreateIndividualTheme("_id&", 1)
GisSetStr(SIS_OT_THEMECOMPONENT, 0, "_brush$", "Red")
GisSetStr(SIS_OT_THEMECOMPONENT, 0, "_strValue$", "1")
GisSetStr(SIS_OT_THEMECOMPONENT, 1, "_brush$", "Blue")
GisSetStr(SIS_OT_THEMECOMPONENT, 1, "_strValue$", "2")
.
.
.
GisStoreTheme("MyTheme")
GisInsertOverlayTheme(0, "MyTheme", 0)
GisEnableOverlayTheme(0, 0, True)
Available: GEO D OM OD OV SISpy
Group:
Example
sis.CreateIndividualTheme ("Ppres91&<50", 256)