freepascal.compiler/packages/extra/gtk2/gtk+/gtk/gtkpreview.inc

// included by gtk2.pas

{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}

//------------------------------------------------------------------------------

{$IFDEF read_interface_types}
   PGtkPreview = ^TGtkPreview;
   TGtkPreview = record
        widget : TGtkWidget;
        buffer : Pguchar;
        buffer_width : guint16;
        buffer_height : guint16;
        bpp : guint16;
        rowstride : guint16;
        dither : TGdkRgbDither;
        flag0 : word;
     end;

   PGtkPreviewInfo = ^TGtkPreviewInfo;
   TGtkPreviewInfo = record
        lookup : Pguchar;
        gamma : gdouble;
     end;

   PGtkDitherInfo = ^TGtkDitherInfo;
   TGtkDitherInfo = record
       case longint of
          0 : ( s : array[0..1] of gushort );
          1 : ( c : array[0..3] of guchar );
       end;

   PGtkPreviewClass = ^TGtkPreviewClass;
   TGtkPreviewClass = record
        parent_class : TGtkWidgetClass;
        info : TGtkPreviewInfo;
     end;

{$ENDIF read_interface_types}

//------------------------------------------------------------------------------

{$IFDEF read_interface_rest}
const
   bm_TGtkPreview_type = $1;
   bp_TGtkPreview_type = 0;
   bm_TGtkPreview_expand = $2;
   bp_TGtkPreview_expand = 1;


function GTK_TYPE_PREVIEW : GType;
function GTK_PREVIEW(obj: pointer) : PGtkPreview;
function GTK_PREVIEW_CLASS(klass: pointer) : PGtkPreviewClass;
function GTK_IS_PREVIEW(obj: pointer) : boolean;
function GTK_IS_PREVIEW_CLASS(klass: pointer) : boolean;
function GTK_PREVIEW_GET_CLASS(obj: pointer) : PGtkPreviewClass;

function get_type(var a : TGtkPreview) : guint; overload;
procedure set_type(var a : TGtkPreview; __type : guint); overload;
function get_expand(var a : TGtkPreview) : guint; overload;
procedure set_expand(var a : TGtkPreview; __expand : guint); overload;

function gtk_preview_get_type:TGtkType; cdecl; external gtklib;
procedure gtk_preview_uninit; cdecl; external gtklib;
function gtk_preview_new(_type:TGtkPreviewType):PGtkWidget; cdecl; external gtklib;
procedure gtk_preview_size(preview:PGtkPreview; width:gint; height:gint); cdecl; external gtklib;
procedure gtk_preview_put(preview:PGtkPreview; window:PGdkWindow; gc:PGdkGC; srcx:gint; srcy:gint;
            destx:gint; desty:gint; width:gint; height:gint); cdecl; external gtklib;
procedure gtk_preview_draw_row(preview:PGtkPreview; data:Pguchar; x:gint; y:gint; w:gint); cdecl; external gtklib;
procedure gtk_preview_set_expand(preview:PGtkPreview; expand:gboolean); cdecl; external gtklib;
procedure gtk_preview_set_gamma(gamma:double); cdecl; external gtklib;
procedure gtk_preview_set_color_cube(nred_shades:guint; ngreen_shades:guint; nblue_shades:guint; ngray_shades:guint); cdecl; external gtklib;
procedure gtk_preview_set_install_cmap(install_cmap:gint); cdecl; external gtklib;
procedure gtk_preview_set_reserved(nreserved:gint); cdecl; external gtklib;
procedure gtk_preview_set_dither(preview:PGtkPreview; dither:TGdkRgbDither); cdecl; external gtklib;

{$ifndef GTK_DISABLE_DEPRECATED}
function gtk_preview_get_visual:PGdkVisual; cdecl; external gtklib;
function gtk_preview_get_cmap:PGdkColormap; cdecl; external gtklib;
{$endif}

function gtk_preview_get_info:PGtkPreviewInfo; cdecl; external gtklib;
{ This function reinitializes the preview colormap and visual from
   the current gamma/color_cube/install_cmap settings. It must only
   be called if there are no previews or users's of the preview
   colormap in existence.
  }
procedure gtk_preview_reset; cdecl; external gtklib;
{$ENDIF read_interface_rest}

//------------------------------------------------------------------------------

{$IFDEF read_implementation}
function GTK_TYPE_PREVIEW : GType;
begin
   GTK_TYPE_PREVIEW:=gtk_preview_get_type;
end;

function GTK_PREVIEW(obj: pointer) : PGtkPreview;
begin
   GTK_PREVIEW:=PGtkPreview(GTK_CHECK_CAST(obj,GTK_TYPE_PREVIEW));
end;

function GTK_PREVIEW_CLASS(klass: pointer) : PGtkPreviewClass;
begin
   GTK_PREVIEW_CLASS:=PGtkPreviewClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_PREVIEW));
end;

function GTK_IS_PREVIEW(obj: pointer) : boolean;
begin
   GTK_IS_PREVIEW:=GTK_CHECK_TYPE(obj,GTK_TYPE_PREVIEW);
end;

function GTK_IS_PREVIEW_CLASS(klass: pointer) : boolean;
begin
   GTK_IS_PREVIEW_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_PREVIEW);
end;

function GTK_PREVIEW_GET_CLASS(obj: pointer) : PGtkPreviewClass;
begin
   GTK_PREVIEW_GET_CLASS:=PGtkPreviewClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_PREVIEW));
end;

function get_type(var a : TGtkPreview) : guint;
begin
   get_type:=(a.flag0 and bm_TGtkPreview_type) shr bp_TGtkPreview_type;
end;

procedure set_type(var a : TGtkPreview; __type : guint);
begin
   a.flag0:=a.flag0 or ((__type shl bp_TGtkPreview_type) and bm_TGtkPreview_type);
end;

function get_expand(var a : TGtkPreview) : guint;
begin
   get_expand:=(a.flag0 and bm_TGtkPreview_expand) shr bp_TGtkPreview_expand;
end;

procedure set_expand(var a : TGtkPreview; __expand : guint);
begin
   a.flag0:=a.flag0 or ((__expand shl bp_TGtkPreview_expand) and bm_TGtkPreview_expand);
end;

{$ENDIF read_implementation}
// included by gtk2.pas