render bounds of range

lazpaintcontrols/lcvectororiginal.pas

@@ -391,7 +391,8 @@ type
     procedure Render(ADest: TBGRABitmap; ARenderOffset: TPoint; AMatrix: TAffineMatrix; ADraft: boolean); override;
     procedure ConfigureEditor(AEditor: TBGRAOriginalEditor); override;
     function CreateEditor: TBGRAOriginalEditor; override;
-    function GetRenderBounds(ADestRect: TRect; {%H-}AMatrix: TAffineMatrix): TRect; override;
+    function GetRenderBounds(ADestRect: TRect; {%H-}AMatrix: TAffineMatrix): TRect; overload; override;
+    function GetRenderBounds(ADestRect: TRect; {%H-}AMatrix: TAffineMatrix; AStartIndex, AEndIndex: integer): TRect; overload;
     function GetAlignBounds(ADestRect: TRect; {%H-}AMatrix: TAffineMatrix): TRect;
     procedure LoadFromStorage(AStorage: TBGRACustomOriginalStorage); override;
     procedure SaveToStorage(AStorage: TBGRACustomOriginalStorage); override;
@@ -2713,7 +2714,7 @@ end;
 
 function TVectorOriginal.PreferDraftMode(AEditor: TBGRAOriginalEditor; const AMatrix: TAffineMatrix): boolean;
 begin
-  if Assigned(SelectedShape) then
+  if Assigned(SelectedShape) and Assigned(AEditor) then
   begin
     result := (AEditor.IsMovingPoint or SelectedShape.IsFollowingMouse) and
               SelectedShape.GetIsSlow(AMatrix);
@@ -2843,6 +2844,12 @@ end;
 
 function TVectorOriginal.GetRenderBounds(ADestRect: TRect;
   AMatrix: TAffineMatrix): TRect;
+begin
+  result := GetRenderBounds(ADestRect, AMatrix, 0, ShapeCount-1);
+end;
+
+function TVectorOriginal.GetRenderBounds(ADestRect: TRect;
+  AMatrix: TAffineMatrix; AStartIndex, AEndIndex: integer): TRect;
 var
   area, shapeArea: TRectF;
   i: Integer;
@@ -2852,7 +2859,7 @@ var
 begin
   area:= EmptyRectF;
   useStorage := Assigned(RenderStorage) and (RenderStorage.AffineMatrix['last-matrix']=AMatrix);
-  for i:= 0 to FShapes.Count-1 do
+  for i:= AStartIndex to AEndIndex do
   begin
     if useStorage then
     begin