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...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

×
×
  • Create New...