Index: interfaces/gtk3/gtk3objects.pas
===================================================================
--- interfaces/gtk3/gtk3objects.pas	(revision 62295)
+++ interfaces/gtk3/gtk3objects.pas	(working copy)
@@ -239,6 +239,8 @@
       mask: PGdkPixBuf; maskRect: PRect);
     procedure drawImage(targetRect: PRect; image: PGdkPixBuf; sourceRect: PRect;
       mask: PGdkPixBuf; maskRect: PRect);
+    procedure drawImage1(targetRect: PRect; image: PGdkPixBuf; sourceRect: PRect;
+      mask: PGdkPixBuf; maskRect: PRect);
     procedure drawPixmap(p: PPoint; pm: PGdkPixbuf; sr: PRect);
     procedure drawPolyLine(P: PPoint; NumPts: Integer);
     procedure drawPolygon(P: PPoint; NumPts: Integer; FillRule: integer);
@@ -1468,6 +1470,8 @@
     // ASurface := cairo_image_surface_create_for_data(AData, CAIRO_FORMAT_ARGB32, gdk_pixbuf_get_width(pm), gdk_pixbuf_get_height(pm), gdk_pixbuf_get_rowstride(pm));
     // cairo_set_source_surface(Widget, ASurface, targetRect^.Left, targetRect^.Top);
     gdk_cairo_set_source_pixbuf(Widget, Image, 0, 0);
+    with targetRect^ do
+    cairo_rectangle(Widget, Left, Top, Right-Left, Bottom-Top);
     cairo_paint(Widget);
   finally
     // cairo_surface_destroy(ASurface);
@@ -1475,6 +1479,35 @@
   end;
 end;
 
+procedure TGtk3DeviceContext.drawImage1(targetRect: PRect; image: PGdkPixBuf;
+  sourceRect: PRect; mask: PGdkPixBuf; maskRect: PRect);
+var
+  M: cairo_matrix_t;
+begin
+  {$IFDEF VerboseGtk3DeviceContext}
+  DebugLn('TGtk3DeviceContext.DrawImage ');
+  {$ENDIF}
+  cairo_save(Widget);
+  try
+    gdk_cairo_set_source_pixbuf(Widget, Image, 0, 0);
+    with targetRect^ do
+      cairo_rectangle(Widget, Left, Top, Right - Left, Bottom - Top);
+
+    cairo_matrix_init_identity(@M);
+    cairo_matrix_translate(@M, SourceRect^.Left, SourceRect^.Top);
+    cairo_matrix_scale(@M,  (sourceRect^.Right-sourceRect^.Left) / (targetRect^.Right-targetRect^.Left),
+        (sourceRect^.Bottom-sourceRect^.Top) / (targetRect^.Bottom-targetRect^.Top));
+    cairo_matrix_translate(@M, -targetRect^.Left, -targetRect^.Top);
+    cairo_pattern_set_matrix(cairo_get_source(Widget), @M);
+    //cairo_fill (Widget);
+    cairo_clip(Widget);
+    cairo_paint(Widget);
+  finally
+    cairo_restore(Widget);
+  end;
+end;
+
+
 procedure TGtk3DeviceContext.drawPixmap(p: PPoint; pm: PGdkPixbuf; sr: PRect);
 var
   AImage: PGtkImage;
Index: interfaces/gtk3/gtk3winapi.inc
===================================================================
--- interfaces/gtk3/gtk3winapi.inc	(revision 62295)
+++ interfaces/gtk3/gtk3winapi.inc	(working copy)
@@ -4066,7 +4066,6 @@
   DestContext: TGtk3DeviceContext absolute DestDC;
   SrcContext: TGtk3DeviceContext absolute SrcDC;
   ATargetRect, ASrcRect: TRect;
-  //AImage: PGdkPixbuf;
 begin
   Result := False;
   {$IFDEF GTK3DEBUGNOTIMPLEMENTED}
@@ -4074,11 +4073,7 @@
   {$ENDIF}
   ATargetRect := Rect(X, Y, Width + X, Height + Y);
   ASrcRect := Rect(XSrc, YSrc, SrcWidth + XSrc, SrcHeight + YSrc);
-  // AImage := gdk_pixbuf_new_subpixbuf();
-  // DestContext.drawImage(@ATargetRect, SrcContext.ParentPixmap, @ASrcRect, nil, nil);
-  // Ask for DestContext type of surface (surface/image) and then draw
-  DestContext.drawSurface(@ATargetRect, SrcContext.CairoSurface, @ASrcRect, nil, nil);
-  // DestContext.drawImage();
+  DestContext.drawImage1(@ATargetRect, PgdkPixbuf(SrcContext.CurrentImage.Handle) , @ASrcRect, nil, nil);
   // Result := True;
 end;
 

--- /home/anton/net/work/projects/lazarus/lcl/interfaces/gtk3/gtk3lclintf.inc
+++ /projects/lazarus/lcl/interfaces/gtk3/gtk3lclintf.inc
@@ -224,9 +224,9 @@
     1: ImageFormat := CAIRO_FORMAT_A1;
     2: ImageFormat := CAIRO_FORMAT_A8;
     else
-      if Desc.AlphaPrec=0 then
+      {if Desc.AlphaPrec=0 then
          ImageFormat := CAIRO_FORMAT_RGB24
-      else
+      else}
          ImageFormat := CAIRO_FORMAT_ARGB32;
   end;
   ARowStride := GetBytesPerLine(Desc.Width, Desc.BitsPerPixel, rileDWordBoundary);