使用说明.txt

Purpose: 量距离工具 History: 2005-05-21 开发环境： delphi7+mapX 5.02.38 windows XP Sp2

{-----------------------------------------------------------------------------

 Author:    杜长宇  [e-mail]
 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;

-----------------------------------------------------------------------------}