From 1d85a03a1180af543b885ee112d8335ae309ae58 Mon Sep 17 00:00:00 2001 From: Raymond Date: Sat, 19 Dec 2009 16:29:23 +0000 Subject: [PATCH] w0rks now. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@292 3f818213-9676-44b0-a9b4-5e4c4e03d09d --- Units/MMLCore/bitmaps.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Units/MMLCore/bitmaps.pas b/Units/MMLCore/bitmaps.pas index abb6723..2fe2a2c 100644 --- a/Units/MMLCore/bitmaps.pas +++ b/Units/MMLCore/bitmaps.pas @@ -555,10 +555,10 @@ begin Self.SetSize(xe-xs+1 + x,ye-ys+1 + y); wi := Min(xe-xs + 1 + x,Self.w); hi := Min(ye-ys + 1 + y,Self.h); - PtrRet := TMWindow(MWindow).ReturnData(xs,ys,wi,hi); + PtrRet := TMWindow(MWindow).ReturnData(xs,ys,wi - x,hi - y); - for yy := 0 to (hi-1) do - Move(PtrRet.Ptr[yy * (wi + PtrRet.IncPtrWith)], FData[(yy + y) * self.w + x],wi * SizeOf(TRGB32)); + for yy := 0 to (hi-1 - y) do + Move(PtrRet.Ptr[yy * (wi - x + PtrRet.IncPtrWith)], FData[(yy + y) * self.w + x],wi * SizeOf(TRGB32)); TMWindow(MWindow).FreeReturnData; end;