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

StreetView

Vous êtes ici :TECMap

La propriété StreetView de type TECMapStreetView vous permet de gérer l'affichage StreetView

Non disponible sous CloudMade

25

Fig. 49 Vue StreetView

  1. Barre de contrôles
  2. Panneau d'adresse
  3. Bouton de fermeture
  4. Liens directionnels

TECMapStreetView

Elle donne accés aux propriétés et méthodes suivantes

procedure SetPosition(const dLatitude,dLongitude:double);

Change la position du point de vue

Déclenche les évènements OnStreetViewPosition et OnStreetViewAvailable
procedure ReDraw;
Redessine la vue pour prendre en compte les options autres que celles relative à la caméra et à la position
property Visible : boolean;

Propriété en lecture/écriture pour afficher ou non la vue StreetView

Déclenche l'évènement OnStreetViewVisible
property Adress : string;
Propriété en lecture retourne l'adresse du lieu
property Available : boolean;
Propriété en lecture pour déterminer si StreetView est disponible à cet endroit
property Latitude : double;
Propriété en lecture/écriture pour définir la latitude, voir SetPosition
property Longitude: double;
Propriété en lecture/écriture pour définir la longitude, voir SetPosition
property Heading : integer;

Propriété en lecture/écriture pour définir la direction de visée de la caméra, 0° = Nord, 90° = Est, 180° = Sud et 270° = Ouest

Déclenche l'évènement OnStreetViewPOV
property Pitch : integer;

Propriété en lecture/écriture pour définir la rotation verticale de la caméra, de 90° à -90°

Déclenche l'évènement OnStreetViewPOV
property Zoom : integer;

Propriété en lecture/écriture pour définir le niveau de zoom

Déclenche l'évènement OnStreetViewPOV
property NavigationControl : boolean;
Propriété en lecture/écriture pour afficher ou non la barre de contrôles
property NavigationPosition : TControlPosition;

Propriété en lecture/écriture permet de définir la position de la barre de contrôles

Les valeurs possibles sont :

  • cpTopLeft
  • cpTopCenter
  • cpTopRight,
  • cpRightTop
  • cpRightCenter
  • cpRightBottom
  • cpBottomRight
  • cpBottomCenter
  • cpBottomLeft
  • cpLeftBottom
  • cpLeftCenter
  • cpLeftTop
property NavigationStyle : string;

Propriété en lecture/écriture pour styler la barre de contrôles

Vous avez le choix entre :
  • DEFAULT
  • ANDROID
  • LARGE
  • SMALL
property AdrControl : boolean;
Propriété en lecture/écriture pour afficher ou non le panneau d'adresse
property AdrPosition : TControlPosition;
Propriété en lecture/écriture permet de définir la position de l'adresse, voir NavigationPosition pour les valeurs
property AdrCss : string;
Propriété en lecture/écriture pour attribuer un style CSS à l'adresse
property CloseBtnVisible : boolean;
Propriété en lecture/écriture pour afficher ou non le bouton de fermeture de la vue StreetView
property LinkVisible : boolean;
Propriété en lecture/écriture pour afficher ou non les liens directionnels
property ToTxt : string;
Propriété en lecture/écriture qui donne accès aux paramètres de StreetView sous la forme d'une chaîne texte

FPoly : TECShapePolygone;

FPoly := TECShapePolygone(map.add(nsPolygon,Lat,Lng)) ;
FPoly.OnAfterDraw := doAfterDraw;
FPoly.Description := 'Polygone '+inttostr(map.Shapes.Polygones.Count);

procedure TFormNativeLinePolygone.doAfterDraw(const canvas:TECCanvas;var Rect:TRect;item:TECshape) ;
var x,y,w,h:integer;
begin
//transparancy text
canvas.brush.Style := bsClear;

canvas.font.color := clBlack;
canvas.font.Style := [fsBold];

w := canvas.TextWidth(item.Description) ;
h := canvas.TextHeight(item.Description);

x := rect.Left+((rect.Right-rect.Left-w) div 2);
y := rect.top+((rect.bottom-rect.top-h) div 2);

canvas.TextOut(x,y,item.Description);

end;


Évènements

OnStreetViewAvailable(sender: TObject; const bVisible: Boolean);
Déclenché lorsque la disponibilité de la vue StreetView change, bVisible est à true si StreetView est disponible, false sinon
OnStreetViewPosition(sender: TObject; const dLatitude, dLongitude: Double);
Déclenché lors du changement de position en latitude,longitude
OnStreetViewPOV(Sender: TObject);
Déclenché lors du changement d'axe de la caméra ou du changement zoom
OnStreetViewVisible(sender: TObject;const bVisible: Boolean);

Déclenché lorsque la vue StreetView devient soit visible soit non visible

La fermeture de la vue par le bouton X déclenche cet évènement avec bVisible à false

49

Démonstration

Le programme DemoMobile vous montre une utilisation de StreetView

Fig. 50 Une vue StreetView connectée à une vue carte
Fig. 50 Une vue StreetView connectée à une vue carte
Aller à la page
Composant Delphi / Google Maps / OpenStreetMap / Leaflet  / Mappilary© 2016 ESCOT-SEP Christophe - Réalisé avec Help&Web - RSS - RSS - Google+