Commit 2d4828f9 authored by Martin Schreiber's avatar Martin Schreiber

* tcanvas.internalcopyarea() checks negative size.

parent ca750c2d
......@@ -4573,8 +4573,8 @@ var
end;
begin
if (asourcerect.cx = 0) or (asourcerect.cy = 0) or
(adestrect.cx = 0) or (adestrect.cy = 0) then begin //no div 0
if (asourcerect.cx <= 0) or (asourcerect.cy <= 0) or
(adestrect.cx <= 0) or (adestrect.cy <= 0) then begin //no div 0
exit;
end;
checkgcstate([]); //gc must be valid
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment