On Cluster Click

VCL TMS VCL WebGMaps
1

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
2

Hi,


I have not been able to reproduce an issue with the OnClusterClick event in combination with the sample code you provided.

Can you please provide a sample project by email that demonstrates the issue so I can further investigate this?
Please also include exact instructions to reproduce the issue.


3

It also happens in your cluster demo, albeit not has reliably. Anyway I've emailed a sample project (via this page: https://www.tmssoftware.com/site/support_mail.asp) that demonstrates the issue. 


Can you let me know if/when you got it?

Thanks Bart
4

I've received your sample project and I'm currently investigating this issue.