Changeset 472 for GraphicTest/Packages/bgrabitmap/bgragtkbitmap.pas

Timestamp:

Apr 9, 2015, 9:58:36 PM (10 years ago)

Author:

chronos

Message:

• Fixed: Use csOpaque control style also to Image, PaintBox and OpenGLControl.
• Modified: Change size of test frame with SpinEdits as delayed using timer.
• Updated: BRGABitmap package to version 8.1.

File:

• GraphicTest/Packages/bgrabitmap/bgragtkbitmap.pas (modified) (4 diffs)

GraphicTest/Packages/bgrabitmap/bgragtkbitmap.pas

@@ -65 +65 @@
   gdk, gtkdef, gtkProc, gdkpixbuf, glib,
   {$ENDIF}
-  FPImage;
+  FPImage, Dialogs;
 
 {$IFDEF LCLgtk2}
@@ -141 +141 @@
   end;
 
-  //SwapRedBlue;
+  SwapRedBlue;
   
   P := Rect.TopLeft;
-  DpToLP(ACanvas.Handle, P, 1);
+  LPToDP(ACanvas.Handle, P, 1);
   gdk_pixbuf_render_to_drawable(FPixBuf,
     TGtkDeviceContext(ACanvas.Handle).Drawable,
     TGtkDeviceContext(ACanvas.Handle).GC,
-    0,0,
-    TGtkDeviceContext(ACanvas.Handle).Offset.X + P.X,
-    TGtkDeviceContext(ACanvas.Handle).Offset.Y + P.Y,
+    0,0, P.X,P.Y,
     Width,Height,
     GDK_RGB_DITHER_NORMAL,0,0);   
 
-  //SwapRedBlue;
+  SwapRedBlue;
 end;
 
@@ -251 +249 @@
 
   dest := ACanvas.Handle;
-  pos := TGtkDeviceContext(dest).Offset;
-  pos.X += rect.Left;
-  pos.Y += rect.Top;
+  pos := rect.TopLeft;
+  LPtoDP(dest, pos, 1);
   If ALineOrder = riloBottomToTop then VerticalFlip;
-  //SwapRedBlue;
+  SwapRedBlue;
   gdk_draw_rgb_32_image(TGtkDeviceContext(dest).Drawable,
-    TGtkDeviceContext(Dest).GC, pos.X,pos.Y,
+    TGtkDeviceContext(Dest).GC, pos.x,pos.y,
     AWidth,AHeight, GDK_RGB_DITHER_NORMAL,
     AData, AWidth*sizeof(TBGRAPixel));
-  //SwapRedBlue;
+  SwapRedBlue;
   If ALineOrder = riloBottomToTop then VerticalFlip;
 end;
@@ -296 +293 @@
 
   P := Point(x,y);
-  DpToLP(CanvasSource.Handle, P, 1);
+  LPToDP(CanvasSource.Handle, P, 1);
   gdk_pixbuf_get_from_drawable(FPixBuf,
     TGtkDeviceContext(CanvasSource.Handle).Drawable,
-    nil,
-    TGtkDeviceContext(CanvasSource.Handle).Offset.X+P.X,
-    TGtkDeviceContext(CanvasSource.Handle).Offset.Y+P.Y,0,0,Width,Height);
+    nil, P.X,P.Y,0,0,Width,Height);
   SwapRedBlue;
   InvalidateBitmap;