TTMSFNCLeaflet.HeatMaps Property
Provides the heat map collection.
API unit family: TMSFNCLeaflet
Declaring type: TTMSFNCLeaflet
Inherited from: TTMSFNCCustomLeaflet
Type: TTMSFNCLeafletHeatMaps
Syntax
property HeatMaps: TTMSFNCLeafletHeatMaps;
__property TTMSFNCLeafletHeatMaps* HeatMaps = {read=GetHeatMaps, write=SetHeatMaps};
Usage examples
Add a Leaflet heat map
Populates a HeatMaps layer with weighted coordinates and gradient colors.
procedure TForm1.ConfigureLeafletHeatMap;
var
LHeatMap: TTMSFNCLeafletHeatMap;
LWeightedCoordinate: TTMSFNCMapsWeightedCoordinate;
begin
TMSFNCLeaflet1.HeatMaps.Clear;
LHeatMap := TMSFNCLeaflet1.HeatMaps.Add;
LHeatMap.Opacity := 0.6;
LHeatMap.GradientStartColor := gcGreen;
LHeatMap.GradientMidColor := gcYellow;
LHeatMap.GradientEndColor := gcRed;
LWeightedCoordinate := LHeatMap.WeightedCoordinates.Add;
LWeightedCoordinate.Coordinate.Latitude := 51.5074;
LWeightedCoordinate.Coordinate.Longitude := -0.1278;
LWeightedCoordinate.Weight := 0.9;
LWeightedCoordinate := LHeatMap.WeightedCoordinates.Add;
LWeightedCoordinate.Coordinate.Latitude := 51.5155;
LWeightedCoordinate.Coordinate.Longitude := -0.1419;
LWeightedCoordinate.Weight := 0.6;
end;
void __fastcall TForm1::ConfigureLeafletHeatMap()
{
TMSFNCLeaflet1->HeatMaps->Clear();
TTMSFNCLeafletHeatMap *LHeatMap = TMSFNCLeaflet1->HeatMaps->Add();
LHeatMap->Opacity = 0.6;
LHeatMap->GradientStartColor = gcGreen;
LHeatMap->GradientMidColor = gcYellow;
LHeatMap->GradientEndColor = gcRed;
TTMSFNCMapsWeightedCoordinate *LWeightedCoordinate = LHeatMap->WeightedCoordinates->Add();
LWeightedCoordinate->Coordinate->Latitude = 51.5074;
LWeightedCoordinate->Coordinate->Longitude = -0.1278;
LWeightedCoordinate->Weight = 0.9;
LWeightedCoordinate = LHeatMap->WeightedCoordinates->Add();
LWeightedCoordinate->Coordinate->Latitude = 51.5155;
LWeightedCoordinate->Coordinate->Longitude = -0.1419;
LWeightedCoordinate->Weight = 0.6;
}