I haven't tested it but the following MapBasic Code should have the desired
effect.
Include "mapbasic.def"
Include "icons.def"
Declare sub Main
Declare sub View_Selection
Sub Main
Create ButtonPad "View All" as
PushButton
HelpMsg "View Selection"
Calling View_Selection
Icon 203
end sub
sub View_Selection
onerror goto EndThisSub
Select * from Selection into ViewLayer
set map redraw off
Add Map Layer ViewLayer
Set map Zoom Entire Layer ViewLayer
Remove Map Layer ViewLayer Interactive
Set Map Redraw on
EndThisSub:
End Sub
Tim Chinchen (GIS Systems Developer)
I.T. Services Bournemouth Borough Council
Mailto:[EMAIL PROTECTED]
> -----Original Message-----
> From: Dick Hoskins [SMTP:[EMAIL PROTECTED]]
> Sent: Wednesday, December 01, 1999 12:17 PM
> To: [EMAIL PROTECTED]
> Subject: Re: MI Zooming in to a selection
>
> Summary concerning zooming to a selection:
>
> In MI itself QUERY>FIND SELCTION works but the result is sometimes not
> too
> useful. If you are at the wrong scale, indeed the selection will be found
> but you might not see it.
>
>
> Two mbx's I have been sent do much better.
>
> 1. Zoomselect puts an eye on the TOOLS floating menu bar. Once you have
> made
> a selection, choosing the eye will zoom in on the selection at a scale
> that
> will fit it (or all the selections) on the screen. Works very well.
>
> 2. Viewselection puts a menu item on the mapper menu, which can be seen
> by
> right clicking when the mapper is active and choosing "viewselection" The
> result is the same as Zoomselect.
>
> I did not find these in the MI program archive. Perhaps the authors have
> or
> will submit them.
>
> Dick Hoskins
> [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]
**********************************************************************
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the system manager.
This footnote also confirms that this email message has been swept by
MIMEsweeper for the presence of computer viruses.
www.bournemouth.gov.uk
**********************************************************************
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
