Хотелось бы поменять значок маркера на маленькие кружочки

Question

В своем приложении Delphi я впервые использую GMlib и успешно отобразил карту с маршрутом авиакомпании и всеми маркерами. Я использую компоненты GMMap, GMMarker, GMPolyline

Однако я хотел бы заменить обычные значки маркеров на маленькие красные кружочки (радиус 3-4 пикселя). Вот код, который я использую для построения карты и маршрута:

procedure TfrmWebBrowser.PlotMap;
var
  aList1,
  aList2: TstringList;
  dLatitude,
  dLatitude1,
  dLatD,
  dLonD,
  dLongitude,
  dLongitude1: Single;
  i: Integer;
  Poly: TPolyline;
  begin
    Poly:= TPolyline(GMPolyline1.Add);
    Poly.StrokeColor:= clRed;
    Poly.StrokeWeight:= 1;
    aList1:= TstringList.Create;
    aList1.StrictDelimiter:= True;
    aList1.Delimiter:= ';';
    aList2:= TstringList.Create;
    aList2.StrictDelimiter:= True;
    aList2.Delimiter:= ';';
    GMMarker1.Clear;
    for i := 0  to GstlMapPoints.Count-1 do
    begin
      aList1.DelimitedText:= GstlMapPoints.Strings[i];
      if i > 0 then
      begin
        aList2.DelimitedText:= GstlMapPoints.Strings[i - 1];
        dLatitude:= StrToFloat(aList2[0]);
        dLatitude1:= StrToFloat(aList1[0]);
        dLongitude:= StrToFloat(aList2[1]);
        dLongitude1:= StrToFloat(aList1[1]);
        Poly.AddLinePoint(dLatitude,dLongitude);
        Poly.AddLinePoint(dLatitude1,dLongitude1);
        Poly.Geodesic:= True;
      end
      else
      begin
        dLatD:= StrToFloat(aList1[0]);
        dLonD:= StrToFloat(aList1[1]);
      end;
    dLatitude:= StrToFloat(aList1[0]);
    dLongitude:= StrToFloat(aList1[1]);
    GMMarker1.Add(dLatitude, dLongitude, aList1[2]);
  end;
  GMMarker1.ZoomToPoints;
  aList1.Free;
  aList2.Free;
end; 

Ты поможешь мне сделать это? Спасибо Пьер

Answer 1

Метод Add из класса TGMMarker возвращает объект TMarker. Этот объект имеет свойство Icon, чтобы установить изображение для отображения

var
  Marker: TMarker
begin
  .....
  Marker := GMMarker1.Add(dLatitude, dLongitude, aList1[2]);
  Marker.Icon := 'http://www.cadetill.com/imagenes/gallery/gmlib/marker.png'
  .....

Изображение должно быть в Интернете или на вашем локальном ПК