MapInfo Pro Developers User Group

• Fit Map to New Window
• Preserve Current Scale

Sub ReScaleMaps(ByVal tnNewWin As Integer, ByVal tnWinExist As Integer, toFrame As Object, tcMapUnit As String, tnScale As Float, ByVal x1 As Float, ByVal y1 As Float, ByVal x2 As Float, ByVal y2 As Float) 

	OnError Goto DisplayError

	Set Window tnWinExist 
		Width (3.0 * (x2 - x1) / 3.0)
		Height (3.0 * (y2 - y1) / 3.0)

	Dim lnFrameWidth As Float
	Dim lnMapZoom As Float

	' If mapunits different from existing change current one
	If MapperInfo(tnWinExist, MAPPER_INFO_DISTUNITS) <> tcMapUnit Then
		Set Map Window tnWinExist Distance Units tcMapUnit 
	End If

	' Calculate new Zoom
	' framewidth is value in inch
	lnFrameWidth = ObjectGeography(toFrame, OBJ_GEO_MAXX) - ObjectGeography(toFrame, OBJ_GEO_MINX)

	lnMapZoom = lnFrameWidth * tnScale

	' Set Map Width to achieve desired scale
	Set Map Window tnWinExist Zoom lnMapZoom Units tcMapUnit

	Set Map Scale 1 Units "in" for tnScale Units "ft" 

	Set Window tnNewWin
		Position (1, 1)
		Width (3.0 * (x2 - x1) / 3.0)
		Height (3.0 * (y2 - y1) / 3.0)

	Set Layout
		Window tnNewWin
		Zoom To Fit

	Exit Sub

	DisplayError:
		Note "Error " + Error$()
		Exit Sub

End Sub

'***********************************'
​

OnError Goto DisplayError

	Dim lnWinExist As Integer	
	lnWinExist = GetMapWindowID()
	If (lnWinExist = 0) Then
		Exit Sub
	End If

	Set Window lnWinExist Front

	If Not PrerequisitesCheck() Then
		Exit Sub
	End If

        Dim lcFormat As String
	Dim loFrame As Object
	Dim lnScale As Float
	Dim lcMapUnit As String

	lcFormat = "8.5"" x 11"""
	lcMapUnit = "ft"
	lnScale = (MapperInfo(lnWinExist, MAPPER_INFO_SCALE) * 5280.0)

	Set Event Processing Off
	Set CoordSys Layout Units "in"

	Dim loCenter As Object
	Dim lcProperty As String

	Call GetTargetPropertyWithType(loCenter, lcProperty)

	Dim lnNewWin As Integer

	' 8 x 11 Pyyyyyy
	Run Application "J:\GeoApps\MapLayouts\8X11P\Preliminary.wor"

	lnNewWin = FrontWindow()

	Set Layout Window lnNewWin Frame Contents Off

	loFrame = StampMapWindow(lnNewWin, lnWinExist, lcFormat, 0.7479, 1.1167, 7.7417, 8.2007)

	Call ReScaleMaps(lnNewWin, lnWinExist, loFrame, lcMapUnit, lnScale, 0.7479, 1.1167, 7.7417, 8.2007)

	Call StampJobNumber(lnNewWin, 0.7535, 10.3701)

	Call StampSiteInfo(loCenter, lnNewWin, 3.4646, 8.2382, 0, False)
	Call StampNorthArrow(lnNewWin, 6.9375, 8.7000)
	Call StampScale(lnNewWin, lnWinExist, lnScale, 6.0965, 9.3625)

	Call StampSymbols(lnNewWin, 0.8653, 8.3090, 9.0, lcProperty, False) 
	
	Set Window FrontWindow() Printer
		Name "Adobe PDF" Orientation Portrait Copies 1
		Papersize 1

	Set CoordSys Earth Projection 1, 74

	Call ReCenterMap(lnWinExist, loCenter)

	Set Window FrontWindow() Title "Preliminary" + MAPEXTENSION

	' Redraw the Layout window, when necessary, to reflect changes in the client window(s)
	Set Event Processing On
 	Set Layout Window lnNewWin Frame Contents On

	If (tlResize) Then
		Set Map Window lnWinExist Zoom Entire Layer Boundaries
		Update Window lnWinExist
	End If

	Update Window lnNewWin 

	Exit Sub

	DisplayError:

		Note "Error " + Error$()
		Exit Sub

End Sub
​

• Fit Map to New Window
• Preserve Current Scale

Hi Michel

There is a major difference between MapInfo Pro v12.5 and MapInfo Pro v2019: In the layout, the frame with the map doesn't link back to an existing map, it contains the map.

This means that once you have inserted a map into a frame in your layout, you need to access this map in order to change it, say it's zoom and center.

