2015-01-02 125 views
1

我在delphi應用程序中使用gmlib,它滿足我的需求。我加載標記形成座標表,但現在我想要替換默認標記樣式。由於我在代碼中完成了這一切,因此我沒有任何gmmarker項目。我的代碼是簡單的循環:更改GMLib默認標記

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

,當我嘗試使用更改圖標:

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

我得到一個錯誤「參數超出範圍」

是否可以更改默認沒有添加項目到標記的圖標?或者我做錯了什麼?

回答

1

TGMMarker的Add方法返回一個TMarker對象。您可以使用它來分配更多屬性,如圖標屬性。但是,如果存在任何標記,gmmarker1.Items [0] .Icon或gmmarker1 [0] .Icon必須工作。檢查gmmarker1.Count之前

+0

這樣做,謝謝。我添加了一個變量,標記(int)並添加了代碼:markers:= gmmarker1.Count; 對於標記:= 0到標記-1確定 開始 gmmarker1.Items [markers] .Icon:='c:\ fdms \ measle.png'; 結束; –