Jump to content

LordDelphi

Members
 View Profile  See their activity

  • Posts

    25

  • Joined

  • Last visited

 Content Type 

Posts posted by LordDelphi

    Google Maps for uniGUI

    in Components and Code Samples

    Posted

    I'm trying to add a function to heatmap, but I can only put them and do not pull them. Anybody have any suggestions?

     

    procedure TUniGMap.AddHeatMap(aHeatMap: array of THeatMap);
    var
      i: Integer;
      lat, lng: string;
      Script: string;
    begin
      Script :=
        'HeatMap = new google.maps.visualization.HeatmapLayer({' +
        'radius: ' + StringReplace(Format('%2.2f', [aHeatMap[0].Radius]), ',', '.', [rfReplaceAll]) + ',' +
        'data: getPoints(),' +
        'map: @googleMap@' +
        '});' +
        'function getPoints() {' +
        'return [';

        for i := 0 to Length(aHeatMap) -1 do
          if i <> Length(aHeatMap) -1 then
          begin
            lat := StringReplace(Format('%2.6f', [aHeatMap.Latitude]), ',', '.', [rfReplaceAll]);
            lng := StringReplace(Format('%2.6f', [aHeatMap.Longitude]), ',', '.', [rfReplaceAll]);

            Script := Script + 'new google.maps.LatLng(' + lat + ', ' + lng + '),'
          end
          else
          begin
            lat := StringReplace(Format('%2.6f', [aHeatMap.Latitude]), ',', '.', [rfReplaceAll]);
            lng := StringReplace(Format('%2.6f', [aHeatMap.Longitude]), ',', '.', [rfReplaceAll]);

            Script := Script + 'new google.maps.LatLng(' + lat + ', ' + lng + ')' +
            '];' +
            '}';
          end;

      ExecJScript(Script);
    end;

     

    procedure TUniGMap.RemoveHeatmap;
    begin
        ExecJScript(
        'google.maps.event.clearInstanceListeners(HeatMap);' +
        'HeatMap.setMap(null);');
    end;

    Todos os Brasileiros

    in Portuguese

    Posted

    Pra ser sincero, não acredito muito que deva parar. É um ótimo projeto e acho que em breve ele deve anunciar algum investimento externo (Embarcadero, por exemplo) ou reestruturação do time de desenvolvimento da sua empresa (ou até fazer um anúncio de uma versão comercial). Seria uma pena que este excelente framework fosse descontinuado.

    tb creio q deve aparecer uma novidade positiva. depois de acompanhar o progresso da ferramenta por 2 anos, seria uma pena q a mesma fose descontinuada logo agora as vesperas de uma versão 1.0.

     

    versão essa q anceio a tempos para poder abandonar de vez o EWF.

×
×
  • Create New...