paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
florian 2023-03-03 21:45:35 +01:00
parent 708aaa7b97
commit 1fad287896
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-image/src/fpcanvas.inc
View File

@ -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;