From 578459f760c25c57e7bb7b4ed23a3fa44228ba99 Mon Sep 17 00:00:00 2001
From: andrew <andrew@lazarus-ide.org>
Date: Wed, 4 Apr 2007 23:02:38 +0000
Subject: [PATCH] applied patch from Valdas Janka for bug #8498 to fix pixmap
 scaling

git-svn-id: trunk@10874 -
---
 lcl/interfaces/gtk/gtkproc.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 2107356353..1ed8e91749 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -1229,7 +1229,7 @@ begin
   DebugLn('ScalePixmap Creating PixBuf from pixmap SrcWhole='+dbgs(SrcWholeWidth),','+dbgs(SrcWholeHeight));
   {$ENDIF}
   ScaleSRC := gdk_pixbuf_get_from_drawable(nil,SrcPixmap,
-    SrcColorMap,0,0,SrcX,SrcY,SrcWidth,SrcHeight);
+    SrcColorMap,SrcX,SrcY,0,0,SrcWidth,SrcHeight);
   If ScaleSRC = nil then begin
     DebugLn('WARNING: ScalePixmap ScaleSRC=nil');
     exit;