各位大侠,本人想在指定的X,Y显示一张图片,为何只显示一个方块(以下代码),是不是图片的位置无法指定,请指教!!
var
Feature: CMapXFeature;
begin
Feature := CoFeature.Create;
Feature.Attach(Map.DefaultDispatch);
Feature.Type_ := miFeatureTypeSymbol;
Feature.Point.Set_(X,Y);
Feature.Style.SymbolType := miSymbolTypeBitmap;
Feature.Style.SymbolBitmapSize := 32;
Feature.Style.SymbolBitmapTransparent := True;
Feature.Style.SymbolBitmapName := 'MAIL1-32.BMP';
Map.Layers.Item['Temp'].AddFeature(Feature,EmptyParam);
Map.ZoomTo(1.1,X,Y);
解决方案 »
- 有没有API开发的FTP上传函数啊?
- delphi7 THTTPRIO 组件在windows2003上使用调用webservice报内存错误的问题
- 我在数据库中取数据自动生成菜单条,但我不知道怎样触发这些由程序生成的菜单条的单击事件?
- MSSQL里面有一个字段jg,类型设置为numeric属性,在企业管理器设置此字段小数位为2位!问题就这样来了!
- 我想求助 毕业论文 ,请进来看看丫
- 请问哪里能下载荷Report Machine 2.5(最新版),我觉得它很好用的。
- char和varchar有什么区别
- 我想做一个提醒窗体从WINDOWS状态栏处慢慢升起,就象MSN的聊天工具一样?并能取得状态栏的高度?
- 急,怎么把一张表的数据复制到另一张表中
- 关于Tclientsocket的问题,在联接时如何捕获错误
- Delphi2005怎么创建ActiveXForm(ocx)?
- 弄晕了!子窗体的显示问题?
var
pp:cMapxPoint;
ss:cMapxStyle;
ff:CMapxFeature;
begin
pp:= coPoint.Create;
pp.Set_(x,y);
ss:= COStyle.Create;
ss.SymbolType:= miSymbolTypeBitmap;
ss.SymbolBitmapTransparent:= true;
ss.SymbolBitmapName:= 'MAIL1-32.BMP';
ss.SymbolBitmapSize:= 23;
ff:= Map1.Layers.item(1).addFeature(Map1.FeatureFactory.CreateSymbol(pp,ss),EmptyParam);
ff.Update(EmptyParam,EmptyParam);
Map1.Layers.item(1).Refresh;
end;