Hello again, List
I've managed to get a thematic map going, for the first time (totally
new to me). But when I invoke its legend, I get a lousy
user-belligerent title and sub-title on it, to wit:
"csrThematicMap by COL2"
I've gone to a lot of trouble (see recent posts) to get meaningful names
from my columns, only to be done down by this. So I attempted to alter
the titles of the legend by code at bottom
1. I get an error "Set Shade - layer is not a thematic layer" on the
line labelled "ERROR 1", although there is no "set Shade" command
within spitting distance.
2. I have confirmed that the Function GET_THEM_LAYER_NAME() returns
"csrThematicMap" in the var. "lcLayerName"
3. I had fed "lcLayerName" to the "Set Legend Layer" clause, only to be
told by error message that "csrThematicMap" is not a thematic layer.
This is why I wrote the func. - to no avail
It seems whatever I do the I get batted from one conflicting error
message to the next. Could someone please guide me? Is there a special
"kid-gloves" way of treating them. Layers and their legends? (BTW this
is the first time I've used the Legend window - in the past only having
used Cartographic Legend windows)
'ppreciate it.
Terry McDonnell
'------------------------------------
Select * from csrTemp, BusZoneR
Where BusZoner.ZoneNumber = csrTemp.Zone
into csrThematicMap NoSelect
...
Add Map Layer csrThematicMap
Create Styles
From Brush
...
Into Variable aBrushStyles
Create Ranges
From csrThematicMap
...
Into Variable aRangeLimits
Shade csrThematicMap
With lcColAlias
Ranges From Variable aRangeLimits
Style Variable aBrushStyles
Open Window Legend
lcLayerName = GET_THEM_LAYER_NAME()
If lcLayerName <> "" then
Set Legend
Layer lcLayerName
Title "Analysis Profile: " + RTrim$( gaAPFiles( gnSelAPID))
'<----- ERROR 1
Subtitle "population Domain: " + lcColCapt
End If
Function GET_THEM_LAYER_NAME as String
' __________________________
Dim lnWindowID as Integer,
lnNumLayers, I as SmallInt,
lclayerName as String
lclayerName = ""
lnWindowID = WINDOWID( 1)
lnNumLayers = MAPPERINFO( lnWindowID, MAPPER_INFO_LAYERS
)
For I = 1 to lnNumLayers
If LAYERINFO( lnWindowID, I, LAYER_INFO_TYPE_THEMATIC) then
lclayerName = LAYERINFO( lnWindowID, I, LAYER_INFO_NAME)
EXIT FOR
End If
Next
GET_THEM_LAYER_NAME = lclayerName
End Function
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 18566
