即使使用 MegaDemo 和 heapmap.csv,我们也看不到 TGMheatmap 是如何工作的。我们为 TGMheatmap 设置的属性与为 MageDemo 设置的属性相同(语言除外),我们在 FormCreate 中执行此操作:
procedure TForm1.FormCreate(Sender: TObject);
begin
DefLat := 52.189746;
DefLng := -2.215933;
GMMap1.RequiredProp.Center.Lat := DefLat;
GMMap1.RequiredProp.Center.Lng := DefLng;
GMMap1.Active := True;
GMHeatmap.LoadFromCSV(0, 1, 'C:\Temp\svhscusts.csv', ',', True, True);
end;
这在一个用于显示热图的按钮中
procedure TForm1.BHeatmapClick(Sender: TObject);
begin
GMMap1.SetCenter(52.189746, -2.215933);
GMMap1.RequiredProp.Zoom := 13;
GMHeatmap.Show := not GMHeatmap.Show;
end;
数据文件的格式为(各占一行)
52.00240,-2.11490 52.00240,-2.11490 52.00200,-2.11400 52.00200,-2.11400 52.00400,-2.10950 52.00400,-2.10950 52.00400,-2.10950
由于 MegaDemo [似乎] 没有按预期工作,也许使用/更新 MegaDemo 将是解释什么不工作(或我们没有正确做)的最简单方法。
顺便说一句,优秀的软件。如果谷歌会降低它对小客户的许可费,我们可以正确使用它