Hello:
I am trying to alter a symbol style in a for loop.
Here's the relevant MB:
dim NewSymbol as symbol
dim objSelection as object
set table newTab fastedit on
for i = 1 to TableInfo(newTab, TAB_INFO_NROWS)
select * from newTab into selSingleRec where RowId = i
'
'multiple criteria to set the symbol style parameters
'
NewSymbol =
MakeFontSymbol(nShape,nColor,14,"MapInfoSymbols",nFontStyle,0)
set style symbol NewSymbol
NewSymbol = CurrentSymbol()
objSelection = selSingleRec.obj
alter object objSelection Info OBJ_INFO_SYMBOL, NewSymbol
update selSingleRec set obj = objSelection where rowid = i
commit table newTab
next
I drummed up some old messsages to the list, to use as examples but couldn't
get them to work.
Any help is appreciated.
-John
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
