Hello,
I'm having trouble generating heatmaps with Google Maps. It works when using OpenLayers; however, with Google Maps, the heatmap doesn't appear. Below is the example I'm using, which is yielding two different results.
Example:
procedure TForm1.Button1Click(Sender: TObject);
var
ca: TTMSFNCMapsCoordinateRecArray;
I: integer;
lat, lon: real;
begin
lat := -25.1187224;
lon := -50.1516473;
SetLength(ca, 5000);
for i := 0 to 4999 do
begin
//-25.1187224,-50.1516373
if (i mod 100) = 0 then
begin
lat := lat + 0.0000211;
lon := lon + 0.0000424;
end;
ca[i].Latitude := lat;
ca[i].Longitude := lon;
lat := lat + 0.0000011;
lon := lon + 0.0000024;
//Optional setting
ca[i].Weight := 1;
end;
//
TMSFNCGoogleMaps1.BeginUpdate;
hm := TMSFNCGoogleMaps1.AddHeatMap(ca);
//Optional settings
hm.Opacity := 1;
hm.GradientStartColor := gcGreen;
hm.GradientMidColor := gcYellow;
hm.GradientEndColor := gcRed;
//
TMSFNCGoogleMaps1.EndUpdate;
TMSFNCOpenLayers1.BeginUpdate;
hm := TMSFNCOpenLayers1.AddHeatMap(ca);
//Optional settings
hm.Opacity := 1;
hm.GradientStartColor := gcGreen;
hm.GradientMidColor := gcYellow;
hm.GradientEndColor := gcRed;
//
TMSFNCOpenLayers1.EndUpdate;
end;