📄 cartracker.txt
字号:
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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -