标签：do begin end 力图 AHeatmap FieldByName ChinaCock 高德 图文

这是实际项目截取的热力图，接下来，看看我们怎么实现他？

 

地图组件，给我们提供了Heatmaps属性，管理热力图，这是一个List，支持我们在地图上增加多个热力图，并且控制每个热力图的隐藏与显示。

具体操作分三步：

一、取得热力图对象

为了增加一个热力图，需要调用Heatmaps.Add方法，该方法返回一个热力图对象。

    AHeatmap := self.CCuniGUIAMap1.Heatmaps.Add;

二、为热力图填写数据

通过为热力图对象AHeatmap填加数据，就能得到要显示的热力图。具体实现见代码，我把一个kbmMWClientQuery查询到的结果，填加到AHeatmap.DataSet.Data中。

with ClientQuery1 do 
begin
      First;
      while not eof do
      begin
        // 添加热力图数据
        with DataSet do
        begin
          // max: Number 权重的最大值, 其中max不填则取数据集count最大值
          Max := 1000;//热力图的阀值
          with Data.Add do
          begin
            Lng := FieldByName('FJD').AsFloat;//经纬度
            Lat := FieldByName('FWD').AsFloat;//经纬度
            Count := FieldByName('FData1').AsFloat;//
          end;
        end;
        next;
      end;
end;

三、显示热力图

填加完数据，再把图加到地图上，热力图就显示出来了：

AHeatmap.AddToMap;

 

标签：do,begin,end,力图,AHeatmap,FieldByName,ChinaCock,高德,图文
来源： https://www.cnblogs.com/kinglandsoft/p/16290700.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。