Googlemaps Icons ändern

**manfred_h**

>>ToZie: Danke für die Hilfe

Konnte es lösen:

Delphi-Quellcode:

			<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

  <head>

    <meta http-equiv="content-type" content="text/html"/>

    <title>Google Maps JavaScript API Example</title>

    <script src="http://maps.google.com/maps?file=api&v=2.x&key=ABQIAAAALAyPM0cN5H4k4KM-7W6VQBRf0FePgkyxmUXJn9hmf5uqva2aGBQEHbZ_hWLtb_TV7znBj6MvQHpX5w" type="text/javascript"></script>

    <script type="text/javascript">

    var map; // need this global so Delphi can access it. (at least for now.)

    //<![CDATA[

    function load() {

      if (GBrowserIsCompatible()) {

        map = new GMap2(document.getElementById("map"));

        map.addControl(new GLargeMapControl());

        map.addControl(new GMapTypeControl());

        map.addControl(new GScaleControl());

        map.setCenter(new GLatLng(46.818188, 8.227512), 07);

      }

    }

  function addControl(ctrlType) {

    switch(ctrlType)

    {

    case 1:

      map.addControl(new GSmallMapControl())

      break

    case 2:

      map.addControl(new GMapTypeControl());

      break

    }

  }

  function createMapMarker_member(lat, lng, html) {

    var memberIcon = new GIcon();

    memberIcon.image = "http://www.gideons.ch/fileadmin/scripts/googlemaps/icons/member.png";

    memberIcon.iconSize = new GSize(28, 33);

    memberIcon.iconAnchor = new GPoint(6, 20);

    memberIcon.infoWindowAnchor = new GPoint(5, 1);

    // Set up our GMarkerOptions object literal

    markerOptions = { icon:memberIcon };

    var point = new GLatLng(parseFloat(lat),parseFloat(lng));

    var marker = new GMarker(point, markerOptions);

    var html_m = html;

    GEvent.addListener(marker, "click", function() 

      {marker.openInfoWindowHtml(html_m)}

      );

    //GLog.write(map.addOverlay(marker, markerOptions));  // only for debugging

    map.addOverlay(marker, markerOptions);

    return marker;

  }

    //]]>

    </script>

  <style type="text/css">

  html, body { border: 0px; margin: 0px; padding: 0px; }

  </style>

  </head>

  <body onload="load()" onunload="GUnload()">

    <div id="map" style="width: 500px; height: 490px"></div>

  </body>

</html>

zusammenfalten · markieren

Delphi-Quellcode:

			procedure Tfrm_googlemap.btn_batch_memberClick(Sender: TObject);

var

  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_member(" '+

            DM.tmp.FieldByName('POS_LAT').AsString+'", "'+

            DM.tmp.FieldByName('POS_LNG').AsString+'", "'+

            DM.tmp.FieldByName('F_NAME').AsString + '

'+

            DM.tmp.FieldByName('STR').AsString + '

'+

            DM.tmp.FieldByName('PLZ').AsString + '-'+

            DM.tmp.FieldByName('CITY').AsString + '

'+

            'TEL-P:' + DM.tmp.FieldByName('TELP').AsString + '

'+

            '______________________ 

'+

            'Camp ' + '- '+

            DM.tmp.FieldByName('C_NO').AsString +'", "'+

            '")', 'JavaScript');

          log_window.Lines.Add(

            DM.tmp.FieldByName('POS_LAT').AsString +

            ' ' +

            DM.tmp.FieldByName('POS_LNG').AsString +

            ' ' +

            DM.tmp.FieldByName('F_NAME').AsString); // LogeintragDM.tmp.Next;

          DM.tmp.Next;

        end;

      end;

    finally

    latlng:= DM.tmp.FieldByName('POS_LAT').AsString +','+ DM.tmp.FieldByName('POS_LNG').AsString;

  end;

  Doc2 := WebBrowser1.Document as IHTMLDocument2;

  Win2 := Doc2.parentWindow;

end;

Shalom
Manfred

Googlemaps Icons ändern

Re: Googlemaps Icons ändern

Forumregeln