paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 18:10:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from bug #18460

Browse Source 
git-svn-id: trunk@16745 -
This commit is contained in:
michael 2011-01-10 14:10:41 +00:00
parent 131b7fcdb2
commit 673497d15b
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -582,16 +582,16 @@ end;
procedure TFPCustomCanvas.CopyRect (x,y:integer; canvas:TFPCustomCanvas;
SourceRect:TRect);
var xx,r,t : integer;
var yy,r,t : integer;
begin
SortRect (SourceRect);
with SourceRect do
for r := left to right do
begin
xx := r - left + x;
for t := bottom to top do
colors[xx,(t - bottom + y)] := canvas.colors[r,t];
end;
with SourceRect do begin
for t := top to bottom do begin
yy := t - top + y;
for r := left to right do
colors[r - left + x,yy] := canvas.colors[r,t];
end;
end;
end;
procedure TFPCustomCanvas.Draw (x,y:integer; image:TFPCustomImage);