I am trying to add 61 raster images in the map window and it is very fast in mapinfo 12.5 (18 seconds) but very slow in 2019 (1 minute 7 seconds). Does anyone know the reason? Here my codes.
Sub Imagery_Render(ByVal tableName as String, ByVal zoomMin as Float, ByVal zoomMax as Float)
Dim windowId as String
Select TabFile from tableName Into tblTifFiles
Set Event Processing Off
Fetch First from tblTifFiles
windowId = UI_GetMapWindowID()
Do While NOT EOT(tblTifFiles)
Dim tabFile, name as String
tabFile = tblTifFiles.TabFile
Open Table tabFile Interactive
name = TableInfo(NumTables(), TAB_INFO_NAME)
Add Map Layer name Position 5
Set Map Window windowId Layer 5 Zoom (zoomMin, zoomMax) Units "mi" On Display Off
Fetch Next from tblTifFiles
Loop
Set Event Processing On
Close Table tblTifFiles
End Sub
------------------------------
Michel Li
Programmer
GEOSEARCH LLP
Austin TX
------------------------------
------------------------------
Michel Li
Programmer
GEOSEARCH LLP
Austin TX
------------------------------