Here's a very basic example of how you can create a layout, add an empty frame and then fill that frame with an existing map window. Afterwards, you get the ID of the map in the frame and can modify the map using Set Map.

Sub ReScaleMaps(ByVal tnNewWin As Integer, ByVal tnWinExist As Integer, toFrame As Object, tcMapUnit As String, tnScale As Float, ByVal x1 As Float, ByVal y1 As Float, ByVal x2 As Float, ByVal y2 As Float) 

	OnError Goto DisplayError

	Set Window tnWinExist 
		Width (3.0 * (x2 - x1) / 3.0)
		Height (3.0 * (y2 - y1) / 3.0)

	Dim lnFrameWidth As Float
	Dim lnMapZoom As Float

	' If mapunits different from existing change current one
	If MapperInfo(tnWinExist, MAPPER_INFO_DISTUNITS) <> tcMapUnit Then
		Set Map Window tnWinExist Distance Units tcMapUnit 
	End If

	' Calculate new Zoom
	' framewidth is value in inch
	lnFrameWidth = ObjectGeography(toFrame, OBJ_GEO_MAXX) - ObjectGeography(toFrame, OBJ_GEO_MINX)

	lnMapZoom = lnFrameWidth * tnScale

	' Set Map Width to achieve desired scale
	Set Map Window tnWinExist Zoom lnMapZoom Units tcMapUnit

	Set Map Scale 1 Units "in" for tnScale Units "ft" 

	Set Window tnNewWin
		Position (1, 1)
		Width (3.0 * (x2 - x1) / 3.0)
		Height (3.0 * (y2 - y1) / 3.0)

	Set Layout
		Window tnNewWin
		Zoom To Fit

	Exit Sub

	DisplayError:
		Note "Error " + Error$()
		Exit Sub

End Sub

'***********************************'
​

OnError Goto DisplayError

	Dim lnWinExist As Integer	
	lnWinExist = GetMapWindowID()
	If (lnWinExist = 0) Then
		Exit Sub
	End If

	Set Window lnWinExist Front

	If Not PrerequisitesCheck() Then
		Exit Sub
	End If

        Dim lcFormat As String
	Dim loFrame As Object
	Dim lnScale As Float
	Dim lcMapUnit As String

	lcFormat = "8.5"" x 11"""
	lcMapUnit = "ft"
	lnScale = (MapperInfo(lnWinExist, MAPPER_INFO_SCALE) * 5280.0)

	Set Event Processing Off
	Set CoordSys Layout Units "in"

	Dim loCenter As Object
	Dim lcProperty As String

	Call GetTargetPropertyWithType(loCenter, lcProperty)

	Dim lnNewWin As Integer

	' 8 x 11 Pyyyyyy
	Run Application "J:\GeoApps\MapLayouts\8X11P\Preliminary.wor"

	lnNewWin = FrontWindow()

	Set Layout Window lnNewWin Frame Contents Off

	loFrame = StampMapWindow(lnNewWin, lnWinExist, lcFormat, 0.7479, 1.1167, 7.7417, 8.2007)

	Call ReScaleMaps(lnNewWin, lnWinExist, loFrame, lcMapUnit, lnScale, 0.7479, 1.1167, 7.7417, 8.2007)

	Call StampJobNumber(lnNewWin, 0.7535, 10.3701)

	Call StampSiteInfo(loCenter, lnNewWin, 3.4646, 8.2382, 0, False)
	Call StampNorthArrow(lnNewWin, 6.9375, 8.7000)
	Call StampScale(lnNewWin, lnWinExist, lnScale, 6.0965, 9.3625)

	Call StampSymbols(lnNewWin, 0.8653, 8.3090, 9.0, lcProperty, False) 
	
	Set Window FrontWindow() Printer
		Name "Adobe PDF" Orientation Portrait Copies 1
		Papersize 1

	Set CoordSys Earth Projection 1, 74

	Call ReCenterMap(lnWinExist, loCenter)

	Set Window FrontWindow() Title "Preliminary" + MAPEXTENSION

	' Redraw the Layout window, when necessary, to reflect changes in the client window(s)
	Set Event Processing On
 	Set Layout Window lnNewWin Frame Contents On

	If (tlResize) Then
		Set Map Window lnWinExist Zoom Entire Layer Boundaries
		Update Window lnWinExist
	End If

	Update Window lnNewWin 

	Exit Sub

	DisplayError:

		Note "Error " + Error$()
		Exit Sub

End Sub
​

• Fit Map to New Window
• Preserve Current Scale

Hi Michel

There is a major difference between MapInfo Pro v12.5 and MapInfo Pro v2019: In the layout, the frame with the map doesn't link back to an existing map, it contains the map.

