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

 

{-----------------------------------------------------------------------------
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;

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

 

 

2006725915610546.rar


Related Posts Plugin for WordPress, Blogger...