From f49f0ed8703f43d1e5dfcc594553f5f8f7cfa99b Mon Sep 17 00:00:00 2001 From: Wizzup? Date: Wed, 23 Sep 2009 00:10:40 +0000 Subject: [PATCH] Few changes. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@82 3f818213-9676-44b0-a9b4-5e4c4e03d09d --- Units/MMLCore/window.pas | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/Units/MMLCore/window.pas b/Units/MMLCore/window.pas index 68403b8..cc75f70 100644 --- a/Units/MMLCore/window.pas +++ b/Units/MMLCore/window.pas @@ -384,8 +384,6 @@ var begin Self.GetDimensions(w, h); - writeln(inttostr(xs) + ', ' + inttostr(ys) + ' : ' + inttostr(xe) + ', ' + - inttostr(ye)); ww := xe-xs; hh := ye-ys; if(xs < 0) or (ys < 0) or (xe > W) or (ye > H) then @@ -422,13 +420,6 @@ begin Bmp.LoadFromRawImage(Raw, False); Result := Bmp; - { - If you want to use some internal Bitmap system, BitBlt to it here. - Don't forget to free Bmp! - } - //lclintf.BitBlt(Bmps[bitmap].Canvas.Handle, 0, 0, ww + 1, hh + 1, Bmp.Canvas.Handle, xs, ys, SRCCOPY); - //Bmp.Free; - XDestroyImage(Img); XSetErrorHandler(Old_Handler); {$ELSE} @@ -438,13 +429,6 @@ begin end; w_ArrayPtr: begin - // Will only work if the coords are 0, 0, w, h. - // Otherwise, we will need to perform mem copy/move operations. - // Copy it to a XImage-alike structure, - // then pass it to ArrDataToRawImage. - - // Basically, Copy the data slices from the array into a XImage, - // where the data IS aligned. TempData:= GetMem((ww + 1) * (hh + 1) * sizeof(trgb32)); for y := ys to ye do Move(Self.ArrayPtr[y*Self.ArraySize.x],TempData[(y-ys) * (ww+1)],(ww+1) * SizeOf(TRGB32));