1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
// 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
|
