Jump to content

Google Map New Component


Recommended Posts

  • 2 years later...
  • 2 weeks later...

in procedure

 

Procedure TUniGoogleMap.SetHTML ;
Var AjaxUrl, AjaxParam : String ;
Begin
  If Not (csDesigning in ComponentState) And WebMode And Not SameText(FMapName, 'GoogleMap_Name') Then
  Begin
    AjaxParam := 'isEvent=1&Obj='+ Self.ExtPanel.JSName + '&evt=maploaded' + '&_S_ID='+ UniApplication.UniSession.SessionID ;
    HTML.Text := '<div id="' + FMapName + 'Tag" style="width:100%; height:100%"></div><script>'+FMapName+' = new GoogleMapObject("' + FMapName + 'Tag",' + FloatToStr(FDefaultMapLat, LocalFS)+','+ FloatToStr(FDefaultMapLng, LocalFS) + ',' + IntToStr(FDefaultMapZoom) + ',' +  QuotedStr( AjaxParam ) + ') ;</script>' ;
  End;
End;

can not find Self.ExtPanel.JSName

 

Link to comment
Share on other sites

  • 2 years later...

Hi all

 

I Developed UniGoogleMap component for uniGUI.

 

Last Version 1.4.2 ( For Delphi XE - XE2)

Last Update 2011-12-07

 

important: must be install veriosn uniGUI ver 0.87.0.901 or later.

 

This component is a subclass of TUniHTMLFrame.

So i write a Objective Class for using GoogleMap API (files\GMap.js).

I used Google Map API V3.0

This Class uses a third party Class (markerwithlabel.js).

 

Attention: when you put this component on the form first set MapName property. If you want use multiple Map on your project, must be set unique name for this property.

 

After Install this component add in [uniGUI Additional] section of uniGUI components.

 

I add many future as soon as.

 

Many Thanks to Mr. Farshad for this usefull framework.

 

attachicon.gifuniGoogleMap.png

 

 

Best Regards

Babak Yaghoobi

 

 

 

Hi

How Install in Delphi Berlin ?

Please Help me 

Thanks

Link to comment
Share on other sites

  • 10 months later...
  • 5 months later...

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...