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; dh := aHeight;
Dest.Width := dw; Dest.Width := dw;
Dest.Height := dh; Dest.Height := dh;
m := ypos div ih; m := Trunc(ypos / ih);
n := xpos div iw; n := Trunc(xpos / iw);
for i := ypos to ylen - 1 do for i := ypos to ylen - 1 do
begin begin
LScan1 := Dest.Scanline[i - ypos]; LScan1 := Dest.Scanline[i - ypos];