I use Polygons (PolygonType = ptPath) to draw boundaries around agricultural fields. To change the boundaries at run time i make the TPolygonItem editable and then drag as required. This all worked well with version 2.8.0.1 but does not work as expected with 2.9.1.1 or 2.9.4.7. Has a property changed or is there something wrong?
Regards
Tim Murfitt
Hi,
We'll have to investigate how this issue can be fixed as soon as we have been able to allocate sufficient development time.
Thanks for the reply. I have a copy of my programme compiled with
version 2.8.0.1 and it still works fine. If the Google API was causing
the problem would'nt that also be going wrong? I may well be wrong but
it looks like the problem could be due to a change with the component
rather than the api.
That is correct.
I haven't had a chance to test with previous versions of TMS VCL WebGMaps yet.
We'll have to further investigate this.
I dont know if this is relevant but another thing i noticed is that as the mouse goes over the poygon it changes colour. It did not do this in 2.8.0.1
This issue has now been fixed.
The update will be available with the next release of TMS VCL WebGMaps.
Bart
Thanks for fixing the problem. If the next release is not about to come out in the next few days is it possible to have a patch as my client is pushing for a solution?
Thanks
Tim
We plan the next release Monday 19/3
Bruno. Thanks for the release which has half fixed the problem. I can now move my polygon but only if i have not set the Polygon.BorderColor.
WebGMaps1.DeleteAllMapPolygon;
webGMaps1.Polygons.Clear;
PolygonItem := WebGMaps1.Polygons.Add;
// PolygonItem.Polygon.BorderColor := clGreen;
PolygonItem.Polygon.BackgroundColor := clBlue;
PolygonItem.Polygon.BackgroundOpacity := 50;
PolygonItem.Polygon.BorderWidth := 2;
PolygonItem.Polygon.PolygonType := ptPath;
PolygonItem.Polygon.Editable := true;
PolygonItem.Polygon.Clickable := true;
for I := 0 to memo1.Lines.Count - 1 do begin
latlong := memo1.Lines[i];
p := Pos(',',latlong);
Lat := StrToFloat(copy(latlong,1,p-1));
Long := StrToFloat(copy(latlong,p+1,length(latLong) - p));
PolygonItem.Polygon.path.Add(lat,long);
end;
WebGMaps1.CreateMapPolygon(PolygonItem.Polygon);
Regards
Tim
This issue has now been fixed as well.
The update will be available with the next release.
Thank you. All now working as expected.
Hi,