您的位置:首页 > 其它

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

2009-11-03 15:27 225 查看
{-----------------------------------------------------------------------------
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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