{-----------------------------------------------------------------------------
Author: 杜长宇 junqilian@163.com
Purpose: 量距离工具
History: 2005-05-21
开发环境： delphi7+mapX 5.02.38
windows XP Sp2
许可：
您可以自由的使用本代码进行学习或非商业、商业应用，
你可以自由更改本代码以便更适合你的应用，但请保留原作者版权信息；
如果你对本代码作过修改优化，请添加详细注释后重新发布到网上，并发给原作者一份拷贝，以利于大家共同进步；
用法：
1、主程序中uses ToolButtonDistance；
2、在主程序窗体中放置ToolButtonDistance
3、添加事件处理函数，形如：
procedure TForm1.ToolButtonDistanceClick(Sender: TObject);
var
m_MapDistanceTool : TDistanceTool;
begin
m_MapDistanceTool := TDistanceTool.Create;
m_MapDistanceTool.CreateDistanceTool(map1);
Map1.CurrentTool := m_MapDistanceTool.GetToolNum;
end;