Knowledge Base



KB10508 - Automatically zoom map to specified extent centered on shape matching attribute query.

For example:

​Extent := GisNoWorld ;
Shp := ll.FindFirst( extent, 'ID=1' )
If Assigned( shp ) then begin
; Extent := GisMaxExtent( extent, shp.Extent ) ;
; GIS.VisibleExtent := extent ;
; GIS.Zoom := GIS.Zoom / 2 ;
End ;
 
Created: April 06, 2004, Modified: August 28, 2015