Hallo zusammen
in meiner Anwednung verwende ich eine Googlemap um div. Orte darzustellen.
Dies funktioniert auch einwandfrei. Nun möchte ich aber noch das Icon anpassen.
Hat mir da jemand einen Tipp?
bisheriger Code:
Delphi-Quellcode:
procedure Tfrm_googlemap.btn_batch_distClick(Sender: TObject);
var
// latitude, longitude: String;
Doc2: IHTMLDocument2;
Win2: IHTMLWindow2;
latlng: String;
i: integer;
begin
if not DM.Camps.Active then DM.Camps.Open;
if not DM.tmp.Active then DM.tmp.Open;
try
DM.tmp.First;
for i := 0 to DM.tmp.RecordCount -1 do begin
with WebBrowser1.HTMLWindow2 do
begin
execScript('createMapMarker( " ' +
DM.tmp.FieldByName('POS_LAT').AsString + '", "'+
DM.tmp.FieldByName('POS_LNG').AsString +'", "'+
DM.tmp.FieldByName('NAME').AsString + '
'+
DM.tmp.FieldByName('STR').AsString + '
'+
DM.tmp.FieldByName('PLZ').AsString + '-'+
DM.tmp.FieldByName('CITY').AsString + '
'+
DM.tmp.FieldByName('TEL').AsString +
'", icon: '+'http://google-maps-icons.googlecode.com/files/factory.png'+')', 'JavaScript');
log_window.Lines.Add(
DM.tmp.FieldByName('POS_LAT').AsString +
' ' +
DM.tmp.FieldByName('POS_LNG').AsString +
' ' +
DM.tmp.FieldByName('NAME').AsString); // Logeintrag
DM.tmp.Next;
end;
end;
finally
end;
Doc2 := WebBrowser1.Document as IHTMLDocument2;
Win2 := Doc2.parentWindow;
latlng := '46.818188,8.227512';
Win2.execScript('map.panTo(new GLatLng(' + latlng + '));', 'JavaScript');
WebBrowser1.ExecJScript('addControl(1);');
end;
Danke für Eure Tipps
Manfred