How are functions related to Collections, Map and each other?
My example (3 buttons with the same OnClick)
procedure TForm1.Button2Click(Sender: TObject);
const
cnstDEF_LAT = 2.4;
cnstDEF_LON = 37.6;
cnst_OFF = 2;
var
m: TMarker;
i:integer;
begin
Assert(Sender is TButton);
WebGMaps1.Markers.Clear;
for i:=Ord(Low(TMarkerShape)) to Ord(High(TMarkerShape)) do begin
if (Sender as TButton).Tag = cnstMAV1 then
m := WebGMaps1.Markers.Add()
else
m := WebGMaps1.Markers.Add(cnstDEF_LAT+(i*cnst_OFF), cnstDEF_LON);
with m do begin
Title := Format('%s:%d',['Title',i]);
Clickable := True;
Draggable := True;
Flat := True;
Latitude := cnstDEF_LAT+(i*cnst_OFF);
Longitude := cnstDEF_LON;
Shape := TMarkerShape(i);
ShapeColor := clYellow;
ShapeBorderColor := clGreen;
ShapeScale := 2.0;
end;
if (Sender as TButton).Tag = cnstMAV3 then
WebGMaps1.CreateMapMarker(m);
end;
WebGMaps1.MapPanTo(cnstDEF_LAT, cnstDEF_LON);
WebGMaps1.MapOptions.ZoomMap :=5;
end;
Results:
Button.Tag=cnstMAV1
Empty Map, Markers are not displayed!
Why?
Button.Tag=cnstMAV2
10 Makers, Ok, but the same shape at all!
Why?
Button.Tag=cnstMAV3
I counted 18 Makers, should be 10?
With the TMSVCLWebGMapsDevGuide.pdf , I can’t understand internal processes; also, the doc has not been updated for a long time (for example, see Page 27 below)
The given example has an error in the number of arguments.
- The call Markers.Add() will add a marker to the Markers collection, but not the map itself. To add the marker to the map, you should also call CreateMapMarker(MarkerID) after configuring the marker properties.
- The call Markers.Add(Latitude, Longitude) will automatically add the marker to the map but will not automatically update the marker if the Shape properties has changed. You can call UpdateMapMarker(MarkerID) to update an existing marker.
- The call Markers.Add(Latitude, Longitude) will automatically add the marker to the map as wel as the Markers collection. Calling CreateMapMarker(MarkerID) afterwards will result in 2 markers displayed on the map.
Thank you for notifying us about the error in the doc, this will be corrected as soon as possible.
Now it is more understandable; let me continue my "questions."
How are the Markers bind in the Collection and on the Map?
As far as I understand, it should be a type of bind: one to many, .i.e. can create many Markers on a Map from one Marker in the Collection, and their connections should be permanent.
I get something else, for example:
step 1:
m := WebGMaps1.Markers.Add()
step 2:
WebGMaps1.CreateMapMarker(m)
(one Marker on the Map)
step 3:
WebGMaps1.CreateMapMarker(m)
(two Markers on the Map)
step 4:
WebGMaps1.Markers.Clear
(one Marker remains on the Map but WebGMaps1.Markers.Count=0)
Question:
How Markers in the Collection and on the Map linked?
If there is no hard link between them, how to access the Map Markers, that are not associated with the Collection?
You can indeed call CreateMapMarker for the same MarkerID multiple times and multiple markers will be displayed on the map. However this is not the intended usage of CreateMapMarker because, as you demonstrated, links to all markers on the map except the first marker will be lost.
If you want to preserve links to markers on the map, make sure to only create a marker once for each item in the Markers collection.
Note that DeleteAllMapMarker will only remove the markers from the map, but not the Markers collection. Please make sure to clear the Markers collection as well.
from the drop-down menu, depending on the mouse pointer location, everything is okay, or everything is not working.
If mouse pointer, after drop-down MenyItem Click, stays in the map area not occupied by the Polygon - everything is OK.
If the mouse pointer remains over any Polygon, then Polygons lose their properties, and these properties no longer restored until the program reloaded.
On the last picture, Polygons have "lost", at least, Editable and Hint properties.
