blob: 62cfebf1dc8859ce20cb89067e273121573d58f5 (
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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PGtkToolbarChildType = ^TGtkToolbarChildType;
TGtkToolbarChildType = (
GTK_TOOLBAR_CHILD_SPACE,
GTK_TOOLBAR_CHILD_BUTTON,
GTK_TOOLBAR_CHILD_TOGGLEBUTTON,
GTK_TOOLBAR_CHILD_RADIOBUTTON,
GTK_TOOLBAR_CHILD_WIDGET
);
PGtkToolbarSpaceStyle = ^TGtkToolbarSpaceStyle;
TGtkToolbarSpaceStyle = (
GTK_TOOLBAR_SPACE_EMPTY,
GTK_TOOLBAR_SPACE_LINE
);
PGtkToolbarChild = ^TGtkToolbarChild;
TGtkToolbarChild = record
_type : TGtkToolbarChildType;
widget : PGtkWidget;
icon : PGtkWidget;
_label : PGtkWidget;
end;
PGtkToolbar = ^TGtkToolbar;
TGtkToolbar = record
container : TGtkContainer;
num_children : gint;
children : PGList;
orientation : TGtkOrientation;
style : TGtkToolbarStyle;
icon_size : TGtkIconSize;
tooltips : PGtkTooltips;
button_maxw : gint;
button_maxh : gint;
style_set_connection : guint;
icon_size_connection : guint;
flag0 : word;
end;
{ Padding for future expansion }
PGtkToolbarClass = ^TGtkToolbarClass;
TGtkToolbarClass = record
parent_class : TGtkContainerClass;
orientation_changed : procedure (toolbar:PGtkToolbar; orientation:TGtkOrientation); cdecl;
style_changed : procedure (toolbar:PGtkToolbar; style:TGtkToolbarStyle); cdecl;
_gtk_reserved1 : procedure ; cdecl;
_gtk_reserved2 : procedure ; cdecl;
_gtk_reserved3 : procedure ; cdecl;
_gtk_reserved4 : procedure ; cdecl;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
const
bm_TGtkToolbar_style_set = $1;
bp_TGtkToolbar_style_set = 0;
bm_TGtkToolbar_icon_size_set = $2;
bp_TGtkToolbar_icon_size_set = 1;
function GTK_TYPE_TOOLBAR : GType;
function GTK_TOOLBAR(obj: pointer) : PGtkToolbar;
function GTK_TOOLBAR_CLASS(klass: pointer) : PGtkToolbarClass;
function GTK_IS_TOOLBAR(obj: pointer) : boolean;
function GTK_IS_TOOLBAR_CLASS(klass: pointer) : boolean;
function GTK_TOOLBAR_GET_CLASS(obj: pointer) : PGtkToolbarClass;
function style_set(var a : TGtkToolbar) : guint;
procedure set_style_set(var a : TGtkToolbar; __style_set : guint);
function icon_size_set(var a : TGtkToolbar) : guint;
procedure set_icon_size_set(var a : TGtkToolbar; __icon_size_set : guint);
function gtk_toolbar_get_type:TGtkType; cdecl; external gtklib;
function gtk_toolbar_new:PGtkWidget; cdecl; external gtklib;
{ Simple button items }
function gtk_toolbar_append_item(toolbar:PGtkToolbar; text:Pchar; tooltip_text:Pchar; tooltip_private_text:Pchar; icon:PGtkWidget;
callback:TGtkSignalFunc; user_data:gpointer):PGtkWidget; cdecl; external gtklib;
function gtk_toolbar_prepend_item(toolbar:PGtkToolbar; text:Pchar; tooltip_text:Pchar; tooltip_private_text:Pchar; icon:PGtkWidget;
callback:TGtkSignalFunc; user_data:gpointer):PGtkWidget; cdecl; external gtklib;
function gtk_toolbar_insert_item(toolbar:PGtkToolbar; text:Pchar; tooltip_text:Pchar; tooltip_private_text:Pchar; icon:PGtkWidget;
callback:TGtkSignalFunc; user_data:gpointer; position:gint):PGtkWidget; cdecl; external gtklib;
{ Stock Items }
function gtk_toolbar_insert_stock(toolbar:PGtkToolbar; stock_id:Pgchar; tooltip_text:Pchar; tooltip_private_text:Pchar; callback:TGtkSignalFunc;
user_data:gpointer; position:gint):PGtkWidget; cdecl; external gtklib;
{ Space Items }
procedure gtk_toolbar_append_space(toolbar:PGtkToolbar); cdecl; external gtklib;
procedure gtk_toolbar_prepend_space(toolbar:PGtkToolbar); cdecl; external gtklib;
procedure gtk_toolbar_insert_space(toolbar:PGtkToolbar; position:gint); cdecl; external gtklib;
procedure gtk_toolbar_remove_space(toolbar:PGtkToolbar; position:gint); cdecl; external gtklib;
{ Any element type }
function gtk_toolbar_append_element(toolbar:PGtkToolbar; _type:TGtkToolbarChildType; widget:PGtkWidget; text:Pchar; tooltip_text:Pchar;
tooltip_private_text:Pchar; icon:PGtkWidget; callback:TGtkSignalFunc; user_data:gpointer):PGtkWidget; cdecl; external gtklib;
function gtk_toolbar_prepend_element(toolbar:PGtkToolbar; _type:TGtkToolbarChildType; widget:PGtkWidget; text:Pchar; tooltip_text:Pchar;
tooltip_private_text:Pchar; icon:PGtkWidget; callback:TGtkSignalFunc; user_data:gpointer):PGtkWidget; cdecl; external gtklib;
function gtk_toolbar_insert_element(toolbar:PGtkToolbar; _type:TGtkToolbarChildType; widget:PGtkWidget; text:Pchar; tooltip_text:Pchar;
tooltip_private_text:Pchar; icon:PGtkWidget; callback:TGtkSignalFunc; user_data:gpointer; position:gint):PGtkWidget; cdecl; external gtklib;
{ Generic Widgets }
procedure gtk_toolbar_append_widget(toolbar:PGtkToolbar; widget:PGtkWidget; tooltip_text:Pchar; tooltip_private_text:Pchar); cdecl; external gtklib;
procedure gtk_toolbar_prepend_widget(toolbar:PGtkToolbar; widget:PGtkWidget; tooltip_text:Pchar; tooltip_private_text:Pchar); cdecl; external gtklib;
procedure gtk_toolbar_insert_widget(toolbar:PGtkToolbar; widget:PGtkWidget; tooltip_text:Pchar; tooltip_private_text:Pchar; position:gint); cdecl; external gtklib;
{ Style functions }
procedure gtk_toolbar_set_orientation(toolbar:PGtkToolbar; orientation:TGtkOrientation); cdecl; external gtklib;
procedure gtk_toolbar_set_style(toolbar:PGtkToolbar; style:TGtkToolbarStyle); cdecl; external gtklib;
procedure gtk_toolbar_set_icon_size(toolbar:PGtkToolbar; icon_size:TGtkIconSize); cdecl; external gtklib;
procedure gtk_toolbar_set_tooltips(toolbar:PGtkToolbar; enable:gboolean); cdecl; external gtklib;
procedure gtk_toolbar_unset_style(toolbar:PGtkToolbar); cdecl; external gtklib;
procedure gtk_toolbar_unset_icon_size(toolbar:PGtkToolbar); cdecl; external gtklib;
function gtk_toolbar_get_orientation(toolbar:PGtkToolbar):TGtkOrientation; cdecl; external gtklib;
function gtk_toolbar_get_style(toolbar:PGtkToolbar):TGtkToolbarStyle; cdecl; external gtklib;
function gtk_toolbar_get_icon_size(toolbar:PGtkToolbar):TGtkIconSize; cdecl; external gtklib;
function gtk_toolbar_get_tooltips(toolbar:PGtkToolbar):gboolean; cdecl; external gtklib;
{$ifdef HasGTK2_4}
function gtk_toolbar_get_drop_index(toolbar:PGtkToolbar; x:gint; y:gint):gint; cdecl; external gtklib;
function gtk_toolbar_get_item_index(toolbar:PGtkToolbar; item:PGtkToolItem):gint; cdecl; external gtklib;
function gtk_toolbar_get_nth_item(toolbar:PGtkToolbar; n:gint):PGtkToolItem; cdecl; external gtklib;
function gtk_toolbar_get_n_items(toolbar:PGtkToolbar):gint; cdecl; external gtklib;
function gtk_toolbar_get_relief_style(toolbar:PGtkToolbar):TGtkReliefStyle; cdecl; external gtklib;
function gtk_toolbar_get_show_arrow(toolbar:PGtkToolbar):gboolean; cdecl; external gtklib;
procedure gtk_toolbar_insert(toolbar:PGtkToolbar; item:PGtkToolItem; pos:gint); cdecl; external gtklib;
procedure gtk_toolbar_set_drop_highlight_item(toolbar:PGtkToolbar; tool_item:PGtkToolItem; index_:gint); cdecl; external gtklib;
procedure gtk_toolbar_set_show_arrow(toolbar:PGtkToolbar; show_arrow:gboolean); cdecl; external gtklib;
{$endif}
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_TOOLBAR : GType;
begin
GTK_TYPE_TOOLBAR:=gtk_toolbar_get_type;
end;
function GTK_TOOLBAR(obj: pointer) : PGtkToolbar;
begin
GTK_TOOLBAR:=PGtkToolbar(GTK_CHECK_CAST(obj,GTK_TYPE_TOOLBAR));
end;
function GTK_TOOLBAR_CLASS(klass: pointer) : PGtkToolbarClass;
begin
GTK_TOOLBAR_CLASS:=PGtkToolbarClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_TOOLBAR));
end;
function GTK_IS_TOOLBAR(obj: pointer) : boolean;
begin
GTK_IS_TOOLBAR:=GTK_CHECK_TYPE(obj,GTK_TYPE_TOOLBAR);
end;
function GTK_IS_TOOLBAR_CLASS(klass: pointer) : boolean;
begin
GTK_IS_TOOLBAR_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_TOOLBAR);
end;
function GTK_TOOLBAR_GET_CLASS(obj: pointer) : PGtkToolbarClass;
begin
GTK_TOOLBAR_GET_CLASS:=PGtkToolbarClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_TOOLBAR));
end;
function style_set(var a : TGtkToolbar) : guint;
begin
style_set:=(a.flag0 and bm_TGtkToolbar_style_set) shr bp_TGtkToolbar_style_set;
end;
procedure set_style_set(var a : TGtkToolbar; __style_set : guint);
begin
a.flag0:=a.flag0 or ((__style_set shl bp_TGtkToolbar_style_set) and bm_TGtkToolbar_style_set);
end;
function icon_size_set(var a : TGtkToolbar) : guint;
begin
icon_size_set:=(a.flag0 and bm_TGtkToolbar_icon_size_set) shr bp_TGtkToolbar_icon_size_set;
end;
procedure set_icon_size_set(var a : TGtkToolbar; __icon_size_set : guint);
begin
a.flag0:=a.flag0 or ((__icon_size_set shl bp_TGtkToolbar_icon_size_set) and bm_TGtkToolbar_icon_size_set);
end;
{$ENDIF read_implementation}
// included by gtk2.pas
|
