diff --git a/lcl/interfaces/gtk/gtkdef.pp b/lcl/interfaces/gtk/gtkdef.pp
index 9d10fa05ca..7810b2691f 100644
--- a/lcl/interfaces/gtk/gtkdef.pp
+++ b/lcl/interfaces/gtk/gtkdef.pp
@@ -36,7 +36,7 @@ uses
   gtk, gdk, LCLLinux, LCLType, VclGlobals, Classes, LCLMemManager;
 
 type
-  TGDIType = (gdiBitmap, gdiBrush, gdiFont, gdiPen, gdiRegion);
+  TGDIType = (gdiBitmap, gdiBrush, gdiFont, gdiPen, gdiRegion, gdiPalette);
   TGDIBitmapType = (gbBitmap, gbPixmap, gbImage);
   
   PGDIRGB = ^TGDIRGB;
@@ -85,6 +85,25 @@ type
       gdiRegion: (
         GDIRegionObject: PGdkRegion;
       );
+      gdiPalette: (
+        //Has it been added to the system palette?
+        Realized : Boolean;
+
+        //Type of visual expected
+        VisualType  : TGdkVisualType;
+
+        //Actual visual created
+        PalleteVisual : PGDKVisual;
+
+        //Colormap for mapping colors
+        PalleteColormap : PGDKColormap;
+
+        //For use when VisualType <> PalleteVisual^.Type
+        RGBEntries : Array[0..0] of Longint;
+        
+        //For mapping from Index to Colormap Pixel
+        PixelEntries : Array[0..0] of Longint;
+      );
   end;
 
 
@@ -328,6 +347,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.18  2002/09/12 05:56:15  lazarus
+  MG: gradient fill, minor issues from Andrew
+
   Revision 1.17  2002/09/10 06:49:20  lazarus
   MG: scrollingwincontrol from Andrew
 
diff --git a/lcl/interfaces/gtk/gtkwinapih.inc b/lcl/interfaces/gtk/gtkwinapih.inc
index 60ab812b74..4e4fe0453b 100644
--- a/lcl/interfaces/gtk/gtkwinapih.inc
+++ b/lcl/interfaces/gtk/gtkwinapih.inc
@@ -84,6 +84,7 @@ Function GetClipBox(DC : hDC; lpRect : PRect) : Longint; override;
 Function GetClipRGN(DC : hDC; RGN : hRGN) : Longint; override;
 Function GetCmdLineParamDescForInterface: string; override;
 function GetDC(hWnd: HWND): HDC;  override;
+function GetDeviceCaps(DC: HDC; Index: Integer): Integer; Override;
 function GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT): Integer; Override;
 function GetBitmapBits(Bitmap: HBITMAP; Count: Longint;  Bits: Pointer): Longint; Override;
 function GetFocus: HWND; override;
@@ -103,6 +104,9 @@ Function GetWindowOrgEx(dc : hdc; var P: TPoint): Integer;  override;
 Function GetWindowRect(Handle : hwnd; var ARect: TRect): Integer; override;
 Function GetWindowSize(Handle : hwnd; var Width, Height: integer): boolean; override;
 
+function GradientFill(DC: HDC; Vertices: PTriVertex; NumVertices : Longint;
+  Meshes: Pointer; NumMeshes : Longint; Mode : Longint): Boolean; Override;
+
 function HideCaret(hWnd: HWND): Boolean; override;
 
 function IntersectClipRect(dc: hdc; Left, Top, Right, Bottom: Integer): Integer; override;
@@ -182,6 +186,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
 { =============================================================================
 
   $Log$
+  Revision 1.46  2002/09/12 05:56:17  lazarus
+  MG: gradient fill, minor issues from Andrew
+
   Revision 1.45  2002/09/10 06:49:24  lazarus
   MG: scrollingwincontrol from Andrew