TTMSFNCOpenLayers.Clusters Property

Provides the marker cluster collection.

API unit family: TMSFNCOpenLayers Declaring type: TTMSFNCOpenLayers Inherited from: TTMSFNCCustomOpenLayers Type: TTMSFNCOpenLayersClusters

Syntax

FMX.TMSFNCOpenLayers.hppPascalC++

property Clusters: TTMSFNCOpenLayersClusters;

__property TTMSFNCOpenLayersClusters* Clusters = {read=FClusters, write=SetClusters};

Usage examples

Configure marker anchors and styled clusters

Uses DefaultAnchor, Anchor, ImagePath, FillColor, FontColor, and StrokeColor for clustered markers.

Configure marker anchors and styled clustersPascalC++

procedure TForm1.ConfigureOpenLayersMarkersAndClusters;
var
  LCluster: TTMSFNCOpenLayersCluster;
  LMarker: TTMSFNCOpenLayersMarker;
begin
  TMSFNCOpenLayers1.Markers.Clear;
  TMSFNCOpenLayers1.Clusters.Clear;

  LCluster := TMSFNCOpenLayers1.Clusters.Add;
  LCluster.ImagePath := 'images/cluster-office.png';
  LCluster.FillColor := gcDodgerblue;
  LCluster.FontColor := gcWhite;
  LCluster.StrokeColor := gcNavy;

  LMarker := TMSFNCOpenLayers1.Markers.Add;
  LMarker.Coordinate.Latitude := 51.5074;
  LMarker.Coordinate.Longitude := -0.1278;
  LMarker.Title := 'London office';
  LMarker.DefaultAnchor := False;
  LMarker.Anchor.X := 16;
  LMarker.Anchor.Y := 32;
  LMarker.Cluster := LCluster;
  LCluster.Markers.Add(LMarker);
end;

void __fastcall TForm1::ConfigureOpenLayersMarkersAndClusters()
{
  TMSFNCOpenLayers1->Markers->Clear();
  TMSFNCOpenLayers1->Clusters->Clear();

  TTMSFNCOpenLayersCluster *LCluster = TMSFNCOpenLayers1->Clusters->Add();
  LCluster->ImagePath = "images/cluster-office.png";
  LCluster->FillColor = gcDodgerblue;
  LCluster->FontColor = gcWhite;
  LCluster->StrokeColor = gcNavy;

  TTMSFNCOpenLayersMarker *LMarker = TMSFNCOpenLayers1->Markers->Add();
  LMarker->Coordinate->Latitude = 51.5074;
  LMarker->Coordinate->Longitude = -0.1278;
  LMarker->Title = "London office";
  LMarker->DefaultAnchor = false;
  LMarker->Anchor->X = 16;
  LMarker->Anchor->Y = 32;
  LMarker->Cluster = LCluster;
  LCluster->Markers->Add(LMarker);
}

Read the related guide