← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/extra/gtk2/gtk+/gtk/gtkpreview.inc

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/gtk2/gtk+/gtk/gtkpreview.inc
 
1
// included by gtk2.pas
 
2
 
 
3
{$IFDEF read_forward_definitions}
 
4
{$ENDIF read_forward_definitions}
 
5
 
 
6
//------------------------------------------------------------------------------
 
7
 
 
8
{$IFDEF read_interface_types}
 
9
   PGtkPreview = ^TGtkPreview;
 
10
   TGtkPreview = record
 
11
        widget : TGtkWidget;
 
12
        buffer : Pguchar;
 
13
        buffer_width : guint16;
 
14
        buffer_height : guint16;
 
15
        bpp : guint16;
 
16
        rowstride : guint16;
 
17
        dither : TGdkRgbDither;
 
18
        flag0 : word;
 
19
     end;
 
20
 
 
21
   PGtkPreviewInfo = ^TGtkPreviewInfo;
 
22
   TGtkPreviewInfo = record
 
23
        lookup : Pguchar;
 
24
        gamma : gdouble;
 
25
     end;
 
26
 
 
27
   PGtkDitherInfo = ^TGtkDitherInfo;
 
28
   TGtkDitherInfo = record
 
29
       case longint of
 
30
          0 : ( s : array[0..1] of gushort );
 
31
          1 : ( c : array[0..3] of guchar );
 
32
       end;
 
33
 
 
34
   PGtkPreviewClass = ^TGtkPreviewClass;
 
35
   TGtkPreviewClass = record
 
36
        parent_class : TGtkWidgetClass;
 
37
        info : TGtkPreviewInfo;
 
38
     end;
 
39
 
 
40
{$ENDIF read_interface_types}
 
41
 
 
42
//------------------------------------------------------------------------------
 
43
 
 
44
{$IFDEF read_interface_rest}
 
45
const
 
46
   bm_TGtkPreview_type = $1;
 
47
   bp_TGtkPreview_type = 0;
 
48
   bm_TGtkPreview_expand = $2;
 
49
   bp_TGtkPreview_expand = 1;
 
50
 
 
51
 
 
52
function GTK_TYPE_PREVIEW : GType;
 
53
function GTK_PREVIEW(obj: pointer) : PGtkPreview;
 
54
function GTK_PREVIEW_CLASS(klass: pointer) : PGtkPreviewClass;
 
55
function GTK_IS_PREVIEW(obj: pointer) : boolean;
 
56
function GTK_IS_PREVIEW_CLASS(klass: pointer) : boolean;
 
57
function GTK_PREVIEW_GET_CLASS(obj: pointer) : PGtkPreviewClass;
 
58
 
 
59
function get_type(var a : TGtkPreview) : guint; overload;
 
60
procedure set_type(var a : TGtkPreview; __type : guint); overload;
 
61
function get_expand(var a : TGtkPreview) : guint; overload;
 
62
procedure set_expand(var a : TGtkPreview; __expand : guint); overload;
 
63
 
 
64
function gtk_preview_get_type:TGtkType; cdecl; external gtklib;
 
65
procedure gtk_preview_uninit; cdecl; external gtklib;
 
66
function gtk_preview_new(_type:TGtkPreviewType):PGtkWidget; cdecl; external gtklib;
 
67
procedure gtk_preview_size(preview:PGtkPreview; width:gint; height:gint); cdecl; external gtklib;
 
68
procedure gtk_preview_put(preview:PGtkPreview; window:PGdkWindow; gc:PGdkGC; srcx:gint; srcy:gint;
 
69
            destx:gint; desty:gint; width:gint; height:gint); cdecl; external gtklib;
 
70
procedure gtk_preview_draw_row(preview:PGtkPreview; data:Pguchar; x:gint; y:gint; w:gint); cdecl; external gtklib;
 
71
procedure gtk_preview_set_expand(preview:PGtkPreview; expand:gboolean); cdecl; external gtklib;
 
72
procedure gtk_preview_set_gamma(gamma:double); cdecl; external gtklib;
 