This means that once you have inserted a map into a frame in your layout, you need to access this map in order to change it, say it's zoom and center.

Here's a very basic example of how you can create a layout, add an empty frame and then fill that frame with an existing map window. Afterwards, you get the ID of the map in the frame and can modify the map using Set Map.

Sub ReScaleMaps(ByVal tnNewWin As Integer, ByVal tnWinExist As Integer, toFrame As Object, tcMapUnit As String, tnScale As Float, ByVal x1 As Float, ByVal y1 As Float, ByVal x2 As Float, ByVal y2 As Float) 

	OnError Goto DisplayError

	Set Window tnWinExist 
		Width (3.0 * (x2 - x1) / 3.0)
		Height (3.0 * (y2 - y1) / 3.0)

	Dim lnFrameWidth As Float
	Dim lnMapZoom As Float

	' If mapunits different from existing change current one
	If MapperInfo(tnWinExist, MAPPER_INFO_DISTUNITS) <> tcMapUnit Then
		Set Map Window tnWinExist Distance Units tcMapUnit 
	End If

	' Calculate new Zoom
	' framewidth is value in inch
	lnFrameWidth = ObjectGeography(toFrame, OBJ_GEO_MAXX) - ObjectGeography(toFrame, OBJ_GEO_MINX)

	lnMapZoom = lnFrameWidth * tnScale

	' Set Map Width to achieve desired scale
	Set Map Window tnWinExist Zoom lnMapZoom Units tcMapUnit

	Set Map Scale 1 Units "in" for tnScale Units "ft" 

	Set Window tnNewWin
		Position (1, 1)
		Width (3.0 * (x2 - x1) / 3.0)
		Height (3.0 * (y2 - y1) / 3.0)

	Set Layout
		Window tnNewWin
		Zoom To Fit

	Exit Sub

	DisplayError:
		Note "Error " + Error$()
		Exit Sub

End Sub

'***********************************'
​

OnError Goto DisplayError

	Dim lnWinExist As Integer	
	lnWinExist = GetMapWindowID()
	If (lnWinExist = 0) Then
		Exit Sub
	End If

	Set Window lnWinExist Front

	If Not PrerequisitesCheck() Then
		Exit Sub
	End If

        Dim lcFormat As String
	Dim loFrame As Object
	Dim lnScale As Float
	Dim lcMapUnit As String

	lcFormat = "8.5"" x 11"""
	lcMapUnit = "ft"
	lnScale = (MapperInfo(lnWinExist, MAPPER_INFO_SCALE) * 5280.0)

	Set Event Processing Off
	Set CoordSys Layout Units "in"

	Dim loCenter As Object
	Dim lcProperty As String

	Call GetTargetPropertyWithType(loCenter, lcProperty)

	Dim lnNewWin As Integer

	' 8 x 11 Pyyyyyy
	Run Application "J:\GeoApps\MapLayouts\8X11P\Preliminary.wor"

	lnNewWin = FrontWindow()

	Set Layout Window lnNewWin Frame Contents Off

	loFrame = StampMapWindow(lnNewWin, lnWinExist, lcFormat, 0.7479, 1.1167, 7.7417, 8.2007)

	Call ReScaleMaps(lnNewWin, lnWinExist, loFrame, lcMapUnit, lnScale, 0.7479, 1.1167, 7.7417, 8.2007)

	Call StampJobNumber(lnNewWin, 0.7535, 10.3701)

	Call StampSiteInfo(loCenter, lnNewWin, 3.4646, 8.2382, 0, False)
	Call StampNorthArrow(lnNewWin, 6.9375, 8.7000)
	Call StampScale(lnNewWin, lnWinExist, lnScale, 6.0965, 9.3625)

	Call StampSymbols(lnNewWin, 0.8653, 8.3090, 9.0, lcProperty, False) 
	
	Set Window FrontWindow() Printer
		Name "Adobe PDF" Orientation Portrait Copies 1
		Papersize 1

	Set CoordSys Earth Projection 1, 74

	Call ReCenterMap(lnWinExist, loCenter)

	Set Window FrontWindow() Title "Preliminary" + MAPEXTENSION

	' Redraw the Layout window, when necessary, to reflect changes in the client window(s)
	Set Event Processing On
 	Set Layout Window lnNewWin Frame Contents On

	If (tlResize) Then
		Set Map Window lnWinExist Zoom Entire Layer Boundaries
		Update Window lnWinExist
	End If

	Update Window lnNewWin 

	Exit Sub

	DisplayError:

		Note "Error " + Error$()
		Exit Sub

End Sub
​

• Fit Map to New Window
• Preserve Current Scale

Hi Michel

