Composant Delphi / Google Maps / OpenStreetMap / Leaflet  / Mappilary / Native Maps 100% Delphi 0% WebBrowser 0% Javascript

TECShapeInfoWindow

Vous êtes ici :TECNativeMap > Shapes

TECShapeInfoWindow vous permet d'afficher un panneau contenant du texte et des images.

Les fenêtres sont gérés par une liste de type TECShapeList accessible au travers de la propriété InfoWindows des groupes TECShapes

Fig. 116 InfoWindow

TECShapeInfoWindow

Les propriétés suivantes sont disponibles

property Color : TColor
Couleur de la fenêtre
property Style : TECInfoWindowStyle
Style de la fenêtre : iwsTransparent, iwsRectangle ou iwsRoundRect (par defaut)
property Visible : boolean
Affiche / Cache la fenêtre

property CloseButton : boolean

Affiche / Cache le bouton de fermeture

property ContentCenter : boolean

Centrer le texte horizontalement

property Width : integer;

Largeur en pixel
property Height : integer;
Hauteur maximale, si le contenu prend moins de place alors la hauteur est automatiquement ajustée
property Content : string
Texte à afficher

Vous pouvez utiliser un sous ensemble de HTML pour enrichir l'affichage

92

Les balises <img>,<a>, <h>, <tab>, <b>, <i>, <u>, <s>, <font>, <br> et <PlainText> sont supportées

map.Shapes.InfoWindows.add(map.latitude,map.longitude, 'content');
// html content
map.Shapes.InfoWindows[0].Content :=
'<h2>Titre</h2>'+
'<tab="32"><b>Bold</b><br>'+
'<tab="32"><font face="Times New Roman" size=14 bkcolor=FF0000 color=FFFFFF>Font</font><br>'+
'<tab="32"><a href="#16/43.094089/-0.046520">Link Lourdes</a> <img src="http://maps.google.com/mapfiles/ms/icons/orange-dot.png" width=32 height=32>';



Fig. 117 html Content InfoWindow

property OnOpen : TOnInfoWindowOpen;

Cet événement est déclenché juste avant que le fenêtre ne soit visible, vous pouvez changez le contenu ou annuler l'ouverture

win.OnOpen := doOnOpenWindow;
...
procedure TForm.doOnOpenWindow(const infoWindow: TECShapeInfoWindow; var cancel: boolean);
begin
// set cancel to true for not open then infowindow (default false)
// cancel := true;

infoWindow.Content := 'change content here';

end;
Lorsqu'une fenêtre est fermée en cliquant sur sa croix l'évenement OnCloseInfoWindow de TECNativeMap est déclenché et une TECShapeInfoWindow lui est passé en paramètre.

OnCloseInfoWindow ne se déclenche pas si on ferme en utilisant la propriété visible

33

Lien

Vous pouvez définir un lien à l'aide de la balise <a>, pour intercepter le click branchez-vous sur l'événement OnBeforeUrl de votre carte.

s := '<a href="#your_data"> link </a>';
OpenInfoWindow (s, Item.Latitude, Item.Longitude);

...

Procedure TForm.mapBeforeUrl (Sender: TObject; var Url: string);
Beginners
// here url = '#your_data'
End;

Vous avez la possibilité de définir un lien spécial qui vous permet de vous déplacer sur la carte, il est de la forme #zoom/latitude/longitude

'<a href="#16/43.094089/-0.046520"> goto here </a>'
Aller à la page
Composant Delphi / Google Maps / OpenStreetMap / Leaflet  / Mappilary© 2016 ESCOT-SEP Christophe - Réalisé avec Help&Web - RSS - RSS - Google+