blob: cd9d791588a07cd7469043232b4b3861e537ff73 (
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
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
|
{$IfDef read_interface}
type
TGnomeIconListMode = (GNOME_ICON_LIST_ICONS,GNOME_ICON_LIST_TEXT_BELOW,GNOME_ICON_LIST_TEXT_RIGHT);
PGnomeIconList = ^TGnomeIconList;
TGnomeIconList = record
canvas : TGnomeCanvas;
adj : PGtkAdjustment;
hadj : PGtkAdjustment;
icons : longint;
priv : gpointer;
pad3 : longint;
pad4 : longint;
pad5 : longint;
pad6 : longint;
pad7 : longint;
pad8 : longint;
pad9 : gpointer;
pad10 : TGnomeIconListMode;
pad11 : TGtkSelectionMode;
selection : PGList;
pad12 : gpointer;
pad13 : longint;
flag0 : word;
pad16 : longint;
pad17 : gpointer;
pad18 : longint;
pad19 : longint;
pad20 : gdouble;
pad21 : gdouble;
pad22 : gpointer;
pad23 : longint;
pad24 : double;
pad25 : double;
pad26 : gpointer;
end;
GNOME_ICON_LIST = ^TGnomeIconList;
const
bm_GnomeIconList_pad14 = $1;
bp_GnomeIconList_pad14 = 0;
bm_GnomeIconList_pad15 = $2;
bp_GnomeIconList_pad15 = 1;
function pad14(var a : TGnomeIconList) : dword;
procedure set_pad14(var a : TGnomeIconList; __pad14 : dword);
function pad15(var a : TGnomeIconList) : dword;
procedure set_pad15(var a : TGnomeIconList; __pad15 : dword);
type
PGnomeIconListClass = ^TGnomeIconListClass;
TGnomeIconListClass = record
parent_class : TGnomeCanvasClass;
select_icon : procedure (gil:PGnomeIconList; num:gint; event:PGdkEvent);cdecl;
unselect_icon : procedure (gil:PGnomeIconList; num:gint; event:PGdkEvent);cdecl;
text_changed : function (gil:PGnomeIconList; num:gint; new_text:Pchar):gboolean;cdecl;
end;
const
GNOME_ICON_LIST_IS_EDITABLE = 1;
GNOME_ICON_LIST_STATIC_TEXT = 2;
function GNOME_TYPE_ICON_LIST : TGTKType;
function GNOME_IS_ICON_LIST(obj : Pointer) : Boolean;
function GNOME_IS_ICON_LIST_CLASS(klass : Pointer) : Boolean;
function gnome_icon_list_get_type:TGTKType;cdecl;external libgnomeuidll name 'gnome_icon_list_get_type';
function gnome_icon_list_new(icon_width:guint; adj:PGtkAdjustment; flags:longint):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_icon_list_new';
function gnome_icon_list_new_flags(icon_width:guint; adj:PGtkAdjustment; flags:longint):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_icon_list_new_flags';
procedure gnome_icon_list_construct(gil:PGnomeIconList; icon_width:guint; adj:PGtkAdjustment; flags:longint);cdecl;external libgnomeuidll name 'gnome_icon_list_construct';
procedure gnome_icon_list_set_hadjustment(gil:PGnomeIconList; hadj:PGtkAdjustment);cdecl;external libgnomeuidll name 'gnome_icon_list_set_hadjustment';
procedure gnome_icon_list_set_vadjustment(gil:PGnomeIconList; vadj:PGtkAdjustment);cdecl;external libgnomeuidll name 'gnome_icon_list_set_vadjustment';
procedure gnome_icon_list_freeze(gil:PGnomeIconList);cdecl;external libgnomeuidll name 'gnome_icon_list_freeze';
procedure gnome_icon_list_thaw(gil:PGnomeIconList);cdecl;external libgnomeuidll name 'gnome_icon_list_thaw';
procedure gnome_icon_list_insert(gil:PGnomeIconList; pos:longint; icon_filename:Pchar; thetext:Pchar);cdecl;external libgnomeuidll name 'gnome_icon_list_insert';
procedure gnome_icon_list_insert_imlib(gil:PGnomeIconList; pos:longint; image:PGdkImlibImage; thetext:Pchar);cdecl;external libgnomeuidll name 'gnome_icon_list_insert_imlib';
function gnome_icon_list_append(gil:PGnomeIconList; icon_filename:Pchar; thetext:Pchar):longint;cdecl;external libgnomeuidll name 'gnome_icon_list_append';
function gnome_icon_list_append_imlib(gil:PGnomeIconList; image:PGdkImlibImage; thetext:Pchar):longint;cdecl;external libgnomeuidll name 'gnome_icon_list_append_imlib';
procedure gnome_icon_list_clear(gil:PGnomeIconList);cdecl;external libgnomeuidll name 'gnome_icon_list_clear';
procedure gnome_icon_list_remove(gil:PGnomeIconList; pos:longint);cdecl;external libgnomeuidll name 'gnome_icon_list_remove';
procedure gnome_icon_list_set_selection_mode(gil:PGnomeIconList; mode:TGtkSelectionMode);cdecl;external libgnomeuidll name 'gnome_icon_list_set_selection_mode';
procedure gnome_icon_list_select_icon(gil:PGnomeIconList; idx:longint);cdecl;external libgnomeuidll name 'gnome_icon_list_select_icon';
procedure gnome_icon_list_unselect_icon(gil:PGnomeIconList; pos:longint);cdecl;external libgnomeuidll name 'gnome_icon_list_unselect_icon';
function gnome_icon_list_unselect_all(gil:PGnomeIconList; event:PGdkEvent; keep:gpointer):longint;cdecl;external libgnomeuidll name 'gnome_icon_list_unselect_all';
procedure gnome_icon_list_set_icon_width(gil:PGnomeIconList; w:longint);cdecl;external libgnomeuidll name 'gnome_icon_list_set_icon_width';
procedure gnome_icon_list_set_row_spacing(gil:PGnomeIconList; pixels:longint);cdecl;external libgnomeuidll name 'gnome_icon_list_set_row_spacing';
procedure gnome_icon_list_set_col_spacing(gil:PGnomeIconList; pixels:longint);cdecl;external libgnomeuidll name 'gnome_icon_list_set_col_spacing';
procedure gnome_icon_list_set_text_spacing(gil:PGnomeIconList; pixels:longint);cdecl;external libgnomeuidll name 'gnome_icon_list_set_text_spacing';
procedure gnome_icon_list_set_icon_border(gil:PGnomeIconList; pixels:longint);cdecl;external libgnomeuidll name 'gnome_icon_list_set_icon_border';
procedure gnome_icon_list_set_separators(gil:PGnomeIconList; sep:Pchar);cdecl;external libgnomeuidll name 'gnome_icon_list_set_separators';
procedure gnome_icon_list_set_icon_data(gil:PGnomeIconList; pos:longint; data:gpointer);cdecl;external libgnomeuidll name 'gnome_icon_list_set_icon_data';
procedure gnome_icon_list_set_icon_data_full(gil:PGnomeIconList; pos:longint; data:gpointer; destroy:TGtkDestroyNotify);cdecl;external libgnomeuidll name 'gnome_icon_list_set_icon_data_full';
function gnome_icon_list_find_icon_from_data(gil:PGnomeIconList; data:gpointer):longint;cdecl;external libgnomeuidll name 'gnome_icon_list_find_icon_from_data';
function gnome_icon_list_get_icon_data(gil:PGnomeIconList; pos:longint):gpointer;cdecl;external libgnomeuidll name 'gnome_icon_list_get_icon_data';
procedure gnome_icon_list_moveto(gil:PGnomeIconList; pos:longint; yalign:double);cdecl;external libgnomeuidll name 'gnome_icon_list_moveto';
function gnome_icon_list_icon_is_visible(gil:PGnomeIconList; pos:longint):TGtkVisibility;cdecl;external libgnomeuidll name 'gnome_icon_list_icon_is_visible';
function gnome_icon_list_get_icon_at(gil:PGnomeIconList; x:longint; y:longint):longint;cdecl;external libgnomeuidll name 'gnome_icon_list_get_icon_at';
function gnome_icon_list_get_items_per_line(gil:PGnomeIconList):longint;cdecl;external libgnomeuidll name 'gnome_icon_list_get_items_per_line';
{$EndIf read_interface}
{$Ifdef read_implementation}
function GNOME_TYPE_ICON_LIST : TGTKType;
begin
GNOME_TYPE_ICON_LIST:=gnome_icon_list_get_type;
end;
function GNOME_IS_ICON_LIST(obj : Pointer) : Boolean;
begin
GNOME_IS_ICON_LIST:=(obj<>nil) and GNOME_IS_ICON_LIST_CLASS(PGtkTypeObject(obj)^.klass);
end;
function GNOME_IS_ICON_LIST_CLASS(klass : Pointer) : Boolean;
begin
GNOME_IS_ICON_LIST_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_ICON_LIST);
end;
function pad14(var a : TGnomeIconList) : dword;
begin
pad14:=(a.flag0 and bm_GnomeIconList_pad14) shr bp_GnomeIconList_pad14;
end;
procedure set_pad14(var a : TGnomeIconList; __pad14 : dword);
begin
a.flag0:=a.flag0 or ((__pad14 shl bp_GnomeIconList_pad14) and bm_GnomeIconList_pad14);
end;
function pad15(var a : TGnomeIconList) : dword;
begin
pad15:=(a.flag0 and bm_GnomeIconList_pad15) shr bp_GnomeIconList_pad15;
end;
procedure set_pad15(var a : TGnomeIconList; __pad15 : dword);
begin
a.flag0:=a.flag0 or ((__pad15 shl bp_GnomeIconList_pad15) and bm_GnomeIconList_pad15);
end;
{$Endif read_implementation}
|
