Hello,
First of all, thank you for the WebGMaps product. It's fantastic.
We are experiencing some weird inconsistencies on the OnClickEvent of the map clusters. About 60% of the time, when we click the cluster the showmessage appears. However about 40% of the time we click it it does nothing. If we double click the cluster, the event fires. Using Delphi Seattle + WebGMaps 3.0.0.3. What's going on here?
uses
UWebGMapsMarkers,
UWebGMapsClusters;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
c : TMapCluster;
Marker : TMarker;
begin
c := WebGMaps1.Clusters.Add().Cluster;
c.Title := 'Multiple Pins';
c.ZoomOnClick := False;
c.GridSize := 60;
c.IgnoreHidden := True;
Marker := WebGMaps1.Markers.Add(40.391537, -104.681168, 'TestPinLabe', '', False, True, True, True, False, 0, icDefault);
Marker.Tag := 0;
Marker.Data := 'MiscData';
Marker.Cluster := WebGMaps1.Clusters[0].Cluster;
Marker := WebGMaps1.Markers.Add(40.391537, -104.681168, 'TestPinLabe', '', False, True, True, True, False, 0, icDefault);
Marker.Tag := 0;
Marker.Data := 'MiscData';
Marker.Cluster := WebGMaps1.Clusters[0].Cluster;
WebGMaps1.CreateMapCluster(WebGMaps1.Clusters[0].Cluster);
end;
procedure TForm1.WebGMaps1ClusterClick(Sender: TObject; IdCluster,
MarkerCount: Integer; Latitude, Longitude: Double);
begin
showmessage('here');
end