There is a major difference between MapInfo Pro v12.5 and MapInfo Pro v2019: In the layout, the frame with the map doesn't link back to an existing map, it contains the map.

This means that once you have inserted a map into a frame in your layout, you need to access this map in order to change it, say it's zoom and center.

Here's a very basic example of how you can create a layout, add an empty frame and then fill that frame with an existing map window. Afterwards, you get the ID of the map in the frame and can modify the map using Set Map.

Sub ReScaleMaps(ByVal tnNewWin As Integer, ByVal tnWinExist As Integer, toFrame As Object, tcMapUnit As String, tnScale As Float, ByVal x1 As Float, ByVal y1 As Float, ByVal x2 As Float, ByVal y2 As Float) 

	OnError Goto DisplayError

	Set Window tnWinExist 
		Width (3.0 * (x2 - x1) / 3.0)
		Height (3.0 * (y2 - y1) / 3.0)

	Dim lnFrameWidth As Float
	Dim lnMapZoom As Float

	' If mapunits different from existing change current one
	If MapperInfo(tnWinExist, MAPPER_INFO_DISTUNITS) <> tcMapUnit Then
		Set Map Window tnWinExist Distance Units tcMapUnit 
	End If

	' Calculate new Zoom
	' framewidth is value in inch
	lnFrameWidth = ObjectGeography(toFrame, OBJ_GEO_MAXX) - ObjectGeography(toFrame, OBJ_GEO_MINX)

	lnMapZoom = lnFrameWidth * tnScale

	' Set Map Width to achieve desired scale
	Set Map Window tnWinExist Zoom lnMapZoom Units tcMapUnit

	Set Map Scale 1 Units "in" for tnScale Units "ft" 

	Set Window tnNewWin
		Position (1, 1)
		Width (3.0 * (x2 - x1) / 3.0)
		Height (3.0 * (y2 - y1) / 3.0)

	Set Layout
		Window tnNewWin
		Zoom To Fit

	Exit Sub

	DisplayError:
		Note "Error " + Error$()
		Exit Sub

End Sub

'***********************************'
​

OnError Goto DisplayError

	Dim lnWinExist As Integer	
	lnWinExist = GetMapWindowID()
	If (lnWinExist = 0) Then
		Exit Sub
	End If

	Set Window lnWinExist Front

	If Not PrerequisitesCheck() Then
		Exit Sub
	End If

        Dim lcFormat As String
	Dim loFrame As Object
	Dim lnScale As Float
	Dim lcMapUnit As String

	lcFormat = "8.5"" x 11"""
	lcMapUnit = "ft"
	lnScale = (MapperInfo(lnWinExist, MAPPER_INFO_SCALE) * 5280.0)

	Set Event Processing Off
	Set CoordSys Layout Units "in"

	Dim loCenter As Object
	Dim lcProperty As String

	Call GetTargetPropertyWithType(loCenter, lcProperty)

	Dim lnNewWin As Integer

	' 8 x 11 Pyyyyyy
	Run Application "J:\GeoApps\MapLayouts\8X11P\Preliminary.wor"

	lnNewWin = FrontWindow()

	Set Layout Window lnNewWin Frame Contents Off

	loFrame = StampMapWindow(lnNewWin, lnWinExist, lcFormat, 0.7479, 1.1167, 7.7417, 8.2007)

	Call ReScaleMaps(lnNewWin, lnWinExist, loFrame, lcMapUnit, lnScale, 0.7479, 1.1167, 7.7417, 8.2007)

	Call StampJobNumber(lnNewWin, 0.7535, 10.3701)

	Call StampSiteInfo(loCenter, lnNewWin, 3.4646, 8.2382, 0, False)
	Call StampNorthArrow(lnNewWin, 6.9375, 8.7000)
	Call StampScale(lnNewWin, lnWinExist, lnScale, 6.0965, 9.3625)

	Call StampSymbols(lnNewWin, 0.8653, 8.3090, 9.0, lcProperty, False) 
	
	Set Window FrontWindow() Printer
		Name "Adobe PDF" Orientation Portrait Copies 1
		Papersize 1

	Set CoordSys Earth Projection 1, 74

	Call ReCenterMap(lnWinExist, loCenter)

	Set Window FrontWindow() Title "Preliminary" + MAPEXTENSION

	' Redraw the Layout window, when necessary, to reflect changes in the client window(s)
	Set Event Processing On
 	Set Layout Window lnNewWin Frame Contents On

	If (tlResize) Then
		Set Map Window lnWinExist Zoom Entire Layer Boundaries
		Update Window lnWinExist
	End If

	Update Window lnNewWin 

	Exit Sub

	DisplayError:

		Note "Error " + Error$()
		Exit Sub

End Sub
​

• Fit Map to New Window
• Preserve Current Scale