Polygon non editable at Runtime

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 but does not work as expected with or  Has a property changed or is there something wrong?

Tim Murfitt


I have noticed problems with resizing polygons on the map.
The issue is most likely related to changes in the Google Maps API which we have no control over.
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 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

This issue has now been fixed.
The update will be available with the next release of TMS VCL WebGMaps.


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?


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.

  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));


This issue has now been fixed as well.
The update will be available with the next release.

Thank you.  All now working as expected.

how can i create a polygone in TMS VCL WebOSMAps??
< id="source-is" name="text-is" ="" wrap="SOFT" dir="ltr" spellcheck="false" autocapitalize="off" autocomplete="off" autocorrect="off" ="goog- short_text" style=": rgba255, 255, 255, 0; border-width: initial; border-style: none; border-color: initial; resize: none; display: block; color: silver; : ; top: 0px; font-family: arial, sans-serif; font-size: 24px; width: 634px; padding: 8px 20px 32px 8px; margin: 0px; height: 67px; outline: none; overflow-y: ; overflow-x: auto;"><br class="Apple-interchange-newline"><div></div>
I can create polygon on my program if I manually enter the coordinates

how can i create a polygone in TMS VCL WebOSMAps??
I can create polygon on my program if I manually enter the coordinates


Adding Poylines/Polygons is demonstrated in the WebOSMaps Demo application included with the product download.