+ Added from lazarus project

packages/extra/gtk/gdk/gdkpixbuf.pp

@@ -0,0 +1,473 @@
+{
+   $Id$
+
+   GdkPixbuf library
+ 
+   Copyright (C) 1999 The Free Software Foundation
+ 
+   Authors: Mark Crichton <[email protected]>
+           Miguel de Icaza <[email protected]>
+           Federico Mena-Quintero <[email protected]>
+           Havoc Pennington <[email protected]>
+
+   This library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Library General Public
+   License as published by the Free Software Foundation; either
+   version 2 of the License, or (at your option) any later version.
+
+   This library is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public
+   License along with this library; if not, write to the
+   Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.
+
+ **********************************************************************}
+unit gdkpixbuf;
+
+interface
+
+{$Ifdef FPC}
+  {$PACKRECORDS C}
+{$EndIf}
+
+{.$Define XLIB_SUPPORT} 	(* Use gdk_pixbuf_xlib instead of gdk_pixbuf *)
+{$Define GTK_SUPPORT} 		(* enable TGdkPixbufLoader support *)
+{.$Define GNOME_SUPPORT} 	(* enable TGnomeCanvasPixbuf support *)
+
+{$IFDef XLIB_SUPPORT}
+
+  {$Ifdef FPC}
+    {$linklib gdk_pixbuf_xlib}
+  {$EndIf}
+  
+  {$Undef GTK_SUPPORT} 		(* Ensure GTK is disabled in XLIB mode *)
+  {$Undef GNOME_SUPPORT}	(* Ensure GNOME is disabled in XLIB mode *)
+
+{$Else}
+
+  {$Ifdef FPC}
+    {$linklib gdk_pixbuf}
+  {$EndIf}
+  
+  {$IFDef GNOME_SUPPORT}
+    {$Define GTK_SUPPORT}	(* Ensure GTK is enabled if GNOME is *)
+  {$EndIf}
+
+{$EndIf}
+
+Uses
+  GLIB,
+  {$IFDef XLIB_SUPPORT}
+  XLib,
+  {$Else} 
+    GDK
+    {$IFDef GTK_SUPPORT}
+      ,GTK
+      {$IfDef GNOME_SUPPORT}
+        ,GNOME
+      {$ENDIF}
+    {$ENDIF}      
+  {$ENDIF};
+  
+
+{$IFDef XLIB_SUPPORT}
+
+  const
+    libgdkpixbuf = 
+      {$Ifdef FPC}
+        'gdk_pixbuf_xlib';   		(* Set library to gdk_pixbuf_xlib *) 
+      {$Else}
+        'libgdk_pixbuf_xlib.so';   	(* Set library to gdk_pixbuf_xlib *) 
+      {$EndIf}
+      
+{$Else}
+
+  const
+    libgdkpixbuf = 
+      {$Ifdef FPC}
+        'gdk_pixbuf';		(* Set library to gdk_pixbuf *) 
+
+      {$Else}
+        'libgdk_pixbuf.so';   	(* Set library to gdk_pixbuf *) 
+      {$EndIf}
+      
+{$EndIf}
+
+{From gdk-pixbuf-features.h}
+  const
+     GDK_PIXBUF_FEATURES_H = 1;
+     GDK_PIXBUF_MAJOR = 0;
+     GDK_PIXBUF_MINOR = 16;
+     GDK_PIXBUF_MICRO = 0;
+     GDK_PIXBUF_VERSION_ = '0.16.0';
+
+{$Ifdef FPC}
+  var
+    gdk_pixbuf_major_version : guint; cvar; external;
+    gdk_pixbuf_version : Pchar; cvar; external;
+{$EndIf}
+
+{From gdk-pixbuf.h}
+type
+  TGdkColorspace = (GDK_COLORSPACE_RGB);
+  { All of these are opaque structures  }
+   _GdkPixbuf = Record
+   end;
+   TGdkPixbuf = _GdkPixbuf;
+   PGdkPixbuf = ^TGdkPixbuf;
+
+   _GdkPixbufFrame = Record
+   end;
+   TGdkPixbufFrame = _GdkPixbufFrame;
+   PGdkPixbufFrame = ^TGdkPixbufFrame;
+     
+   _GdkPixbufAnimation = Record
+   end;
+   TGdkPixbufAnimation = _GdkPixbufAnimation;
+   PGdkPixbufAnimation = ^TGdkPixbufAnimation;
+
+  { Handler that must free the pixel array  }
+   TGdkPixbufDestroyNotify = Function (pixels : Pguchar; data : gpointer) : Pointer; 
+  { Handler for the last unref operation  }
+   TGdkPixbufLastUnref = Function (pixbuf : PGdkPixbuf; data : gpointer) : Pointer; 
+  { Reference counting  }
+
+  function gdk_pixbuf_ref(pixbuf:PGdkPixbuf):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_ref';
+  procedure gdk_pixbuf_unref(pixbuf:PGdkPixbuf);cdecl; external libgdkpixbuf name 'gdk_pixbuf_unref';
+  procedure gdk_pixbuf_set_last_unref_handler(pixbuf:PGdkPixbuf; last_unref_fn:TGdkPixbufLastUnref; last_unref_fn_data:gpointer);cdecl; external libgdkpixbuf name 'gdk_pixbuf_set_last_unref_handler';
+  procedure gdk_pixbuf_finalize(pixbuf:PGdkPixbuf);cdecl; external libgdkpixbuf name 'gdk_pixbuf_finalize';
+
+  { GdkPixbuf accessors  }
+  function gdk_pixbuf_get_colorspace(pixbuf:PGdkPixbuf):TGdkColorspace;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_colorspace';
+  function gdk_pixbuf_get_n_channels(pixbuf:PGdkPixbuf):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_n_channels';
+  function gdk_pixbuf_get_has_alpha(pixbuf:PGdkPixbuf):gboolean;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_has_alpha';
+  function gdk_pixbuf_get_bits_per_sample(pixbuf:PGdkPixbuf):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_bits_per_sample';
+  function gdk_pixbuf_get_pixels(pixbuf:PGdkPixbuf):Pguchar;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_pixels';
+  function gdk_pixbuf_get_width(pixbuf:PGdkPixbuf):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_width';
+  function gdk_pixbuf_get_height(pixbuf:PGdkPixbuf):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_height';
+  function gdk_pixbuf_get_rowstride(pixbuf:PGdkPixbuf):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_rowstride';
+
+  { Create a blank pixbuf with an optimal rowstride and a new buffer  }
+  function gdk_pixbuf_new(colorspace:TGdkColorspace; has_alpha:gboolean; bits_per_sample:longint; width:longint; height:longint):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_new';
+
+  { Copy a pixbuf  }
+  function gdk_pixbuf_copy(pixbuf:PGdkPixbuf):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_copy';
+
+  { Simple loading  }
+  function gdk_pixbuf_new_from_file(filename:Pchar):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_new_from_file';
+
+  function gdk_pixbuf_new_from_data(data:Pguchar; colorspace:TGdkColorspace; has_alpha:gboolean; bits_per_sample:longint; width:longint; 
+             height:longint; rowstride:longint; destroy_fn:TGdkPixbufDestroyNotify; destroy_fn_data:gpointer):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_new_from_data';
+
+  function gdk_pixbuf_new_from_xpm_data(data:PPchar):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_new_from_xpm_data';
+
+  { Adding an alpha channel  }
+  function gdk_pixbuf_add_alpha(pixbuf:PGdkPixbuf; substitute_color:gboolean; r:guchar; g:guchar; b:guchar):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_add_alpha';
+
+  { Copy an area of a pixbuf onto another one  }
+  procedure gdk_pixbuf_copy_area(src_pixbuf:PGdkPixbuf; src_x:longint; src_y:longint; width:longint; height:longint; 
+              dest_pixbuf:PGdkPixbuf; dest_x:longint; dest_y:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_copy_area';
+
+  type
+     TGdkPixbufAlphaMode = (GDK_PIXBUF_ALPHA_BILEVEL,GDK_PIXBUF_ALPHA_FULL);
+
+  {$IfNDef XLIB_SUPPORT}
+
+    { Rendering to a TGDKDrawable  } 
+
+    procedure gdk_pixbuf_render_threshold_alpha(pixbuf:PGdkPixbuf; bitmap:PGdkBitmap; src_x:longint; src_y:longint; dest_x:longint; 
+              dest_y:longint; width:longint; height:longint; alpha_threshold:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_render_threshold_alpha';
+    procedure gdk_pixbuf_render_to_drawable(pixbuf:PGdkPixbuf; Drawable:PGDKDrawable; GC:PGDKGC; src_x:longint; src_y:longint; 
+              dest_x:longint; dest_y:longint; width:longint; height:longint; dither:TGDKRGBDither; 
+              x_dither:longint; y_dither:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_render_to_drawable';
+    procedure gdk_pixbuf_render_to_drawable_alpha(pixbuf:PGdkPixbuf; Drawable:PGDKDrawable; src_x:longint; src_y:longint; dest_x:longint; 
+              dest_y:longint; width:longint; height:longint; alpha_mode:TGdkPixbufAlphaMode; alpha_threshold:longint; 
+              dither:TGDKRGBDither; x_dither:longint; y_dither:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_render_to_drawable_alpha';
+    procedure gdk_pixbuf_render_pixmap_and_mask(pixbuf:PGdkPixbuf; Pixmap_return:PPGDKPixmap; mask_return:PPGdkBitmap; alpha_threshold:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_render_pixmap_and_mask';
+
+    { Fetching a region from a TDrawable  }
+    function gdk_pixbuf_get_from_drawable(dest:PGdkPixbuf; src:PGDKDrawable; cmap:PGDKColormap; src_x:longint; src_y:longint; 
+               dest_x:longint; dest_y:longint; width:longint; height:longint):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_get_from_drawable';
+	       
+  {$EndIf}
+  
+  { Scaling  }
+
+  type
+     TGdkInterpType = (GDK_INTERP_NEAREST,GDK_INTERP_TILES,
+       GDK_INTERP_BILINEAR,GDK_INTERP_HYPER);
+
+  procedure gdk_pixbuf_scale(src:PGdkPixbuf; dest:PGdkPixbuf; dest_x:longint; dest_y:longint; dest_width:longint; 
+              dest_height:longint; offset_x:double; offset_y:double; scale_x:double; scale_y:double; 
+              interp_type:TGdkInterpType);cdecl; external libgdkpixbuf name 'gdk_pixbuf_scale';
+  procedure gdk_pixbuf_composite(src:PGdkPixbuf; dest:PGdkPixbuf; dest_x:longint; dest_y:longint; dest_width:longint; 
+              dest_height:longint; offset_x:double; offset_y:double; scale_x:double; scale_y:double; 
+              interp_type:TGdkInterpType; overall_alpha:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_composite';
+  procedure gdk_pixbuf_composite_color(src:PGdkPixbuf; dest:PGdkPixbuf; dest_x:longint; dest_y:longint; dest_width:longint; 
+              dest_height:longint; offset_x:double; offset_y:double; scale_x:double; scale_y:double; 
+              interp_type:TGdkInterpType; overall_alpha:longint; check_x:longint; check_y:longint; check_size:longint; 
+              color1:guint32; color2:guint32);cdecl; external libgdkpixbuf name 'gdk_pixbuf_composite_color';
+  function gdk_pixbuf_scale_simple(src:PGdkPixbuf; dest_width:longint; dest_height:longint; interp_type:TGdkInterpType):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_scale_simple';
+  function gdk_pixbuf_composite_color_simple(src:PGdkPixbuf; dest_width:longint; dest_height:longint; interp_type:TGdkInterpType; overall_alpha:longint; 
+             check_size:longint; color1:guint32; color2:guint32):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_composite_color_simple';
+
+  { Animation support  }
+  { GIF-like animation overlay modes for frames  }
+
+  type
+     TGdkPixbufFrameAction = (GDK_PIXBUF_FRAME_RETAIN,GDK_PIXBUF_FRAME_DISPOSE,
+       GDK_PIXBUF_FRAME_REVERT);
+
+  function gdk_pixbuf_animation_new_from_file(filename:Pchar):PGdkPixbufAnimation;cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_new_from_file';
+  function gdk_pixbuf_animation_ref(animation:PGdkPixbufAnimation):PGdkPixbufAnimation;cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_ref';
+  procedure gdk_pixbuf_animation_unref(animation:PGdkPixbufAnimation);cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_unref';
+  function gdk_pixbuf_animation_get_width(animation:PGdkPixbufAnimation):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_get_width';
+  function gdk_pixbuf_animation_get_height(animation:PGdkPixbufAnimation):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_get_height';
+  function gdk_pixbuf_animation_get_frames(animation:PGdkPixbufAnimation):PGList;cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_get_frames';
+  function gdk_pixbuf_animation_get_num_frames(animation:PGdkPixbufAnimation):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_animation_get_num_frames';
+
+  { Frame accessors  }
+  function gdk_pixbuf_frame_get_pixbuf(frame:PGdkPixbufFrame):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_frame_get_pixbuf';
+  function gdk_pixbuf_frame_get_x_offset(frame:PGdkPixbufFrame):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_frame_get_x_offset';
+  function gdk_pixbuf_frame_get_y_offset(frame:PGdkPixbufFrame):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_frame_get_y_offset';
+  function gdk_pixbuf_frame_get_delay_time(frame:PGdkPixbufFrame):longint;cdecl; external libgdkpixbuf name 'gdk_pixbuf_frame_get_delay_time';
+  function gdk_pixbuf_frame_get_action(frame:PGdkPixbufFrame):TGdkPixbufFrameAction;cdecl; external libgdkpixbuf name 'gdk_pixbuf_frame_get_action';
+
+  { General (presently empty) initialization hooks, primarily for gnome-libs  }
+  procedure gdk_pixbuf_preinit(app:gpointer; modinfo:gpointer);cdecl; external libgdkpixbuf name 'gdk_pixbuf_preinit';
+  procedure gdk_pixbuf_postinit(app:gpointer; modinfo:gpointer);cdecl; external libgdkpixbuf name 'gdk_pixbuf_postinit';
+
+{From gdk-pixbuf-loader.h}
+
+{$IfDef GTK_SUPPORT}
+
+Type
+  _GdkPixbufLoaderPrivate = record
+  end;
+  TGdkPixbufLoaderPrivate = _GdkPixbufLoaderPrivate;
+  PGdkPixbufLoaderPrivate = ^TGdkPixbufLoaderPrivate;
+
+  _GdkPixbufLoader = record
+    theobject : PGtkObject;
+    { Private data }
+    priv : PGdkPixbufLoaderPrivate;
+  end;
+  TGdkPixbufLoader = _GdkPixbufLoader;
+  PGdkPixbufLoader = ^TGdkPixbufLoader;
+
+  _GdkPixbufLoaderClass = record
+    parent_class : PGtkObjectClass;
+    
+    area_prepared :  Function (loader : PGdkPixbufLoader) : Pointer; cdecl;
+    area_updated  :  Function (loader : PGdkPixbufLoader; x, y, width, height : guint) : Pointer; cdecl;
+    frame_done  :  Function (loader : PGdkPixbufLoader;  frame : PGdkPixbufFrame) : Pointer; cdecl;
+    animation_done  :  Function (loader : PGdkPixbufLoader) : Pointer; cdecl;
+    closed  :  Function (loader : PGdkPixbufLoader) : Pointer; cdecl;
+  end;
+  TGdkPixbufLoaderClass = _GdkPixbufLoaderClass;
+  PGdkPixbufLoaderClass = ^TGdkPixbufLoaderClass;
+
+type
+  GDK_PIXBUF_LOADER=PGDKPIXBUFLOADER;
+  GDK_PIXBUF_LOADER_CLASS=PGDKPIXBUFLOADERClass;
+
+  Function gdk_pixbuf_loader_get_type : TGtkType; cdecl; external libgdkpixbuf name 'gdk_pixbuf_loader_get_type';
+  Function gdk_pixbuf_loader_new : PGdkPixbufLoader; cdecl; external libgdkpixbuf name 'gdk_pixbuf_loader_new';
+  Function gdk_pixbuf_loader_write(loader : PGdkPixbufLoader; 
+    const buf : Pguchar; count : longint) : gBoolean; cdecl; external libgdkpixbuf name 'gdk_pixbuf_loader_write';
+  Function gdk_pixbuf_loader_get_pixbuf(loader : PGdkPixbufLoader) : PGdkPixbuf; cdecl; external libgdkpixbuf name 'gdk_pixbuf_loader_get_pixbuf';
+  Function gdk_pixbuf_loader_get_animation (loader : PGdkPixbufLoader) : PGdkPixbufAnimation; cdecl; external libgdkpixbuf name 'gdk_pixbuf_loader_get_animation';
+  Procedure gdk_pixbuf_loader_close(loader : PGdkPixbufLoader); cdecl; external libgdkpixbuf name 'gdk_pixbuf_loader_close';
+
+  Function GDK_TYPE_PIXBUF_LOADER : TGtkType;
+  Function GDK_IS_PIXBUF_LOADER(obj:pointer) : boolean;
+  Function GDK_IS_PIXBUF_LOADER_CLASS(klass:pointer) : boolean;
+{$EndIf}
+
+{From gdk-pixbuf-xlibrgb.h}
+
+{$IfDef XLIB_SUPPORT}
+  type
+     _XlibRgbCmap = record
+          colors : array[0..255] of dword;
+          lut : array[0..255] of byte;
+       end;
+     TXlibRgbCmap = _XlibRgbCmap;
+     PXlibRgbCmap = ^TXlibRgbCmap;
+
+  procedure xlib_rgb_init(display:PDisplay; screen:PScreen);cdecl; external libgdkpixbuf name 'xlib_rgb_init';
+  procedure xlib_rgb_init_with_depth(display:PDisplay; screen:PScreen; prefDepth:longint);cdecl; external libgdkpixbuf name 'xlib_rgb_init_with_depth';
+  function xlib_rgb_xpixel_from_rgb(rgb:guint32):dword;cdecl; external libgdkpixbuf name 'xlib_rgb_xpixel_from_rgb';
+  procedure xlib_rgb_gc_set_foreground(GC:TGC; rgb:guint32);cdecl; external libgdkpixbuf name 'xlib_rgb_gc_set_foreground';
+  procedure xlib_rgb_gc_set_background(GC:TGC; rgb:guint32);cdecl; external libgdkpixbuf name 'xlib_rgb_gc_set_background';
+
+
+  type
+     TXlibRgbDither = (XLIB_RGB_DITHER_NONE,XLIB_RGB_DITHER_NORMAL,
+       XLIB_RGB_DITHER_MAX);
+
+  procedure xlib_draw_rgb_image(Drawable:TDrawable; GC:TGC; x:longint; y:longint; width:longint; 
+              height:longint; dith:TXlibRgbDither; rgb_buf:Pbyte; rowstride:longint);cdecl; external libgdkpixbuf name 'xlib_draw_rgb_image';
+  procedure xlib_draw_rgb_image_dithalign(Drawable:TDrawable; GC:TGC; x:longint; y:longint; width:longint; 
+              height:longint; dith:TXlibRgbDither; rgb_buf:Pbyte; rowstride:longint; xdith:longint; 
+              ydith:longint);cdecl; external libgdkpixbuf name 'xlib_draw_rgb_image_dithalign';
+  procedure xlib_draw_rgb_32_image(Drawable:TDrawable; GC:TGC; x:longint; y:longint; width:longint; 
+              height:longint; dith:TXlibRgbDither; buf:Pbyte; rowstride:longint);cdecl; external libgdkpixbuf name 'xlib_draw_rgb_32_image';
+  procedure xlib_draw_gray_image(Drawable:TDrawable; GC:TGC; x:longint; y:longint; width:longint; 
+              height:longint; dith:TXlibRgbDither; buf:Pbyte; rowstride:longint);cdecl; external libgdkpixbuf name 'xlib_draw_gray_image';
+  function xlib_rgb_cmap_new(colors:Pguint32; n_colors:longint):PXlibRgbCmap;cdecl; external libgdkpixbuf name 'xlib_rgb_cmap_new';
+  procedure xlib_rgb_cmap_free(cmap:PXlibRgbCmap);cdecl; external libgdkpixbuf name 'xlib_rgb_cmap_free';
+  procedure xlib_draw_indexed_image(Drawable:TDrawable; GC:TGC; x:longint; y:longint; width:longint; 
+              height:longint; dith:TXlibRgbDither; buf:Pbyte; rowstride:longint; cmap:PXlibRgbCmap);cdecl; external libgdkpixbuf name 'xlib_draw_indexed_image';
+
+  { Below are some functions which are primarily useful for debugging
+     and experimentation.  }
+  function xlib_rgb_ditherable:LongBool;cdecl; external libgdkpixbuf name 'xlib_rgb_ditherable';
+  procedure xlib_rgb_set_verbose(verbose:LongBool);cdecl; external libgdkpixbuf name 'xlib_rgb_set_verbose';
+
+  { experimental TColormap stuff  }
+  procedure xlib_rgb_set_install(install:LongBool);cdecl; external libgdkpixbuf name 'xlib_rgb_set_install';
+  procedure xlib_rgb_set_min_colors(min_colors:longint);cdecl; external libgdkpixbuf name 'xlib_rgb_set_min_colors';
+  function xlib_rgb_get_cmap:TColormap;cdecl; external libgdkpixbuf name 'xlib_rgb_get_cmap';
+  function xlib_rgb_get_visual:PVisual;cdecl; external libgdkpixbuf name 'xlib_rgb_get_visual';
+  function xlib_rgb_get_visual_info:PXVisualInfo;cdecl; external libgdkpixbuf name 'xlib_rgb_get_visual_info';
+  function xlib_rgb_get_depth:longint;cdecl; external libgdkpixbuf name 'xlib_rgb_get_depth';
+  function xlib_rgb_get_display:PDisplay;cdecl; external libgdkpixbuf name 'xlib_rgb_get_display';
+  function xlib_rgb_get_screen:PScreen;cdecl; external libgdkpixbuf name 'xlib_rgb_get_screen';
+{$EndIf}
+
+{From gdk-pixbuf-xlib.h}
+
+{$IfDef XLIB_SUPPORT}
+  procedure gdk_pixbuf_xlib_init(display:PDisplay; screen_num:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_init';
+  procedure gdk_pixbuf_xlib_init_with_depth(display:PDisplay; screen_num:longint; prefDepth:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_init_with_depth';
+  procedure gdk_pixbuf_xlib_render_threshold_alpha(pixbuf:PGdkPixbuf; bitmap:TPixmap; src_x:longint; src_y:longint; dest_x:longint; 
+              dest_y:longint; width:longint; height:longint; alpha_threshold:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_render_threshold_alpha';
+  procedure gdk_pixbuf_xlib_render_to_drawable(pixbuf:PGdkPixbuf; Drawable:TDrawable; GC:TGC; src_x:longint; src_y:longint; 
+              dest_x:longint; dest_y:longint; width:longint; height:longint; dither:TXlibRgbDither; 
+              x_dither:longint; y_dither:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_render_to_drawable';
+  procedure gdk_pixbuf_xlib_render_to_drawable_alpha(pixbuf:PGdkPixbuf; Drawable:TDrawable; src_x:longint; src_y:longint; dest_x:longint; 
+              dest_y:longint; width:longint; height:longint; alpha_mode:TGdkPixbufAlphaMode; alpha_threshold:longint; 
+              dither:TXlibRgbDither; x_dither:longint; y_dither:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_render_to_drawable_alpha';
+  procedure gdk_pixbuf_xlib_render_Pixmap_and_mask(pixbuf:PGdkPixbuf; Pixmap_return:PPixmap; mask_return:PPixmap; alpha_threshold:longint);cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_render_Pixmap_and_mask';
+  function gdk_pixbuf_xlib_get_from_drawable(dest:PGdkPixbuf; src:TDrawable; cmap:TColormap; visual:PVisual; src_x:longint; 
+             src_y:longint; dest_x:longint; dest_y:longint; width:longint; height:longint):PGdkPixbuf;cdecl; external libgdkpixbuf name 'gdk_pixbuf_xlib_get_from_drawable';
+{$EndIf}
+
+{From gnome-canvas-pixbuf.h}
+
+{$IfDef GNOME_SUPPORT}
+Type
+  _GnomeCanvasPixbuf = record
+    item : TGnomeCanvasItem;
+
+    { Private data }
+    priv :gpointer;
+  end;
+  TGnomeCanvasPixbuf = _GnomeCanvasPixbuf;
+  PGnomeCanvasPixbuf = ^TGnomeCanvasPixbuf;
+
+  _GnomeCanvasPixbufClass = record
+    parent_class : TGnomeCanvasItemClass;
+  end;
+  
+  TGnomeCanvasPixbufClass = _GnomeCanvasPixbufClass;
+  PGnomeCanvasPixbufClass = ^TGnomeCanvasPixbufClass;
+
+  GNOME_CANVAS_PIXBUF = PGNOMECANVASPIXBUF;
+  GNOME_CANVAS_PIXBUF_CLASS = PGnomeCanvasPixbufClass
+
+  Function GNOME_TYPE_CANVAS_PIXBUF : TGTKType; cdcel; external libgdkpixbuf name 'gnome_canvas_pixbuf_get_type';
+
+  Function GNOME_IS_CANVAS_PIXBUF(obj : Pointer); 
+  Function GNOME_IS_CANVAS_PIXBUF_CLASS(klass : Pointer); 
+  
+  Function gnome_canvas_pixbuf_get_type : PGtkType; cdecl; external libgdkpixbuf name 'gnome_canvas_pixbuf_get_type';
+{$EndIf}
+
+implementation
+
+{$Ifdef FPC}
+{ There is a bug in the compiler. If an external variable is not used, it will
+  create code, that can not be relocated by the linker.
+  So, use them in this hidden procedure.
+}
+procedure CheckUnusedVariable; [Public];
+begin
+  if (gdk_pixbuf_major_version=0)
+  or (gdk_pixbuf_version=nil) then ;
+end;
+{$EndIf}
+
+{$IfDef GTK_SUPPORT}
+  Function GDK_TYPE_PIXBUF_LOADER	: TGtkType;	   
+  begin
+    GDK_TYPE_PIXBUF_LOADER := gdk_pixbuf_loader_get_type;
+  end;
+
+  Function GDK_IS_PIXBUF_LOADER(obj : pointer) : boolean;	   
+  begin
+    GDK_IS_PIXBUF_LOADER :=(obj<>nil) and GDK_IS_PIXBUF_LOADER_CLASS(PGtkTypeObject(obj)^.klass);
+  end;
+
+  Function GDK_IS_PIXBUF_LOADER_CLASS(klass:pointer) : boolean; 
+  begin
+    GDK_IS_PIXBUF_LOADER_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GDK_TYPE_PIXBUF_LOADER);
+  end;
+{$EndIf}
+
+{$IfDef GNOME_SUPPORT}
+  Function GNOME_IS_CANVAS_PIXBUF(obj : Pointer);         
+  begin
+    GNOME_IS_CANVAS_PIXBUF :=(obj<>nil) and GNOME_IS_CANVAS_PIXBUF_CLASS(PGtkTypeObject(obj)^.klass);
+  end;
+
+  Function GNOME_IS_CANVAS_PIXBUF_CLASS(klass : Pointer); 
+  begin
+    GNOME_IS_CANVAS_PIXBUF_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_CANVAS_PIXBUF);
+  end;
+{$EndIf}
+
+end.
+{
+  $Log$
+  Revision 1.1  2002-08-13 07:36:27  michael
+  + Added from lazarus project
+
+  Revision 1.1  2002/08/13 07:08:24  lazarus
+  MG: added gdkpixbuf.pp and changes from Andrew Johnson
+
+
+  Revision 1.0.3  2002/04/25 10:57:05  Andrew([email protected])
+    *Added Name 'externalname' directive to all Proc's/Func's
+    *Fixed a few more case sensitive's I missed
+    *Added GTK_SUPPORT and XLIB_SUPPORT Compiler flags,
+      primarily so the file could be use in four modes :
+         GDK
+         GDK with GTK(aka TGdkPixbufLoader)
+	 GDK with GTK and GNOME(aka TGnomeCanvasPixbuf)
+         XLIB
+    *Tried to enforce above scheme
+    *Fixed *gdk_version* variables
+    *Added a few Ifdef FPC's just in case anybody every port's 
+      the GTK header's to Kylix, I haven't tried, but it may still 
+      be possible to use in Kylix in XLIB mode, so long as GLIB is 
+      available, and since there is very little in GLIB, I doubt 
+      much, if anything would have to be changed to make it work.
+    	 
+  Revision 1.0.2  2002/04/22 13:48:31  Andrew([email protected])
+    *Fixed names of a few routines _GC, supposed to be _gc,
+      more stupid case sensitive C....
+    *A little more basic cleanup
+
+  Revision 1.0.1  2002/04/19 10:15:32  Andrew([email protected])
+    *Fixed names of a few routines _Drawable, supposed to be _drawable,
+      stupid case sensitive C....
+    *Added Linklib directive for gdk_pixbuf_xlib, don't think it's really
+       needed, but better safe then sorry
+
+}