blob: ff0dcb36b2779435fc412d4663b9638790090c72 (
plain)
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
|
{$IfDef read_interface}
type
PGnomeColorPicker = ^TGnomeColorPicker;
TGnomeColorPicker = record
button : TGtkButton;
r : gdouble;
g : gdouble;
b : gdouble;
a : gdouble;
image : PGdkImlibImage;
pixmap : PGdkPixmap;
gc : PGdkGC;
da : PGtkWidget;
cs_dialog : PGtkWidget;
title : Pgchar;
flag0 : word;
end;
GNOME_COLOR_PICKER = PGnomeColorPicker;
const
bm__GnomeColorPicker_dither = $1;
bp__GnomeColorPicker_dither = 0;
bm__GnomeColorPicker_use_alpha = $2;
bp__GnomeColorPicker_use_alpha = 1;
function dither(var a :TGnomeColorPicker) : guint;
procedure set_dither(var a :TGnomeColorPicker; __dither : guint);
function use_alpha(var a :TGnomeColorPicker) : guint;
procedure set_use_alpha(var a :TGnomeColorPicker; __use_alpha : guint);
type
PGnomeColorPickerClass = ^TGnomeColorPickerClass;
TGnomeColorPickerClass = record
parent_class : TGtkButtonClass;
color_set : procedure (cp:PGnomeColorPicker; r:guint; g:guint; b:guint; a:guint);cdecl;
end;
GNOME_COLOR_PICKER_CLASS = PGnomeColorPickerClass;
function GNOME_TYPE_COLOR_PICKER : TGTKType;
function GNOME_IS_COLOR_PICKER(obj : Pointer) : Boolean;
function GNOME_IS_COLOR_PICKER_CLASS(klass : Pointer) : Boolean;
function gnome_color_picker_get_type:TGtkType;cdecl;external libgnomeuidll name 'gnome_color_picker_get_type';
function gnome_color_picker_new:PGtkWidget;cdecl;external libgnomeuidll name 'gnome_color_picker_new';
procedure gnome_color_picker_set_d(cp:PGnomeColorPicker; r:gdouble; g:gdouble; b:gdouble; a:gdouble);cdecl;external libgnomeuidll name 'gnome_color_picker_set_d';
procedure gnome_color_picker_get_d(cp:PGnomeColorPicker; r:Pgdouble; g:Pgdouble; b:Pgdouble; a:Pgdouble);cdecl;external libgnomeuidll name 'gnome_color_picker_get_d';
procedure gnome_color_picker_set_i8(cp:PGnomeColorPicker; r:guint8; g:guint8; b:guint8; a:guint8);cdecl;external libgnomeuidll name 'gnome_color_picker_set_i8';
procedure gnome_color_picker_get_i8(cp:PGnomeColorPicker; r:Pguint8; g:Pguint8; b:Pguint8; a:Pguint8);cdecl;external libgnomeuidll name 'gnome_color_picker_get_i8';
procedure gnome_color_picker_set_i16(cp:PGnomeColorPicker; r:gushort; g:gushort; b:gushort; a:gushort);cdecl;external libgnomeuidll name 'gnome_color_picker_set_i16';
procedure gnome_color_picker_get_i16(cp:PGnomeColorPicker; r:Pgushort; g:Pgushort; b:Pgushort; a:Pgushort);cdecl;external libgnomeuidll name 'gnome_color_picker_get_i16';
procedure gnome_color_picker_set_dither(cp:PGnomeColorPicker; dither:gboolean);cdecl;external libgnomeuidll name 'gnome_color_picker_set_dither';
procedure gnome_color_picker_set_use_alpha(cp:PGnomeColorPicker; use_alpha:gboolean);cdecl;external libgnomeuidll name 'gnome_color_picker_set_use_alpha';
procedure gnome_color_picker_set_title(cp:PGnomeColorPicker; title:Pgchar);cdecl;external libgnomeuidll name 'gnome_color_picker_set_title';
{$EndIf read_interface}
{$Ifdef read_implementation}
function GNOME_TYPE_COLOR_PICKER : TGTKType;
begin
GNOME_TYPE_COLOR_PICKER:=gnome_color_picker_get_type;
end;
function GNOME_IS_COLOR_PICKER(obj : Pointer) : Boolean;
begin
GNOME_IS_COLOR_PICKER:=(obj<>nil) and GNOME_IS_COLOR_PICKER_CLASS(PGtkTypeObject(obj)^.klass);
end;
function GNOME_IS_COLOR_PICKER_CLASS(klass : Pointer) : Boolean;
begin
GNOME_IS_COLOR_PICKER_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_COLOR_PICKER);
end;
function dither(var a :TGnomeColorPicker) : guint;
begin
dither:=(a.flag0 and bm__GnomeColorPicker_dither) shr bp__GnomeColorPicker_dither;
end;
procedure set_dither(var a :TGnomeColorPicker; __dither : guint);
begin
a.flag0:=a.flag0 or ((__dither shl bp__GnomeColorPicker_dither) and bm__GnomeColorPicker_dither);
end;
function use_alpha(var a :TGnomeColorPicker) : guint;
begin
use_alpha:=(a.flag0 and bm__GnomeColorPicker_use_alpha) shr bp__GnomeColorPicker_use_alpha;
end;
procedure set_use_alpha(var a :TGnomeColorPicker; __use_alpha : guint);
begin
a.flag0:=a.flag0 or ((__use_alpha shl bp__GnomeColorPicker_use_alpha) and bm__GnomeColorPicker_use_alpha);
end;
{$Endif read_implementation}
|
