pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix stretch bug.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2205 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
yangjixian
2011-12-31 09:01:31 +00:00
parent 285eee7a79
commit 67a2b95fac
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
applications/lazimageeditor/DLBmpUtils.inc
View File

@ -819,8 +819,8 @@ begin
dh := aHeight;
Dest.Width := dw;
Dest.Height := dh;
m := ypos div ih;
n := xpos div iw;
m := Trunc(ypos / ih);
n := Trunc(xpos / iw);
for i := ypos to ylen - 1 do
begin
LScan1 := Dest.Scanline[i - ypos];