/packages/gtk1/src/gdk/gdkrgb.pp

https://github.com/slibre/freepascal · Puppet · 49 lines · 37 code · 12 blank · 0 comment · 0 complexity · e25fe12638c4da7f4950e9c5d6077987 MD5 · raw file 

    

  1. {
    2. 

  2. }
    3. 

  3. 

  4. {****************************************************************************
    5. 

  5.                                  Interface
    6. 

  6. ****************************************************************************}
    7. 

  7. 

  8. {$ifdef read_interface}
    9. 

  9. 

  10.   type
    11. 

  11.      PGdkRgbCmap = ^TGdkRgbCmap;
    12. 

  12.      TGdkRgbCmap = record
    13. 

  13.           colors : array[0..255] of guint32;
    14. 

  14.           lut : array[0..255] of guchar;
    15. 

  15.        end;
    16. 

  16. 

  17. procedure gdk_rgb_init;cdecl;external gdkdll name 'gdk_rgb_init';
    18. 

  18. function  gdk_rgb_xpixel_from_rgb(rgb:guint32):gulong;cdecl;external gdkdll name 'gdk_rgb_xpixel_from_rgb';
    19. 

  19. procedure gdk_rgb_gc_set_foreground(gc:PGdkGC; rgb:guint32);cdecl;external gdkdll name 'gdk_rgb_gc_set_foreground';
    20. 

  20. procedure gdk_rgb_gc_set_background(gc:PGdkGC; rgb:guint32);cdecl;external gdkdll name 'gdk_rgb_gc_set_background';
    21. 

  21. 

  22.   type
    23. 

  23.      TGdkRgbDither = (GDK_RGB_DITHER_NONE,GDK_RGB_DITHER_NORMAL,GDK_RGB_DITHER_MAX);
    24. 

  24. 

  25. procedure gdk_draw_rgb_image(drawable:PGdkDrawable; gc:PGdkGC; x:gint; y:gint; width:gint; height:gint; dith:TGdkRgbDither; rgb_buf:Pguchar; rowstride:gint);cdecl;external gdkdll name 'gdk_draw_rgb_image';
    26. 

  26. procedure gdk_draw_rgb_image_dithalign(drawable:PGdkDrawable; gc:PGdkGC; x:gint; y:gint; width:gint; height:gint; dith:TGdkRgbDither; rgb_buf:Pguchar; rowstride:gint; xdith:gint; ydith:gint);cdecl;external gdkdll name 'gdk_draw_rgb_image_dithalign';
    27. 

  27. procedure gdk_draw_rgb_32_image(drawable:PGdkDrawable; gc:PGdkGC; x:gint; y:gint; width:gint; height:gint; dith:TGdkRgbDither; buf:Pguchar; rowstride:gint);cdecl;external gdkdll name 'gdk_draw_rgb_32_image';
    28. 

  28. procedure gdk_draw_gray_image(drawable:PGdkDrawable; gc:PGdkGC; x:gint; y:gint; width:gint; height:gint; dith:TGdkRgbDither; buf:Pguchar; rowstride:gint);cdecl;external gdkdll name 'gdk_draw_gray_image';
    29. 

  29. function  gdk_rgb_cmap_new(colors:Pguint32; n_colors:gint):PGdkRgbCmap;cdecl;external gdkdll name 'gdk_rgb_cmap_new';
    30. 

  30. procedure gdk_rgb_cmap_free(cmap:PGdkRgbCmap);cdecl;external gdkdll name 'gdk_rgb_cmap_free';
    31. 

  31. procedure gdk_draw_indexed_image(drawable:PGdkDrawable; gc:PGdkGC; x:gint; y:gint; width:gint; height:gint; dith:TGdkRgbDither; buf:Pguchar; rowstride:gint; cmap:PGdkRgbCmap);cdecl;external gdkdll name 'gdk_draw_indexed_image';
    32. 

  32. function  gdk_rgb_ditherable:gboolean;cdecl;external gdkdll name 'gdk_rgb_ditherable';
    33. 

  33. procedure gdk_rgb_set_verbose(verbose:gboolean);cdecl;external gdkdll name 'gdk_rgb_set_verbose';
    34. 

  34. procedure gdk_rgb_set_install(install:gboolean);cdecl;external gdkdll name 'gdk_rgb_set_install';
    35. 

  35. procedure gdk_rgb_set_min_colors(min_colors:gint);cdecl;external gdkdll name 'gdk_rgb_set_min_colors';
    36. 

  36. function  gdk_rgb_get_cmap:PGdkColormap;cdecl;external gdkdll name 'gdk_rgb_get_cmap';
    37. 

  37. function  gdk_rgb_get_visual:PGdkVisual;cdecl;external gdkdll name 'gdk_rgb_get_visual';
    38. 

  38. 

  39. {$endif read_interface}
    40. 

  40. 

  41. 

  42. {****************************************************************************
    43. 

  43.                               Implementation
    44. 

  44. ****************************************************************************}
    45. 

  45. 

  46. {$ifdef read_implementation}
    47. 

  47. {$endif read_implementation}
    48.