Hallo,
ich habe folgendes Problem:
am Ende des folgenden Codes will ich den Zoombereich automatisch setzen. Das funktioniert in beiden Varianten nicht.
K?nnen Sie mir helfen?
var
i:Integer;
m: TMarker;
zb:TBounds;
begin
i:Integer;
m: TMarker;
zb:TBounds;
begin
try
WebGMaps1.MapOptions.DefaultLatitude:=StrToFloat(StringReplace(FLat,'.',',', [rfReplaceAll]));
WebGMaps1.MapOptions.DefaultLongitude:=StrToFloat(StringReplace(FLong,'.',',',[rfReplaceAll]));
WebGMaps1.MapOptions.ZoomMap:=12;
WebGMaps1.Launch;
WebGMaps1.MapOptions.ZoomMarker := zmToggle;
WebGMaps1.Markers.Clear;
ValueListEditor1.Strings.AddPair('0','Alle');
for i:=0 to FRecCount - 1 do begin
if(Length(FEHDaten.lat) > 3)and(Length(FEHDaten.lon) > 3) then begin
m:=WebGMaps1.Markers.Add;
m.Shape:=msFlagSmall;
m.ShapeColor:=clBlue;
m.Latitude:=StrToFloat(StringReplace(FEHDaten.lat,'.',',',[rfReplaceAll]));
m.Longitude:=StrToFloat(StringReplace(FEHDaten.lon,'.',',',[rfReplaceAll]));
m.Title:=FTitel;
m.MapLabel.Text:='<b>'+FEHDaten.fullyNr+'</b>';
m.MapLabel.Color:=clCream; // clAqua;
//m.MapLabel.BorderColor:=clRed;
m.MapLabel.Font.Color:=clRed;
m.MapLabel.Font.Size:=11;
m.MapLabel.Font.Name:='Tahoma';
m.MapLabel.OffsetTop:=40;
m.Draggable:=false;
WebGMaps1.CreateMapMarker(m);
end;
end;
zb:=TBounds.Create;
zb.NorthEast.Latitude:=FNOlat; //52.946
zb.NorthEast.Longitude:=FNOlon; //9.58
zb.SouthWest.Latitude:=FSWlat; //52.79
zb.SouthWest.Longitude:=FSWlon; //9.03
WebGMaps1.MapOptions.ZoomMarker:=zmToggle;
WebGMaps1.MapZoomTo(zb);
//WebGMaps1.MapZoomTo(WebGMaps1.Markers.Bounds);
finally
zb.Free;
end;
WebGMaps1.MapOptions.DefaultLatitude:=StrToFloat(StringReplace(FLat,'.',',', [rfReplaceAll]));
WebGMaps1.MapOptions.DefaultLongitude:=StrToFloat(StringReplace(FLong,'.',',',[rfReplaceAll]));
WebGMaps1.MapOptions.ZoomMap:=12;
WebGMaps1.Launch;
WebGMaps1.MapOptions.ZoomMarker := zmToggle;
WebGMaps1.Markers.Clear;
ValueListEditor1.Strings.AddPair('0','Alle');
for i:=0 to FRecCount - 1 do begin
if(Length(FEHDaten.lat) > 3)and(Length(FEHDaten.lon) > 3) then begin
m:=WebGMaps1.Markers.Add;
m.Shape:=msFlagSmall;
m.ShapeColor:=clBlue;
m.Latitude:=StrToFloat(StringReplace(FEHDaten.lat,'.',',',[rfReplaceAll]));
m.Longitude:=StrToFloat(StringReplace(FEHDaten.lon,'.',',',[rfReplaceAll]));
m.Title:=FTitel;
m.MapLabel.Text:='<b>'+FEHDaten.fullyNr+'</b>';
m.MapLabel.Color:=clCream; // clAqua;
//m.MapLabel.BorderColor:=clRed;
m.MapLabel.Font.Color:=clRed;
m.MapLabel.Font.Size:=11;
m.MapLabel.Font.Name:='Tahoma';
m.MapLabel.OffsetTop:=40;
m.Draggable:=false;
WebGMaps1.CreateMapMarker(m);
end;
end;
zb:=TBounds.Create;
zb.NorthEast.Latitude:=FNOlat; //52.946
zb.NorthEast.Longitude:=FNOlon; //9.58
zb.SouthWest.Latitude:=FSWlat; //52.79
zb.SouthWest.Longitude:=FSWlon; //9.03
WebGMaps1.MapOptions.ZoomMarker:=zmToggle;
WebGMaps1.MapZoomTo(zb);
//WebGMaps1.MapZoomTo(WebGMaps1.Markers.Bounds);
finally
zb.Free;
end;