D5+MapX4的问题(200分)

  • 主题发起人 少爷的拐杖
  • 开始时间

少爷的拐杖

Unregistered / Unconfirmed
GUEST, unregistred user!
我想拖动画上去的某个物件....
Procedure TMainMap.Map1ToolUsed(Sender: TObject;
ToolNum: Smallint;
X1, Y1,
X2, Y2, Distance:do
uble;
Shift, Ctrl: Wordbool;
var EnableDefault: Wordbool);
var
Mpt: CMapXPoint;
MFtrsUnderPt: CMapXFeatures;
Mftr: CMapXFeature;
begin

......
Mpt := CoPoint.Create;
Mpt.Set_(X1, Y1);
MFtrsUnderPt := Map1.Layers.Item('MyLayer').SearchAtPoint(Mpt);
if MFtrsUnderPt.Count = 1 then

begin

Mftr := MFtrsUnderPt.Item(1);
Mftr.Offset(X2 - X1, Y2 - Y1);
Mftr.Update(EmptyParam, EmptyParam);
end;

......
可是拖动时不能即时看到拖动效果,Mapinfo中拖动的效果怎么做?
(拖动时物件外框有虚框表示)
物件合并怎么做?
那位有比较完整的代码呀,可以演示绘图,编辑等等功能的?
 
此问题怎么一点不引起关注呢?
 
这个在Mapx中好像没有提供相关功能,要自己编程实现
 
或者各位有比较完整的编辑地图的代码?
让我自己研究研究?
我用破解过的Mapx来换总可以吧?
 
自己添加的图层好像无法改变绘画的颜色?
procedure TMDIChild.FormCreate(Sender: TObject);
var
lyr: CMapXLayer;
begin

lyr := Map1.Layers.CreateLayer('TempLayer', EmptyParam,1,
EmptyParam, EmptyParam);
Map1.Layers.AnimationLayer := lyr;
lyr.Editable:=true;
lyr.Visible:=true;
lyr.Selectable:=true;
lyr.Style.LineColor:=125;
//不管从0到255,好像颜色都一样嘛.
EditLayer := Map1.ControlInterface.Layers.Item('TempLayer');
............
各位啊?有没有比较完整的从新建到保存的编辑地图的代码可以参考参考?
它自带的例子甚至无法运行.
在下现在感觉无从下手.
 
没辙没辙.只要有好的例子代码.我现金收购也行啊.
 
D5+MO2的例子有没有?
 
to 少爷
你的Mapx4.5是在哪里下的,我到www.mapx.com上去过,发现他们已经不提供下载了,能
够下载的是4.5的补丁。
如果方便你能否给我寄一个,zhouqing99@263.net
 
我的是4.05版本.已上传到http://delphi.itschem.com/
包括解密工具.
 
多人接受答案了。
 
顶部