使用简单的视图管理器类下载,前一视图

上一篇 / 下一篇  2006-12-08 23:16:35

{-----------------------------------------------------------------------------
Unit Name: TMapViewManagerClass
Author:    duchangyu  杜长宇 changyudu@163.com  msn:duchangyu@hotmail.com
Purpose:  MapX 视图管理器,可以实现前一视图功能
History:   2006-07-25

   =========地图视图管理器========

开发环境: delphi7+mapX 5.02.38
            windows XP Sp2

用法:
   1、主程序中uses TMapViewManagerClass;
   2、主程序中定义全局变量 mapViewMgr : TMapViewManager;
   3、在主程序窗体中formCreate事件中初始化,创建对象,并传递当前mapx对象map1:
        mapViewMgr := TMapViewManager.Create(map1);
   4、在地图范围发生变化的事件中,保存视图,例如mapToolUsed事件中:
   case ToolNum  of
      miZoomInTool : begin
        mapViewMgr.SaveMapView(map1.Bounds);
      end;
      miZoomOutTool : begin
        mapViewMgr.SaveMapView(map1.Bounds);
      end;
   end;
   5、”前一视图“事件处理函数中:
    procedure TForm1.ToolButton11Click(Sender: TObject);
    begin
      mapViewMgr.PreviousView;
    end;

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

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



Link URL: http://www.vr168.com/blog/blog.php?do=showone&tid=10

TAG:

 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

我的栏目

日历

« 2008-12-04  
 123456
78910111213
14151617181920
21222324252627
28293031   

数据统计

  • 访问量: 7028
  • 日志数: 18
  • 建立时间: 2006-12-05
  • 更新时间: 2007-01-16

RSS订阅

Open Toolbar