diff --git a/components/tvplanit/source/vpcanvasutils.pas b/components/tvplanit/source/vpcanvasutils.pas
index 8dffef071..b4d104088 100644
--- a/components/tvplanit/source/vpcanvasutils.pas
+++ b/components/tvplanit/source/vpcanvasutils.pas
@@ -1799,6 +1799,7 @@ var
 begin
   Result := False;
   Done   := False;
+  GetRgnBox (ARegion, @WorkRect);
   while not Done do begin
     if HPos > WorkRect.Right then begin 
       HPos := WorkRect.Left;