1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
procedure TfrmWebBrowser.btnShowMapClick(Sender: TObject);
var
aStringList :TStringList;
fltLatOld,
fltLonOld : Single;
i :Integer;
begin
aStringList := TStringList.Create;
aStringList.StrictDelimiter := True;
aStringList.Delimiter := ';';
Js:= Format('map.fitBounds([[%n, %n],' +
'[%n, %n]]);',
[rcdFlight.fltMinLat, rcdFlight.fltMinLon,
rcdFlight.fltMaxLat, rcdFlight.fltMaxLon]);
wbrMap.BeginUpdate;
wbrMap.EvaluateJavaScript(Js);
wbrMap.EndUpdate;
for i:= 0 to gslMapWayPoints.Count-1 do
begin
aStringList.DelimitedText := gslMapWayPoints[i];
Js:= Format('L.marker([%n, %n], {icon:myIcon}).addTo(map);',
[strToFloat(aStringList[0]),
strToFloat(aStringList[1])]);
//aStringList[2]]);
if i > 0 then
Js:= Js + Format('L.polygon([[%n, %n], [%n, %n]],'+
' {color: "red"}).addTo(map);',
[fltLatOld, fltLonOld,
strToFloat(aStringList[0]),
strToFloat(aStringList[1])]);
wbrMap.BeginUpdate;
wbrMap.EvaluateJavaScript(Js);
wbrMap.EndUpdate;
if i <= gslMapWayPoints.Count-2 then
begin
fltLatOld := strToFloat(aStringList[0]);
fltLonOld := strToFloat(aStringList[1]);
end;
end;
aStringList.Free; |
Partager