Browse Source

* patch by Werner Pamler: Typo in TFPCustomCanvas.Draw, resolves #40176

florian 2 years ago
parent
commit
1fad287896
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-image/src/fpcanvas.inc

+ 1 - 1
packages/fcl-image/src/fpcanvas.inc

@@ -786,7 +786,7 @@ begin
   if xm >= width then
   if xm >= width then
     xm := width - 1;
     xm := width - 1;
   ym := y + image.height-1;
   ym := y + image.height-1;
-  if (ym<0) or (y>width) then exit;
+  if (ym<0) or (y>height) then exit;
   if ym >= height then
   if ym >= height then
     ym := height - 1;
     ym := height - 1;
   xi := x;
   xi := x;