소스 검색

avoid crash when multiselection nil

Johann 5 년 전
부모
커밋
6e84b48284
1개의 변경된 파일5개의 추가작업 그리고 0개의 파일을 삭제
  1. 5 0
      lazpaintcontrols/lcvectororiginal.pas

+ 5 - 0
lazpaintcontrols/lcvectororiginal.pas

@@ -3190,6 +3190,11 @@ begin
       newUnfrozenRangeEnd := idxSelected+1;
     end;
   end else
+  if FMultiselection = nil then
+  begin
+    newUnfrozenRangeStart := 0;
+    newUnfrozenRangeEnd := ShapeCount;
+  end else
   begin
     multiSel := FMultiselection.GetAsMultishape;
     if multiSel.ShapeCount = 0 then