【old】簡單易用的鷹眼類源代碼下載下傳

n年前寫的基于MapInfo的工具，曾釋出到當時比較火的GIS論壇。沒想到現在還經常有人問我要，因為原先的論壇通路不了。雖然現在不用MapInfo了，但也算了為了存檔放在這裡吧。

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

Unit Name: TFrmEagleEyeClass

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

frmEagleEye := TfrmEagleEye.Create(Application);

frmEagleEye.Initiate(m_MainMap,'map\eagle.gst')

end;

frmEagleEye.Show;

許可：

您可以自由的使用本代碼進行學習或非商業、商業應用，

你可以自由更改本代碼以便更适合你的應用，但請保留原作者版權資訊；

如果你對本代碼作過修改優化，請添加詳細注釋後重新釋出到網上，并發給原作者一份拷貝，以利于大家共同進步；

鳴謝：

－－ ljb

網絡上其他未具名的大俠們

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

<a href="http://files.cnblogs.com/junqilian/200591416141915062.rar">200591416141915062.rar</a>

郵箱：[email protected] 

轉載請保留此資訊。

本文轉自峻祁連. Moving to Cloud/Mobile部落格園部落格，原文連結：http://www.cnblogs.com/junqilian/archive/2009/11/03/1595282.html，如需轉載請自行聯系原作者