Delphi版 ArcEngine Mapcontrol与PageControl同步

function MapToPage(mapControl: IMapControlDefault; pageLayout: IPageLayoutControlDefault): Boolean;
var
   objectCopy: IObjectCopy;
   toCopyMap: IMap;
   copideMap, toOverwriteMap: IUnknown; //在VB中数据类型是 Object
begin
   //创建复制对象
   objectCopy := CoObjectCopy.Create as IObjectCopy;

//得到想要复制的数据相当于在 MapControl控件上做 Ctrl + C
toCopyMap := mapControl.ActiveView.FocusMap;

//将要复制的数据，复制出来
copideMap := objectCopy.Copy(toCopyMap);

//将要被替换掉的数据,是PageControl控件的同步前的数据
toOverwriteMap := pageLayout.ActiveView.FocusMap;

//同步数据，相当于在 PageControl控件上做 Ctrl + V

objectCopy.Overwrite(copideMap, toOverwriteMap);

//刷新PageControl
pageLayout.ActiveView.Refresh;
Result := True;
end;TEST

转载于:https://www.cnblogs.com/chinacodegear/archive/2009/03/03/1402636.html

Delphi版 ArcEngine Mapcontrol与PageControl同步相关推荐

《ArcGIS Engine+C#实例开发教程》第三讲 MapControl与PageLayoutControl同步
<ArcGIS Engine+C#实例开发教程>第三讲 MapControl与PageLayoutControl同步原文:<ArcGIS Engine+C#实例开发教程>第三 ...
通过崩溃地址找错误行数之Delphi版
通过崩溃地址找错误行数之Delphi版 2009-5-11 17:42:35 来源: 转载作者:网络访问:360 次被顶:2 次字号:[大中小] 核心提示:什么是 MAP 文件?简单地讲, ...
从内存中加载DLL Delphi版(转)
源:从内存中加载DLL DELPHI版原文 : http://www.2ccc.com/article.asp?articleid=5784 MemLibrary.pas //从内存中加载DLL D ...
WinAPI【远程注入】利用远程线程注入DLLDelphi版
{ WinAPI[远程注入]利用远程线程注入DLLDelphi版} (okwary) 小叹的学习园地 ( SDK文档里是这样描述的:进程是一个正在运行的程序,它拥有自己的地址空间,拥有自己的 ...
Delphi 版的IIF函数
Delphi 版的IIF函数不少编程语言都有 IIF 函数,我们也可以构造自己的IIF函数: // ------------------------------------------------- ...
NeHe的OpenGL教程7（Bang翻译Delphi版）－如何使用光源
NeHe的OpenGL教程7(Bang翻译Delphi版)-如何使用光源在这一课里,我将教会你如何用光源照亮立方体的六个面,如下图: 将下图放在应用程序data目录下,起名NeHe.bmp prog ...
NeHe的OpenGL教程8（Bang翻译Delphi版）－如何制作立体透明效果
NeHe的OpenGL教程8(Bang翻译Delphi版)-如何制作立体透明效果在这一课里,我将教会你如何制作立体透明效果,如下图: 将下图放在应用程序data目录下,起名NeHe.bmp prog ...
OpenGL教程8（Bang翻译Delphi版）－如何制作立体透明效果 .
OpenGL教程8(Bang翻译Delphi版)-如何制作立体透明效果在这一课里,我将教会你如何制作立体透明效果,如下图: 将下图放在应用程序data目录下,起名NeHe.bmp program l ...
Delphi 版 everything、光速搜索代码
近日没啥事情,研究了一下 everything.光速搜索原理.花了一个礼拜时间,终于搞定. 废话不多说,直接上代码: unit uMFTSearchFile; {dbyoung@sina.com201 ...
《Delphi 版 everything、光速搜索代码》关于获取文件全路径 GetFullFileName 函数的优化
<Delphi 版 everything.光速搜索代码>,文章中关于获取文件全路径的函数:GetFullFileName,有一个地方值得优化. 就是有多个文件,它们可能属于同一个目录. 譬 ...

Delphi版 ArcEngine Mapcontrol与PageControl同步

Delphi版 ArcEngine Mapcontrol与PageControl同步相关推荐

最新文章

热门文章