使用简单的视图管理器类下载,前一视图
上一篇 /
下一篇 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: