cartracker.txt

来自「GIS地理信息系统开发。 大名鼎鼎的MAPX＋DELPHI7.0软件开发」· 文本 代码 · 共 48 行

Filename - CarTracker.zip
 
Note: This sample application and corresponding sample code is provided 
for example purposes only.  It has not undergone rigorous testing
and as such should not be shipped as part of a final application
without extensive testing on the part of the organization releasing
the end-user product.

This Delphi 4.0 example uses the MapX Version 4.0 OCX Control.  The main 
goal of this example is to show how to use the Animation Layer feature.  
It also demonstrates how to add a point to a layer using a tool.

Files:

CarTrackerFrm.dfm
CarTrackerFrm.pas
CarTracker.dpr
CarTracker.res

Overview:

The application tracks vehicles on the map by updating the position of each 
using a  speed and heading through the use of a timer.

To use the program:

	Choose a font for a vehicle by clicking on the "Pick Vehicle Font" button.
	Click on the "Plot Vehicle Tool" button and click on the map at 
		the location that you want to add the vehicle to.  This will 
		add a vehicle to the map at the location you clicked.  It will 
		give the vehicle a name such as "Vehicle 1" and assign it initial 
		vector data of 0 for a heading and 0 for speed and add it to the 
		listbox of vehicles.
	Click on the Zoom In and Zoom out buttons and click on the map to zoom in and out.
	Click in the listbox on the vehicle name.  This will enable the textboxes 
		to the right of the listbox.  You may now change the name of the 
		vehicle and assign it vector information (heading and speed).
	When the speed of a vehicle is greater than zero, the event for the timer 
		will "update" the vehicle position.

	There is also a Layer Control button that allows the user to bring up the 
		MapX stock Layer Control dialog.  A cool thing to do here is turn 
		labels on for your vehicles.

	If you right click on the map, you will bring up the MapX PropertyPage.  
		You can change the current tool or zoom in this dialog.

	There is also code that permits the resizing of the form.