Hi List
I've solved this problem. Sorry about the atrocious spelling in the
orig. message - knocked it off like 2 mins before leaving last night.
Thanks to Warren, Lars and Jon for their input. FYI below I've included
the essence of the code.
Cheers
Terry
__________________________
If CommandInfo( CMD_INFO_DLG_OK) Then
lcSymbolStyle = STR$( lsSymbol)
lnLenExpr = LEN( lcSymbolStyle)
lcSymbolStyle = MID$( lcSymbolStyle, 7, lnLenExpr-6)
Select * from FacMast
where FacMast.Fac_Code = gaFacCodes( lnSelID)
Into csrThisFacCode
lsSymbolSave = CurrentSymbol()
lnSymbolKind = StyleAttr( lsSymbol, SYMBOL_KIND)
Do CASE lnSymbolKind
Case 1 ' MapInfo 3.0 symbols
lcCmd = "Set Style Symbol MakeSymbol " + lcSymbolStyle
Case 2 ' TrueType symbol
lcCmd = "Set Style Symbol MakeFontSymbol " +
lcSymbolStyle
Case 3 ' Custom Bitmap
lcCmd = "Set Style Symbol MakeCustomSymbol " +
lcSymbolStyle
End CASE
Run Command lcCmd
Update "Selection"
Set obj = CreatePoint( CentroidX( obj), CentroidY( obj))
Close Table Selection
Set Style Symbol lsSymbolSave ' restore the original "current
symbol style"
End If
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 16968
