浏览代码

avoid nil error

Johann 6 年之前
父节点
当前提交
339f7e6e12
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lazpaint/utoolbasic.pas

+ 1 - 1
lazpaint/utoolbasic.pas

@@ -509,7 +509,7 @@ begin
     UpdateCursor(cur);
     result := EmptyRect;
   end;
-  if SlowShape then
+  if SlowShape and Assigned(FShape) then
     result := UpdateShape(GetToolDrawingLayer);
 end;