Jump to content
uniGUI Discussion Forums
Sign in to follow this  
patmap

Google Map New Component

Recommended Posts

Hi patmap,

 

I want that when I click on unigooglemap, get Latitude and Longitude. How do this?

Share this post


Link to post
Share on other sites

how install googlemap component on uniGUI Beta 0.94.0

i use xe5

 

can not find ExtPascal

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
Sign in to follow this  

×