Below is a little tool we made for zoom to selction - which adds the
function to the right mouse button.
declare sub zoom2sel
DECLARE SUB MAIN
dim i as integer
Include "c:\mapinfo\ftputilities\MAPBASIC.DEF"
SUB MAIN ()
''''Puts Procedure into Right Click
Alter Menu ID 17 Add
"Zoom to Selected"
Calling zoom2sel
end sub
sub zoom2sel ()
set map redraw off
i= SelectionInfo(SEL_INFO_NROWS)
if
i < 1
then
note "Selection set is empty!"
else
Add Map Layer Selection
Set Map Layer 1 Display Graphic Editable Off Selectable On Global Line
(1,2,0) Global Pen (1,2,0) Global Brush (2,16777215,16777215) Global
Symbol (35,12632256,12) Global Font ("Arial",0,9,0) Zoom (0, 100000)
Units "mi" Off Label Line Arrow Position Right Font ("Arial",0,9,0) Pen
(1,2,0)
set map redraw on
Set Map Window FrontWindow() Zoom Entire Layer 1
set map redraw off
Remove Map Layer 1 Interactive
set map redraw on
end if
end sub
--
____________________________________
GroundControl GeoTechnologies Inc.
Information Management through Maps
Suite 500 1045 Howe Street
Vancouver, British Columbia
Canada, V6Z 2A9
voice: (604) 519.6277
fax: (604) 684.5909
web: http://www.groundcontrol.ca
email: [EMAIL PROTECTED]
____________________________________
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
