no drawing of shapes on SVG layer

lazpaint/tools/utoolbasic.pas

@@ -144,7 +144,7 @@ implementation
 
 uses Types, Graphics, ugraph, Controls, LazPaintType,
   UResourceStrings, BGRATransform, Math, BGRAPen, LCVectorRectShapes,
-  uimagediff, UStateType, ULoading;
+  uimagediff, UStateType, ULoading, BGRASVGOriginal;
 
 { TVectorialTool }
 
@@ -473,6 +473,11 @@ begin
       MessagePopup(rsTooManyShapesInLayer, 3000);
     end
     else
+    if Manager.Image.LayerOriginalClass[Manager.Image.CurrentLayerIndex] = TBGRALayerSVGOriginal then
+    begin
+      MessagePopup(rsCannotDrawShapeOnSVGLayer, 3000);
+    end
+    else
     begin
       toolDest := GetToolDrawingLayer;
       FSwapColor:= rightBtn;

lazpaint/uresourcestrings.pas

@@ -175,6 +175,7 @@ resourcestring
   rsOpenFilesAsLayers='Open files as layers in a single image';
   rsTooManyLayers='Too many layers';
   rsTooManyShapesInLayer='Too many shapes in layer';
+  rsCannotDrawShapeOnSVGLayer='Cannot draw shape on SVG layer';
   rsAddToImageList='Add files to the image processing list';
   rsOpenFirstFileOnly='Open the first file only';
   rsLayeredImage = 'Layered image';