更改GMLib默认标记

Question

我在delphi应用程序中使用gmlib，它可以满足我的需求。我从坐标表中加载标记，但现在我想替换默认的标记样式。由于我在代码中执行此操作，因此我没有任何gmmarker项目。我的代码简单地循环：

gmmarker1.Add(qryPoints.FieldByName('lat').AsFloat,qryPoints.FieldByName('lon').AsFloat,address);

当我尝试使用以下方式更改图标时

gmmarker1.Items[0].Icon:='c:\measle.png';

我收到错误＆＃39;参数超出范围＆＃39;

是否可以在不向标记添加项目的情况下更改默认图标？或者我做错了吗？

Answer 1

TGMMarker的Add方法返回一个TMarker对象。您可以使用它来分配更多属性，如Icon属性。但是，如果存在任何标记，则gmmarker1.Items [0] .Icon或gmmarker1 [0] .Icon必须正常工作。在

之前检查gmmarker1.Count