I have an old 32bit code base that with some minor changes works in Mapinfo 17 and 19 -albeit in the legacy tab. I have found that a set of tables/themes that load in about 17 seconds in v17 takes around 28 seconds in v19
It is the exact same code and data compiled in v17 to run in both 17 and 19. I have also tried the same code compiled in 19. There's no timing difference between the options.
The code is
sub w_DSC_ExclAbandoned
dim dt as datetime
dt = CurDateTime()
Print dt
Open Table "G:\GIS_Tables\Vector_Data\Infrastructure\Water\Current\Derivative_Datasets\W_Mains_DSC_ExclAbandoned" As W_Mains_ExclAbnd Interactive
Open Table "G:\GIS_Tables\Vector_Data\Infrastructure\Water\Current\Derivative_Datasets\W_Hydrants_DSC_ExclAbandoned" As W_Hydrants_ExclAbnd Interactive
Open Table "G:\GIS_Tables\Vector_Data\Infrastructure\Water\Current\Derivative_Datasets\W_Nodes_NonValve_DSC_ExclAbandoned" As W_Nodes_NonValve_ExclAbnd Interactive
Open Table "G:\GIS_Tables\Vector_Data\Infrastructure\Water\Current\Derivative_Datasets\W_Nodes_Valve_DSC_ExclAbandoned" As W_Nodes_Valve_ExclAbnd Interactive
Open Table "G:\GIS_Tables\Vector_Data\Infrastructure\Water\Current\Derivative_Datasets\W_Meters_DSC_ExclAbandoned" As W_Meters_ExclAbnd Interactive
Open Table "G:\GIS_Tables\Vector_Data\Infrastructure\Water\Current\Derivative_Datasets\W_Reservoirs_DSC_ExclAbandoned" As W_Reservoirs_ExclAbnd Interactive
Open Table "G:\GIS_Tables\Vector_Data\Infrastructure\Water\Current\Point_of_Truth\Water_Service_Area_Boundaries" As W_Service_Area Interactive
Add Map Auto Layer W_Meters_ExclAbnd, W_Nodes_Valve_ExclAbnd, W_Hydrants_ExclAbnd, W_Reservoirs_ExclAbnd,W_Nodes_NonValve_ExclAbnd, W_Mains_ExclAbnd, W_Service_Area
'Map from W_Nodes_NonValve_ExclAbnd, W_Nodes_Valve_ExclAbnd, W_Hydrants_ExclAbnd, W_Reservoirs_ExclAbnd, W_Meters_ExclAbnd, W_Mains_ExclAbnd
'shade Water_Nodes with Type values "90 Bend" Symbol (71,255,12,"Symbol",0,0) , "90 Elbow" Symbol (71,255,12,"Symbol",1,90) , "Unknown" Symbol (60,255,14,"MapInfo Water",256,117) , "Air Release Valve" Symbol (43,255,8,"MapInfo Symbols",1,0) , "Air Valve" Symbol (36,255,12) , "Altitute Valve" Symbol (36,255,10,"MapInfo Symbols",1,160.7) , "Borehole" Symbol (36,255,8,"MapInfo Symbols",1,121.4) , "Butterfly Valve" Symbol (77,255,14,"MapInfo Water",257,168.1) , "End Cap" Symbol (40,255,8,"MapInfo Symbols",1,0) , "Ferrule Cock" Symbol (60,255,9,"MapInfo Symbols",288,167.1) , "Flow Meter" Symbol (39,255,8,"MapInfo Symbols",1,0) , "Gate Valve" Symbol (34,255,14,"MapInfo Water",257,0) , "Hydraulic Contour Valve" Symbol (51,255,8,"MapInfo Symbols",1,0) , "Intake" Symbol (53,255,8,"MapInfo Weather",0,0) , "Junction" Symbol (35,255,4,"MapInfo Symbols",0,0) , "Pressure Reducing Valve" Symbol (38,255,8,"MapInfo Symbols",0,0) , "Pump" Symbol (60,255,8,"MapInfo Symbols",1,83.9) , "Reducer" Symbol (43,255,8,"MapInfo Symbols",1,0) , "Reflux Valve" Symbol (36,255,10,"MapInfo Symbols",1,75.4) , "Scour Valve" Symbol (52,255,8,"MapInfo Symbols",1,0) , "Sluice Valve" Symbol (51,255,8,"MapInfo Symbols",0,43.1) , "Tower" Symbol (43,255,10,"MapInfo Miscellaneous",0,0) , "WTP" Symbol (60,255,12,"MapInfo Real Estate",0,0)
'shade W_Nodes_NonValve_Abnd with Type values "Actuator Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,"Air Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,"Altitude Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,"Borehole" Symbol (76,255,14,"MapInfo Water",0,0) ,"Butterfly Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,"End Cap" Symbol (50,255,12,"MapInfo Water",1,0) ,"Ferrule Cock" Symbol (77,255,14,"MapInfo Water",257,168.1) ,"Intake" Symbol (120,255,12,"MapInfo Water",1,0), "Pressure Reducing Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,"Pump" Symbol (60,255,14,"MapInfo Water",257,0) ,"Reducer" Symbol (38,255,10,"MapInfo Symbols",1,0) ,"Reflux Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,"Scour Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,"Sluice Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,"Stop Cock" Symbol (38,255,14,"MapInfo Water",1,0) ,"Tower" Symbol (58,255,12,"MapInfo Symbols",1,0) ,"Unknown" Symbol (36,255,12,"MapInfo Symbols",1,75.4) ,"WTP" Symbol (52,255,12,"MapInfo Symbols",1,0)
Shade W_Service_Area with Network values
"Daintree" Brush (2,16711680,16777215) Pen (1,2,16711680) ,
"De Meio Drive" Brush (2,65280,16777215) Pen (1,2,65280) ,
"Port Douglas, Mossman and Newell" Brush (2,255,16777215) Pen (1,2,255) ,
"Whyanbeel" Brush (2,16711935,16777215) Pen (3,1,16711935)
default Brush (1,0,16777215) Pen (1,2,0)
Set map
Layer prev
Alpha 50
display off
set legend
layer prev
display off
shades on
symbols off
lines off
count off
title "Water Service Area" Font ("Arial",1,8,0)
subtitle auto Font ("Arial",0,8,0)
order custom
ranges Font ("Arial",0,8,0)
range "Whyanbeel" auto display on ,
range "Port Douglas, Mossman and Newell" auto display on ,
range "De Meio Drive" auto display on ,
range "Daintree" auto display on ,
range default auto display off
Shade W_Nodes_NonValve_ExclAbnd with Status values
' "Abandoned" Line (5,36,16711935) ,
"Active" Line (4,1,255) Symbol (40,255,1,"MapInfo Cartographic",0,0) ,
"Inactive" Line (5,15,16744448)
' "Never Existed" Brush (2,16776960,16777215) Pen (1,2,0) Line (1,2,16776960) Symbol (34,16776960,12) ,
' "Planned" Line (5,2,8388736)
Set map
Layer prev
Display Value
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Selectable Off
Zoom (0, 1) Units "km"
Layer W_Nodes_NonValve_ExclAbnd
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Zoom (0, 1000) Units "m"
Activate
Using "https://infoxpert.edrms/docs/~D"+As_con_InfoXpert_ID Alias "InfoXpert primary link: " On Labels Objects Relative Path Off,
Using "https://infoxpert.edrms/docs/~D"+CWCF_hyperlink Alias "Additional Details docs: " On Labels Objects Relative Path Off,
Using "http://man01.douglas.council/tickets/v2#open_tickets/"+Spiceworks_ID Alias "Spiceworks: "+Spiceworks_ID On Labels Objects Relative Path Off
set legend
layer prev
display off
shades off
symbols on
lines off
count off
title "Water Point Status" Font ("Arial",1,8,0)
subtitle auto Font ("Arial",0,8,0)
ascending on
ranges Font ("Arial",0,8,0)
auto display off,
auto display on,
auto display off
shade W_Nodes_NonValve_ExclAbnd with Type values
"Actuator Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Air Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Altitude Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Borehole" Symbol (76,255,14,"MapInfo Water",0,0) ,
"Butterfly Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"End Cap" Symbol (50,255,12,"MapInfo Water",1,0) ,
"Ferrule Cock" Symbol (77,255,14,"MapInfo Water",257,0) ,
"Intake" Symbol (120,255,12,"MapInfo Water",1,0) ,
"Junction" Symbol (140,255,1,"MapInfo Water",0,0) ,
"Pressure Reducing Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Pump" Symbol (60,255,14,"MapInfo Water",257,0) ,
"Reducer" Symbol (38,255,10,"MapInfo Symbols",1,0) ,
"Reflux Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Scour Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Sluice Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Stop Cock" Symbol (38,255,14,"MapInfo Water",1,0) ,
"Tower" Symbol (58,255,12,"MapInfo Symbols",1,0) ,
"Unknown" Symbol (36,255,12,"MapInfo Symbols",1,75.4) ,
"WTP" Symbol (52,255,12,"MapInfo Symbols",1,0)
'default # color 1 #
Set map
Layer prev
Display Value
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Selectable Off
Zoom (0, 12) Units "km"
Layer W_Nodes_NonValve_ExclAbnd
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Zoom (0, 2000) Units "m"
Label Line Arrow Position Right Font ("Arial",261,7,255,16777215) Pen (1,2,0)
With Open_Closed
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility Zoom (0, 1000) Units "m"
Activate
Using "https://infoxpert.edrms/docs/~D"+As_con_InfoXpert_ID Alias "InfoXpert primary link: " On Labels Objects Relative Path Off,
Using "https://infoxpert.edrms/docs/~D"+CWCF_hyperlink Alias "Additional Details docs: " On Labels Objects Relative Path Off,
Using "http://man01.douglas.council/tickets/v2#open_tickets/"+Spiceworks_ID Alias "Spiceworks: "+Spiceworks_ID On Labels Objects Relative Path Off
set legend
layer prev
display on
shades off
symbols on
lines off
count off
title "Water Network" Font ("Arial",1,8,0)
subtitle auto Font ("Arial",0,8,0)
ascending on
ranges Font ("Arial",0,8,0)
auto display off ,"Valve" display off ,auto display off ,auto display off ,auto display on ,auto display off ,auto display on ,auto display on ,auto display on ,auto display on ,auto display off ,auto display on ,auto display on ,auto display off ,auto display off ,auto display on ,auto display on ,auto display on ,auto display on ,auto display on
Shade W_Nodes_Valve_ExclAbnd with Status values
' "Abandoned" Line (5,36,16711935) ,
"Active" Line (4,1,255) Symbol (40,255,1,"MapInfo Cartographic",0,0) ,
"Inactive" Line (5,15,16744448)
' "Never Existed" Brush (2,16776960,16777215) Pen (1,2,0) Line (1,2,16776960) Symbol (34,16776960,12) ,
' "Planned" Line (5,2,8388736)
Set map
Layer prev
Display Value
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Selectable Off
Zoom (0, 1) Units "km"
Layer W_Nodes_Valve_ExclAbnd
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Zoom (0, 1000) Units "m"
Activate
Using "https://infoxpert.edrms/docs/~D"+As_con_InfoXpert_ID Alias "InfoXpert primary link: " On Labels Objects Relative Path Off,
Using "https://infoxpert.edrms/docs/~D"+CWCF_hyperlink Alias "Additional Details docs: " On Labels Objects Relative Path Off,
Using "http://man01.douglas.council/tickets/v2#open_tickets/"+Spiceworks_ID Alias "Spiceworks: "+Spiceworks_ID On Labels Objects Relative Path Off
set legend
layer prev
display off
shades off
symbols on
lines off
count off
title "Water Point Status" Font ("Arial",1,8,0)
subtitle auto Font ("Arial",0,8,0)
ascending on
ranges Font ("Arial",0,8,0)
auto display off,
auto display on,
auto display off
shade W_Nodes_Valve_ExclAbnd with Type values
"Actuator Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Air Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Altitude Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Borehole" Symbol (76,255,14,"MapInfo Water",0,0) ,
"Butterfly Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"End Cap" Symbol (50,255,12,"MapInfo Water",1,0) ,
"Ferrule Cock" Symbol (77,255,14,"MapInfo Water",257,0) ,
"Intake" Symbol (120,255,12,"MapInfo Water",1,0) ,
"Junction" Symbol (140,255,1,"MapInfo Water",0,0) ,
"Pressure Reducing Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Pump" Symbol (60,255,14,"MapInfo Water",257,0) ,
"Reducer" Symbol (38,255,10,"MapInfo Symbols",1,0) ,
"Reflux Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Scour Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Sluice Valve" Symbol (118,255,14,"MapInfo Water",0,0) ,
"Stop Cock" Symbol (38,255,14,"MapInfo Water",1,0) ,
"Tower" Symbol (58,255,12,"MapInfo Symbols",1,0) ,
"Unknown" Symbol (36,255,12,"MapInfo Symbols",1,75.4) ,
"WTP" Symbol (52,255,12,"MapInfo Symbols",1,0)
'default # color 1 #
Set map
Layer prev
Display Value
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Selectable Off
Zoom (0, 12) Units "km"
Layer W_Nodes_Valve_ExclAbnd
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Zoom (0, 2000) Units "m"
Label Line Arrow Position Right Font ("Arial",261,7,255,16777215) Pen (1,2,0)
With Open_Closed
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility Zoom (0, 1000) Units "m"
set legend
layer prev
display off
shades off
symbols on
lines off
count off
title "Water Network" Font ("Arial",1,8,0)
subtitle auto Font ("Arial",0,8,0)
ascending on
ranges Font ("Arial",0,8,0)
auto display off ,"Valve" display off ,auto display off ,auto display off ,auto display on ,auto display off ,auto display on ,auto display on ,auto display on ,auto display on ,auto display off ,auto display on ,auto display on ,auto display off ,auto display off ,auto display on ,auto display on ,auto display on ,auto display on ,auto display on
Shade W_Reservoirs_ExclAbnd with Status values
' "Abandoned" Line (5,36,16711935) ,
"Active" Line (4,1,255) Symbol (40,255,1,"MapInfo Cartographic",0,0) ,
"Inactive" Line (5,15,16744448)
' "Never Existed" Brush (2,16776960,16777215) Pen (1,2,0) Line (1,2,16776960) Symbol (34,16776960,12) ,
' "Planned" Line (5,2,8388736)
Set map
Layer prev
Display Value
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Selectable Off
Zoom (0, 1) Units "km"
Layer W_Hydrants_ExclAbnd
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Zoom (0, 1000) Units "m"
set legend
layer prev
display off
shades off
symbols off
lines on
count off
title "" Font ("Arial",1,8,0)
subtitle auto Font ("Arial",0,8,0)
ascending on
ranges Font ("Arial",0,8,0)
auto display off,
auto display on
Shade W_Reservoirs_ExclAbnd with Type values "RESERVOIR" Symbol (42,255,15,"MapInfo Water",256,0) default Symbol (40,0,12)
Set map
Layer prev
Display Value
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Selectable Off
Zoom (0, 12) Units "km"
Layer W_Reservoirs_ExclAbnd
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Zoom (0, 2000) Units "m"
Activate
Using "https://infoxpert.edrms/docs/~D"+As_con_InfoXpert_ID Alias "InfoXpert primary link: " On Labels Objects Relative Path Off,
Using "https://infoxpert.edrms/docs/~D"+CWCF_hyperlink Alias "Additional Details docs: " On Labels Objects Relative Path Off,
Using "http://man01.douglas.council/tickets/v2#open_tickets/"+Spiceworks_ID Alias "Spiceworks: "+Spiceworks_ID On Labels Objects Relative Path Off
set legend
layer prev
display on
shades off
symbols on
lines off
count off
title "" Font ("Arial",0,9,0)
subtitle auto Font ("Arial",0,8,0)
ascending on
ranges Font ("Arial",0,8,0)
auto display off,
"Reservoir" display on
Shade W_Hydrants_ExclAbnd with Status values
' "Abandoned" Line (5,36,16711935) ,
"Active" Line (4,1,255) Symbol (40,255,1,"MapInfo Cartographic",0,0) ,
"Inactive" Line (5,15,16744448)
' "Never Existed" Brush (2,16776960,16777215) Pen (1,2,0) Line (1,2,16776960) Symbol (34,16776960,12) ,
' "Planned" Line (5,2,8388736)
Set map
Layer prev
Display Value
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Selectable Off
Zoom (0, 1) Units "km"
Layer W_Hydrants_ExclAbnd
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Zoom (0, 1000) Units "m"
set legend
layer prev
display off
shades off
symbols off
lines on
count off
title "" Font ("Arial",1,8,0)
subtitle auto Font ("Arial",0,8,0)
ascending on
ranges Font ("Arial",0,8,0)
auto display off,
auto display on
shade W_Hydrants_ExclAbnd with Name values "Hydrant" Symbol (35,255,10,"MapInfo Symbols",256,0) default Symbol (34,255,8)
Set map
Layer prev
Display Value
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Selectable Off
Zoom (0, 12) Units "km"
Layer W_Hydrants_ExclAbnd
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Zoom (0, 2000) Units "m"
Label Line Arrow Position Right Font ("Arial",0,8,0) Pen (1,2,0)
With Size
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility Zoom (0, 1000) Units "m"
Activate
Using "https://infoxpert.edrms/docs/~D"+As_con_InfoXpert_ID Alias "InfoXpert primary link: " On Labels Objects Relative Path Off,
Using "https://infoxpert.edrms/docs/~D"+CWCF_hyperlink Alias "Additional Details docs: " On Labels Objects Relative Path Off,
Using "http://man01.douglas.council/tickets/v2#open_tickets/"+Spiceworks_ID Alias "Spiceworks: "+Spiceworks_ID On Labels Objects Relative Path Off
set legend
layer prev
display on
shades off
symbols on
lines off
count off
title "" Font ("Arial",0,9,0)
subtitle auto Font ("Arial",0,8,0)
ascending on
ranges Font ("Arial",0,8,0)
auto display off,
"Hydrant" display on
shade W_Mains_ExclAbnd with Status values
' "Abandoned" Line (5,36,16711935) ,
'"Active" Line (4,1,16711935) ,
"Inactive" Line (5,2,16744448)
' "Never Existed" Brush (2,16776960,16777215) Pen (1,2,0) Line (1,2,16776960) Symbol (34,16776960,12) ,
' "Proposed" Line (5,2,8388736)
Set Map
Layer prev
Display Value
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Selectable Off
Zoom (0, 12) Units "km"
Layer W_Mains_ExclAbnd
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Zoom (0, 2.5) Units "km"
set legend
layer prev
display on
shades off
symbols off
lines on
count off
title "Water Mains Status" Font ("Arial",1,8,0)
subtitle auto Font ("Arial",0,8,0)
ascending on
ranges Font ("Arial",0,8,0)
auto display off,
auto display on
'shade Water_Mains with Pipe_Type values "Trunk" Line (3,2,255), "Reticulation" Line (1,2,255), "" Line (1,4,255) default Line (1,1,255)
shade W_Mains_ExclAbnd with Pipe_diameter ranges apply all use all Line (15,2,255) 0: 50 Line (15,2,255) ,50: 150 Line (22,2,255) ,150: 300 Line (32,2,255) ,300: 800 Line (38,2,255) default Line (1,2,16777215)
Set Map
Layer prev
Display Value
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Selectable Off
Zoom (0, 12) Units "km"
Layer W_Mains_ExclAbnd
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Zoom (0, 2.5) Units "km"
Label Line None Position Above Font ("Arial",261,7,255,16777215) Pen (1,2,0)
With Pipe_Diameter+"Ø "+Pipe_Material+" "+Install_Year
Parallel On Auto On Overlap Off Duplicates On Offset 2
Visibility Zoom (0, 1) Units "km"
Activate
Using "https://infoxpert.edrms/docs/~D"+As_con_InfoXpert_ID Alias "InfoXpert primary link: " On Labels Objects Relative Path Off,
Using "https://infoxpert.edrms/docs/~D"+CWCF_hyperlink Alias "Additional Details docs: " On Labels Objects Relative Path Off,
Using "http://man01.douglas.council/tickets/v2#open_tickets/"+Spiceworks_ID Alias "Spiceworks: "+Spiceworks_ID On Labels Objects Relative Path Off
set legend
layer prev
display on
shades off
symbols off
lines on
count off
title "Water Mains" Font ("Arial",1,8,0)
subtitle auto Font ("Arial",0,8,0)
ascending on
ranges Font ("Arial",0,8,0)
auto display off ,
"0 to 49" display on ,
"50 to 149" display on ,
"150 to 299" display on ,
"300 up" display on
Shade W_Meters_ExclAbnd with Status values
' "Abandoned" Line (5,36,16711935) ,
"Active" Line (4,1,255) Symbol (40,255,1,"MapInfo Cartographic",0,0) ,
"Inactive" Line (10,2,16744448)
' "Never Existed" Brush (2,16776960,16777215) Pen (1,2,0) Line (1,2,16776960) Symbol (34,16776960,12) ,
' "Planned" Line (5,2,8388736)
Set map
Layer prev
Display Value
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Selectable Off
Zoom (0, 1) Units "km"
Layer W_Meters_ExclAbnd
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Zoom (0, 1000) Units "m"
Set legend
layer prev
display on
shades off
symbols on
lines off
count off
title "Water Point Status" Font ("Arial",1,8,0)
subtitle auto Font ("Arial",0,8,0)
ascending on
ranges Font ("Arial",0,8,0)
auto display off,
auto display off,
auto display on
shade W_Meters_ExclAbnd with Type values "District" Symbol (32,255,12) , "Flow Meter" Symbol (32,5308415,12) , "Meter" Symbol (38,255,12) , "Service" Symbol (38,2555,12), "Unknown" Symbol (35,255,12)
Set map
Layer prev
Display Value
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Selectable Off
Zoom (0, 12) Units "km"
Layer W_Meters_ExclAbnd
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
Zoom (0, 2000) Units "m"
Label with Open_Closed Position Right Font ("Arial",261,7,255,16777215) Pen (1,2,0)
With Size
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility Zoom (0, 1000) Units "m"
Activate
Using "https://infoxpert.edrms/docs/~D"+As_con_InfoXpert_ID Alias "InfoXpert primary link: " On Labels Objects Relative Path Off,
Using "https://infoxpert.edrms/docs/~D"+CWCF_hyperlink Alias "Additional Details docs: " On Labels Objects Relative Path Off,
Using "http://man01.douglas.council/tickets/v2#open_tickets/"+Spiceworks_ID Alias "Spiceworks: "+Spiceworks_ID On Labels Objects Relative Path Off
set legend
layer prev
display on
shades off
symbols on
lines off
count off
title "" Font ("Arial",0,9,0)
subtitle auto Font ("Arial",0,8,0)
ascending on
ranges Font ("Arial",0,8,0)
auto display off,
"District Meters" display on,
"Flow Meter" display off,
"Meter" display off,
"Service Meters" display on
dt = CurDateTime()
Print dt
Alter menu item w_DSC_ExclAbandoned disable
Alter menu item w_DSC_ExclAbandoned_close enable
end sub
I understand it loads 2 or more themes on some data and this can be reduced but it still doesn't change why 17 takes significantly a lot less time than 19.
Start End Duration
v19 20200728113949370 20200728114009627 60300
v17 20200728114154594 20200728114204107 49600
This is just CurDateTime() difference. the 17 to 28s difference was looking at it visually with a stopwatch.
------------------------------
George Corea
Mangoesmapping
------------------------------