简单易用的鹰眼类源代码

{-----------------------------------------------------------------------------
Unit Name: TFrmEagleEyeClass
Author:    杜长宇 changyudu@163.com  msn:duchangyu@hotmail.com
Purpose: mapx鹰眼类
History:2005-9-14 11:36:36

开发环境： MapX 50.2.38 + delphi7 + Windows xp sp2

用法说明(附示例)：

1. uses TFrmEagleEyeClass

2. 声明全局变量
var
     frmEagleEye : TfrmEagleEye;

3.事件处理函数

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if frmEagleEye = nil then
  begin
    frmEagleEye := TfrmEagleEye.Create(Application);
    frmEagleEye.Initiate(m_MainMap,\'map\\eagle.gst\')
  end;

  frmEagleEye.Show;

end;

许可：
    您可以自由的使用本代码进行学习或非商业、商业应用，
    你可以自由更改本代码以便更适合你的应用，但请保留原作者版权信息；
    如果你对本代码作过修改优化，请添加详细注释后重新发布到网上，并发给原作者一份拷贝，以利于大家共同进步；

鸣谢：
  －－ ljb
  网络上其他未具名的大侠们
-----------------------------------------------------------------------------}