From 67a2b95fac472040beddefb18ea49a991e715086 Mon Sep 17 00:00:00 2001
From: yangjixian <yangjixian@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 31 Dec 2011 09:01:31 +0000
Subject: [PATCH] Fix stretch bug.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2205 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/lazimageeditor/DLBmpUtils.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/applications/lazimageeditor/DLBmpUtils.inc b/applications/lazimageeditor/DLBmpUtils.inc
index 4e428cb8e..0854165e1 100644
--- a/applications/lazimageeditor/DLBmpUtils.inc
+++ b/applications/lazimageeditor/DLBmpUtils.inc
@@ -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];