Nick,
You will have to use MapBasic to achieve something like this. The program
shown below does what you were asking - though I have only tested it very
lightly. Note that re-zooming a window does not affect the zoom level in
the others - only the centering. However you could change the code to
achieve this if required. The 'bChasing' logical varible prevents the
handler from invoking itself which causes an error. To get this to work you
have to compile it using MapBasic and then run the compiled 'MBX'.
Include "mapbasic.def"
Declare Sub Main
Declare Sub WinChangedHandler
Global bChasing As Logical
Sub Main
End Sub
Sub WinChangedHandler
Dim i As SmallInt
Dim iCurrentWin As Integer
Dim iWindowID As Integer
If bChasing Then
Exit Sub
End If
bChasing = True
iCurrentWin = FrontWindow()
If WindowInfo(iCurrentWin, WIN_INFO_TYPE) = WIN_MAPPER Then
Set Coordsys Window iCurrentWin
For i = 1 To NumWindows()
iWindowID = WindowID(i)
If iWindowID <> iCurrentWin Then
If WindowInfo(i, WIN_INFO_TYPE) = WIN_MAPPER
Then
Set Map Window iWindowID
Center
(MapperInfo(iCurrentWin,MAPPER_INFO_CENTERX),
MapperInfo(iCurrentWin,MAPPER_INFO_CENTERY))
End If
End If
Next
End If
bChasing = False
End Sub
-----Original Message-----
From: Adnitt Nick [mailto:[EMAIL PROTECTED]]
Sent: 05 January 2000 16:36
To: '[EMAIL PROTECTED]'
Subject: MI 'Chasing' windows
Hi folks,
I have just bought the digitised (scanned) historic mapping of Southampton.
It consists of 4 'snapshots' through time starting at 1836.
If I want to show the same geographic area at four different times through
history I can show each table within a different MapInfo map window.
If I pan in one of the windows to move to a different area, I then have to
pan the other three windows by the same amount to show the same new area.
Is there a way to update the other three windows automatically with the same
geographic area as the 'master' window (view), so that the windows appear to
chase each other? (I hope this explains roughly what I mean!!).
cheers
Nick Adnitt - Business Analyst
Southampton City Council
Phone: 023 8083 3092
Fax: 023 8083 3338
Mobile: 07899 060732
E-mail: [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]
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
