Creates a new Individual Values Theme. After editing the Theme properties, use StoreTheme to save the Theme in a Named Object Library.
Visual Basic |
---|
Public Function CreateIndividualTheme( _ ByVal formula As String, _ ByVal nValues As Integer _ ) As Integer |
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 MM ME MD OM OD OV SISpy
Group:
sis.CreateIndividualTheme ("Ppres91&<50", 256)
Send comments on this topic.
Click to return to www.cadcorp.com
© Copyright 2000-2017 Computer Aided Development Corporation Limited (Cadcorp).