73
procedure gtk_preview_set_color_cube(nred_shades:guint; ngreen_shades:guint; nblue_shades:guint; ngray_shades:guint); cdecl; external gtklib;
 
74
procedure gtk_preview_set_install_cmap(install_cmap:gint); cdecl; external gtklib;
 
75
procedure gtk_preview_set_reserved(nreserved:gint); cdecl; external gtklib;
 
76
procedure gtk_preview_set_dither(preview:PGtkPreview; dither:TGdkRgbDither); cdecl; external gtklib;
 
77
 
 
78
{$ifndef GTK_DISABLE_DEPRECATED}
 
79
function gtk_preview_get_visual:PGdkVisual; cdecl; external gtklib;
 
80
function gtk_preview_get_cmap:PGdkColormap; cdecl; external gtklib;
 
81
{$endif}
 
82
 
 
83
function gtk_preview_get_info:PGtkPreviewInfo; cdecl; external gtklib;
 
84
{ This function reinitializes the preview colormap and visual from
 
85
   the current gamma/color_cube/install_cmap settings. It must only
 
86
   be called if there are no previews or users's of the preview
 
87
   colormap in existence.
 
88
  }
 
89
procedure gtk_preview_reset; cdecl; external gtklib;
 
90
{$ENDIF read_interface_rest}
 
91
 
 
92
//------------------------------------------------------------------------------
 
93
 
 
94
{$IFDEF read_implementation}
 
95
function GTK_TYPE_PREVIEW : GType;
 
96
begin
 
97
   GTK_TYPE_PREVIEW:=gtk_preview_get_type;
 
98
end;
 
99
 
 
100
function GTK_PREVIEW(obj: pointer) : PGtkPreview;
 
101
begin
 
102
   GTK_PREVIEW:=PGtkPreview(GTK_CHECK_CAST(obj,GTK_TYPE_PREVIEW));
 
103
end;
 
104
 
 
105
function GTK_PREVIEW_CLASS(klass: pointer) : PGtkPreviewClass;
 
106
begin
 
107
   GTK_PREVIEW_CLASS:=PGtkPreviewClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_PREVIEW));
 
108
end;
 
109
 
 
110
function GTK_IS_PREVIEW(obj: pointer) : boolean;
 
111
begin
 
112
   GTK_IS_PREVIEW:=GTK_CHECK_TYPE(obj,GTK_TYPE_PREVIEW);
 
113
end;
 
114
 
 
115
function GTK_IS_PREVIEW_CLASS(klass: pointer) : boolean;
 
116
begin
 
117
   GTK_IS_PREVIEW_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_PREVIEW);
 
118
end;
 
119
 
 
120
function GTK_PREVIEW_GET_CLASS(obj: pointer) : PGtkPreviewClass;
 
121
begin
 
122
   GTK_PREVIEW_GET_CLASS:=PGtkPreviewClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_PREVIEW));
 
123
end;
 
124
 
 
125
function get_type(var a : TGtkPreview) : guint;
 
126
begin
 
127
   get_type:=(a.flag0 and bm_TGtkPreview_type) shr bp_TGtkPreview_type;
 
128
end;
 
129
 
 
130
procedure set_type(var a : TGtkPreview; __type : guint);
 
131
begin
 
132
   a.flag0:=a.flag0 or ((__type shl bp_TGtkPreview_type) and bm_TGtkPreview_type);
 
133
end;
 
134
 
 
135
function get_expand(var a : TGtkPreview) : guint;
 
136
begin
 
137
   get_expand:=(a.flag0 and bm_TGtkPreview_expand) shr bp_TGtkPreview_expand;
 
138
end;
 
139
 
 
140
procedure set_expand(var a : TGtkPreview; __expand : guint);
 
141
begin
 
142
   a.flag0:=a.flag0 or ((__expand shl bp_TGtkPreview_expand) and bm_TGtkPreview_expand);
 
143
end;
 
144
 
 
145
{$ENDIF read_implementation}
 
146
// included by gtk2.pas
 
147