TECShapePoi

Les Pois ( point of interest ) sont équivalents aux markers, la différence est que vous avez 9 formes prédéfinies (Texte, Ellipse, rectangle, triangle, flêche, point de flêche, losange, croix, croix en diagonale, étoile et hexagone) mais vous pouvez aussi prendre en charge vous même leur dessin.

Par défaut les tailles des éléments sont en pixels mais vous pouvez aussi utiliser des mètres en utilisant la propriété POIUnit.

// Delphi map component ECMap

// add POI at center of map
id := map.shapes.Pois.add(map.latitude,map.longitude);

// random form

case random(11) of
0 : map.shapes.pois[id].POIShape := poiEllipse;
1 : map.shapes.pois[id].POIShape := poiStar;
2 : map.shapes.pois[id].POIShape := poiRect;
3 : map.shapes.pois[id].POIShape := poiTriangle;
4 : map.shapes.pois[id].POIShape := poiDiamond;
5 : map.shapes.pois[id].POIShape := poiHexagon;
6 : map.shapes.pois[id].POIShape := poiArrow;
7 : map.shapes.pois[id].POIShape := poiArrowHead;
8 : map.shapes.pois[id].POIShape := poiCross;
9 : map.shapes.pois[id].POIShape := poiDiagCross;

10 : begin
map.shapes.pois[id].POIShape := poiText;
map.shapes.pois[id].Description := 'Poi n°'+inttostr(id);
end;
end;

map.shapes.pois[id].Draggable := true;

map.shapes.pois[id].Color := RGB(random(255),random(255),random(255)) ;

// set hint to this POI
map.shapes.Pois[id].Hint := 'my first POI!';

// by default the size of TECShapePOI is in pixel
// you cant use meter also

// map.shapes.pois[id].POIUnit := puMeter

map.shapes.pois[id].POIUnit := puPixel;

map.shapes.pois[id].width := 32;
map.shapes.pois[id].height:= 32;

Vous pouvez modifier la taille des formes en basculant leur propriété Editable à true

// Delphi map component ECMap

// add POI at center of map
id := map.shapes.Pois.add(map.latitude,map.longitude);

map.shapes.pois[id].POIShape := poiStar;


map.shapes.pois[id].editable := true;

// map.shapes.pois[id].POIUnit := puMeter

map.shapes.pois[id].POIUnit := puPixel;

map.shapes.pois[id].width := 32;
map.shapes.pois[id].height:= 32;

TECMapPois

Les POIs sont gérés par une liste de type TECShapePois accessible au travers de la propriété Pois des groupes TECShapes

la propriété OnOwnerDrawPOI : TOnOwnerDrawPOI permet d'indiquer une procédure pour prendre en charge le dessin des Pois de type poiOwnerDraw

// Delphi map component ECMap


map.Shapes.Pois.OnOwnerDraw := doOwnerDrawPOI;
...

// owner draw poi, here transparancy text
procedure TFormPoi.doOwnerDrawPOI(const canvas:TCanvas;var Rect:TRect;item:TECMapPoi) ;
var x,y,w,h:integer;
begin

canvas.brush.Style := bsClear;

if item.Hover then
canvas.font.color := item.HoverColor
else
canvas.font.color := item.color;


canvas.font.Style := [fsBold];

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

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.Hint);

end;

Vous avez aussi une propriété OnAfterDraw qui permet de dessiner par dessus une figure, exemple pour y inscrire son numéro.

// Delphi map component ECMap


map.Shapes.Pois.OnAfterDraw := doAfterDrawPOI;
...

// after draw poi, here write is number
procedure TFormPoi.doAfterDrawPOI(const canvas:TCanvas;var Rect:TRect;item:TECMapPoi) ;
var x,y,w,h : integer;
s : string;
begin

canvas.font.style := [fsBold];

s := inttostr(item.IndexOf);


w := canvas.TextWidth(s) ;
h:= canvas.TextHeight(s) ;


x := 1+((r.Left + r.Right) - w) DIV 2 ;
y := 1+((r.Top + r.Bottom) - h) DIV 2 ;

canvas.brush.Style := bsClear;

canvas.font.color := clWhite;

canvas.TextRect(r,x,y,s);
end;

Comme pour les TECShapeMarker la propriété Scale permet d'ajuster la taille et ScaleMarkerToZoom est aussi fonctionnelle.