← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk2/gtk+/gtk/gtktreeviewcolumn.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/gtk2/gtk+/gtk/gtktreeviewcolumn.inc
 
1
// included by gtk2.pas
 
2
 
 
3
{$IFDEF read_forward_definitions}
 
4
   PGtkTreeViewColumn = ^TGtkTreeViewColumn;
 
5
 
 
6
{$ENDIF read_forward_definitions}
 
7
 
 
8
//------------------------------------------------------------------------------
 
9
 
 
10
{$IFDEF read_interface_types}
 
11
 
 
12
   PGtkTreeViewColumnSizing = ^TGtkTreeViewColumnSizing;
 
13
   TGtkTreeViewColumnSizing = (
 
14
     GTK_TREE_VIEW_COLUMN_GROW_ONLY,
 
15
     GTK_TREE_VIEW_COLUMN_AUTOSIZE,
 
16
     GTK_TREE_VIEW_COLUMN_FIXED
 
17
   );
 
18
 
 
19
   TGtkTreeCellDataFunc = procedure (tree_column:PGtkTreeViewColumn;
 
20
                                     cell:PGtkCellRenderer;
 
21
                                     tree_model:PGtkTreeModel;
 
22
                                     iter:PGtkTreeIter; data:gpointer); cdecl;
 
23
{ Sizing fields  }
 
24
{ see gtk+/doc/tree-column-sizing.txt for more information on them  }
 
25
{ dragging columns  }
 
26
{ Sorting  }
 
27
{ Flags  }
 
28
   TGtkTreeViewColumn = record
 
29
        parent : TGtkObject;
 
30
        tree_view : PGtkWidget;
 
31
        button : PGtkWidget;
 
32
        child : PGtkWidget;
 
33
        arrow : PGtkWidget;
 
34
        alignment : PGtkWidget;
 
35
        window : PGdkWindow;
 
36
        editable_widget : PGtkCellEditable;
 
37
        xalign : gfloat;
 
38
        property_changed_signal : guint;
 
39
        spacing : gint;
 
40
        column_type : TGtkTreeViewColumnSizing;
 
41
        requested_width : gint;
 
42
        button_request : gint;
 
43
        resized_width : gint;
 
44
        width : gint;
 
45
        fixed_width : gint;
 
46
        min_width : gint;
 
47
        max_width : gint;
 
48
        drag_x : gint;
 
49
        drag_y : gint;
 
50
        title : Pgchar;
 
51
        cell_list : PGList;
 
52
        sort_clicked_signal : guint;
 
53
        sort_column_changed_signal : guint;
 
54
        sort_column_id : gint;
 
55
        sort_order : TGtkSortType;
 
56
        flag0 : word;
 
57
     end;
 
58
 
 
59
 
 
60
{ Padding for future expansion  }
 
61
   PGtkTreeViewColumnClass = ^TGtkTreeViewColumnClass;
 
62
   TGtkTreeViewColumnClass = record
 
63
        parent_class : TGtkObjectClass;
 
64
        clicked : procedure (tree_column:PGtkTreeViewColumn); cdecl;
 
65
        _gtk_reserved1 : procedure ; cdecl;
 
66
        _gtk_reserved2 : procedure ; cdecl;
 
67
        _gtk_reserved3 : procedure ; cdecl;
 
68
        _gtk_reserved4 : procedure ; cdecl;
 
69
     end;
 
70
{$ENDIF read_interface_types}
 
71
 
 
72
//------------------------------------------------------------------------------
 
73
 
 
74
{$IFDEF read_interface_rest}
 
75
const
 
76
   bm_TGtkTreeViewColumn_visible = $1;
 
77
   bp_TGtkTreeViewColumn_visible = 0;
 
78
   bm_TGtkTreeViewColumn_resizable = $2;
 
79
   bp_TGtkTreeViewColumn_resizable = 1;
 
80
   bm_TGtkTreeViewColumn_clickable = $4;
 
81
   bp_TGtkTreeViewColumn_clickable = 2;
 
82
   bm_TGtkTreeViewColumn_dirty = $8;
 
83
   bp_TGtkTreeViewColumn_dirty = 3;
 
84
   bm_TGtkTreeViewColumn_show_sort_indicator = $10;
 
85
   bp_TGtkTreeViewColumn_show_sort_indicator = 4;
 
86
   bm_TGtkTreeViewColumn_maybe_reordered = $20;
 
87
   bp_TGtkTreeViewColumn_maybe_reordered = 5;
 
88
   bm_TGtkTreeViewColumn_reorderable = $40;
 
89
   bp_TGtkTreeViewColumn_reorderable = 6;
 
90
   bm_TGtkTreeViewColumn_use_resized_width = $80;
 
91
   bp_TGtkTreeViewColumn_use_resized_width = 7;
 
92
 
 
93
 
 
94
function GTK_TYPE_TREE_VIEW_COLUMN : GType;
 
95
function GTK_TREE_VIEW_COLUMN(obj: pointer) : PGtkTreeViewColumn;
 
96
function GTK_TREE_VIEW_COLUMN_CLASS(klass: pointer) : PGtkTreeViewColumnClass;
 
97
function GTK_IS_TREE_VIEW_COLUMN(obj: pointer) : boolean;
 
98
function GTK_IS_TREE_VIEW_COLUMN_CLASS(klass: pointer) : boolean;
 
99
function GTK_TREE_VIEW_COLUMN_GET_CLASS(obj: pointer) : PGtkTreeViewColumnClass;
 
100
 
 
101
 
 
102
function visible(var a : TGtkTreeViewColumn) : guint; overload;
 
103
procedure set_visible(var a : TGtkTreeViewColumn; __visible : guint); overload;
 
104
function resizable(var a : TGtkTreeViewColumn) : guint;
 
105
procedure set_resizable(var a : TGtkTreeViewColumn; __resizable : guint);
 
106
function clickable(var a : TGtkTreeViewColumn) : guint;
 
107
procedure set_clickable(var a : TGtkTreeViewColumn; __clickable : guint);
 
108
function dirty(var a : TGtkTreeViewColumn) : guint;
 
109
procedure set_dirty(var a : TGtkTreeViewColumn; __dirty : guint);
 
110
function show_sort_indicator(var a : TGtkTreeViewColumn) : guint;
 
111
procedure set_show_sort_indicator(var a : TGtkTreeViewColumn; __show_sort_indicator : guint);
 
112
function maybe_reordered(var a : TGtkTreeViewColumn) : guint;
 
113
procedure set_maybe_reordered(var a : TGtkTreeViewColumn; __maybe_reordered : guint);
 
114
function reorderable(var a : TGtkTreeViewColumn) : guint; overload;
 
115
procedure set_reorderable(var a : TGtkTreeViewColumn; __reorderable : guint); overload;
 
116
function use_resized_width(var a : TGtkTreeViewColumn) : guint;
 
117
procedure set_use_resized_width(var a : TGtkTreeViewColumn; __use_resized_width : guint);
 
118
 
 
119
 
 
120
function gtk_tree_view_column_get_type:TGtkType; cdecl; external gtklib;
 
121
function gtk_tree_view_column_new:PGtkTreeViewColumn; cdecl; external gtklib;
 
122
{$IFNDEF KYLIX}
 
123
function gtk_tree_view_column_new_with_attributes(title:Pgchar; cell:PGtkCellRenderer; args:array of const):PGtkTreeViewColumn; cdecl; overload; external gtklib;
 
124
function gtk_tree_view_column_new_with_attributes(title:Pgchar; cell:PGtkCellRenderer):PGtkTreeViewColumn; cdecl; overload; varargs; external gtklib;
 
125
{$ELSE}
 
126
function gtk_tree_view_column_new_with_attributes(title:Pgchar; cell:PGtkCellRenderer):PGtkTreeViewColumn; varargs; cdecl; external gtklib;
 
127
{$ENDIF}
 
128
procedure gtk_tree_view_column_pack_start(tree_column:PGtkTreeViewColumn; cell:PGtkCellRenderer; expand:gboolean); cdecl; external gtklib;
 
129
procedure gtk_tree_view_column_pack_end(tree_column:PGtkTreeViewColumn; cell:PGtkCellRenderer; expand:gboolean); cdecl; external gtklib;
 
130
procedure gtk_tree_view_column_clear(tree_column:PGtkTreeViewColumn); cdecl; external gtklib;
 
131
function gtk_tree_view_column_get_cell_renderers(tree_column:PGtkTreeViewColumn):PGList; cdecl; external gtklib;
 
132
procedure gtk_tree_view_column_add_attribute(tree_column:PGtkTreeViewColumn; cell_renderer:PGtkCellRenderer; attribute:Pgchar; column:gint); cdecl; external gtklib;
 
133
{$IFNDEF KYLIX}
 
134
procedure gtk_tree_view_column_set_attributes(tree_column:PGtkTreeViewColumn; cell_renderer:PGtkCellRenderer; args:array of const); cdecl; overload; external gtklib;
 
135
procedure gtk_tree_view_column_set_attributes(tree_column:PGtkTreeViewColumn; cell_renderer:PGtkCellRenderer); cdecl; overload; varargs; external gtklib;
 
136
{$ELSE}
 
137
procedure gtk_tree_view_column_set_attributes(tree_column:PGtkTreeViewColumn; cell_renderer:PGtkCellRenderer); varargs; cdecl; external gtklib;
 
138
{$ENDIF}
 
139
procedure gtk_tree_view_column_set_cell_data_func(tree_column:PGtkTreeViewColumn; cell_renderer:PGtkCellRenderer; func:TGtkTreeCellDataFunc; func_data:gpointer; destroy:TGtkDestroyNotify); cdecl; external gtklib;
 
140
procedure gtk_tree_view_column_clear_attributes(tree_column:PGtkTreeViewColumn; cell_renderer:PGtkCellRenderer); cdecl; external gtklib;
 
141
procedure gtk_tree_view_column_set_spacing(tree_column:PGtkTreeViewColumn; spacing:gint); cdecl; external gtklib;
 
142
function gtk_tree_view_column_get_spacing(tree_column:PGtkTreeViewColumn):gint; cdecl; external gtklib;
 
143
procedure gtk_tree_view_column_set_visible(tree_column:PGtkTreeViewColumn; visible:gboolean); cdecl; external gtklib;
 
144
function gtk_tree_view_column_get_visible(tree_column:PGtkTreeViewColumn):gboolean; cdecl; external gtklib;
 
145
procedure gtk_tree_view_column_set_resizable(tree_column:PGtkTreeViewColumn; resizable:gboolean); cdecl; external gtklib;
 
146
function gtk_tree_view_column_get_resizable(tree_column:PGtkTreeViewColumn):gboolean; cdecl; external gtklib;
 
147
procedure gtk_tree_view_column_set_sizing(tree_column:PGtkTreeViewColumn; _type:TGtkTreeViewColumnSizing); cdecl; external gtklib;
 
148
function gtk_tree_view_column_get_sizing(tree_column:PGtkTreeViewColumn):TGtkTreeViewColumnSizing; cdecl; external gtklib;
 
149
function gtk_tree_view_column_get_width(tree_column:PGtkTreeViewColumn):gint; cdecl; external gtklib;
 
150
function gtk_tree_view_column_get_fixed_width(tree_column:PGtkTreeViewColumn):gint; cdecl; external gtklib;
 
151
procedure gtk_tree_view_column_set_fixed_width(tree_column:PGtkTreeViewColumn; fixed_width:gint); cdecl; external gtklib;
 
152
procedure gtk_tree_view_column_set_min_width(tree_column:PGtkTreeViewColumn; min_width:gint); cdecl; external gtklib;
 
153
function gtk_tree_view_column_get_min_width(tree_column:PGtkTreeViewColumn):gint; cdecl; external gtklib;
 
154
procedure gtk_tree_view_column_set_max_width(tree_column:PGtkTreeViewColumn; max_width:gint); cdecl; external gtklib;
 
155
function gtk_tree_view_column_get_max_width(tree_column:PGtkTreeViewColumn):gint; cdecl; external gtklib;
 
156
procedure gtk_tree_view_column_clicked(tree_column:PGtkTreeViewColumn); cdecl; external gtklib;
 
157
{ Options for manipulating the column headers
 
158
  }
 
159
procedure gtk_tree_view_column_set_title(tree_column:PGtkTreeViewColumn; title:Pgchar); cdecl; external gtklib;
 
160
function gtk_tree_view_column_get_title(tree_column:PGtkTreeViewColumn):Pgchar; cdecl; external gtklib;
 
161
procedure gtk_tree_view_column_set_clickable(tree_column:PGtkTreeViewColumn; clickable:gboolean); cdecl; external gtklib;
 
162
function gtk_tree_view_column_get_clickable(tree_column:PGtkTreeViewColumn):gboolean; cdecl; external gtklib;
 
163
procedure gtk_tree_view_column_set_widget(tree_column:PGtkTreeViewColumn; widget:PGtkWidget); cdecl; external gtklib;
 
164
function gtk_tree_view_column_get_widget(tree_column:PGtkTreeViewColumn):PGtkWidget; cdecl; external gtklib;
 
165
procedure gtk_tree_view_column_set_alignment(tree_column:PGtkTreeViewColumn; xalign:gfloat); cdecl; external gtklib;
 
166
function gtk_tree_view_column_get_alignment(tree_column:PGtkTreeViewColumn):gfloat; cdecl; external gtklib;
 
167
procedure gtk_tree_view_column_set_reorderable(tree_column:PGtkTreeViewColumn; reorderable:gboolean); cdecl; external gtklib;
 
168
function gtk_tree_view_column_get_reorderable(tree_column:PGtkTreeViewColumn):gboolean; cdecl; external gtklib;
 
169
{ You probably only want to use gtk_tree_view_column_set_sort_column_id.  The
 
170
   other sorting functions exist primarily to let others do their own custom sorting.
 
171
  }
 
172
procedure gtk_tree_view_column_set_sort_column_id(tree_column:PGtkTreeViewColumn; sort_column_id:gint); cdecl; external gtklib;
 
173
function gtk_tree_view_column_get_sort_column_id(tree_column:PGtkTreeViewColumn):gint; cdecl; external gtklib;
 
174
procedure gtk_tree_view_column_set_sort_indicator(tree_column:PGtkTreeViewColumn; setting:gboolean); cdecl; external gtklib;
 
175
function gtk_tree_view_column_get_sort_indicator(tree_column:PGtkTreeViewColumn):gboolean; cdecl; external gtklib;
 
176
procedure gtk_tree_view_column_set_sort_order(tree_column:PGtkTreeViewColumn; order:TGtkSortType); cdecl; external gtklib;
 
177
function gtk_tree_view_column_get_sort_order(tree_column:PGtkTreeViewColumn):TGtkSortType; cdecl; external gtklib;
 
178
{ These functions are meant primarily for interaction between the GtkTreeView and the column.
 
179
  }
 
180
procedure gtk_tree_view_column_cell_set_cell_data(tree_column:PGtkTreeViewColumn; tree_model:PGtkTreeModel; iter:PGtkTreeIter; is_expander:gboolean; is_expanded:gboolean); cdecl; external gtklib;
 
181
procedure gtk_tree_view_column_cell_get_size(tree_column:PGtkTreeViewColumn; cell_area:PGdkRectangle; x_offset:Pgint; y_offset:Pgint; width:Pgint;
 
182
            height:Pgint); cdecl; external gtklib;
 
183
function gtk_tree_view_column_cell_is_visible(tree_column:PGtkTreeViewColumn):gboolean; cdecl; external gtklib;
 
184
procedure gtk_tree_view_column_focus_cell(tree_column:PGtkTreeViewColumn; cell:PGtkCellRenderer); cdecl; external gtklib;
 
185
 
 
186
// since gtk 2.4
 
187
procedure gtk_tree_view_column_set_expand(tree_column: PGtkTreeViewColumn; Expand : gboolean); cdecl; external gtklib;
 
188
function gtk_tree_view_column_get_expand(tree_column: PGtkTreeViewColumn): gboolean; cdecl; external gtklib;
 
189
{$ENDIF read_interface_rest}
 
190
 
 
191
//------------------------------------------------------------------------------
 
192
 
 
193
{$IFDEF read_implementation}
 
194
function GTK_TYPE_TREE_VIEW_COLUMN : GType;
 
195
begin
 
196
   GTK_TYPE_TREE_VIEW_COLUMN:=gtk_tree_view_column_get_type;
 
197
end;
 
198
 
 
199
function GTK_TREE_VIEW_COLUMN(obj: pointer) : PGtkTreeViewColumn;
 
200
begin
 
201
   GTK_TREE_VIEW_COLUMN:=PGtkTreeViewColumn(GTK_CHECK_CAST(obj,GTK_TYPE_TREE_VIEW_COLUMN));
 
202
end;
 
203
 
 
204
function GTK_TREE_VIEW_COLUMN_CLASS(klass: pointer) : PGtkTreeViewColumnClass;
 
205
begin
 
206
   GTK_TREE_VIEW_COLUMN_CLASS:=PGtkTreeViewColumnClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_TREE_VIEW_COLUMN));
 
207
end;
 
208
 
 
209
function GTK_IS_TREE_VIEW_COLUMN(obj: pointer) : boolean;
 
210
begin
 
211
   GTK_IS_TREE_VIEW_COLUMN:=GTK_CHECK_TYPE(obj,GTK_TYPE_TREE_VIEW_COLUMN);
 
212
end;
 
213
 
 
214
function GTK_IS_TREE_VIEW_COLUMN_CLASS(klass: pointer) : boolean;
 
215
begin
 
216
   GTK_IS_TREE_VIEW_COLUMN_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_TREE_VIEW_COLUMN);
 
217
end;
 
218
 
 
219
function GTK_TREE_VIEW_COLUMN_GET_CLASS(obj: pointer) : PGtkTreeViewColumnClass;
 
220
begin
 
221
   GTK_TREE_VIEW_COLUMN_GET_CLASS:=PGtkTreeViewColumnClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_TREE_VIEW_COLUMN));
 
222
end;
 
223
 
 
224
function visible(var a : TGtkTreeViewColumn) : guint;
 
225
begin
 
226
   visible:=(a.flag0 and bm_TGtkTreeViewColumn_visible) shr bp_TGtkTreeViewColumn_visible;
 
227
end;
 
228
 
 
229
procedure set_visible(var a : TGtkTreeViewColumn; __visible : guint);
 
230
begin
 
231
   a.flag0:=a.flag0 or ((__visible shl bp_TGtkTreeViewColumn_visible) and bm_TGtkTreeViewColumn_visible);
 
232
end;
 
233
 
 
234
function resizable(var a : TGtkTreeViewColumn) : guint;
 
235
begin
 
236
   resizable:=(a.flag0 and bm_TGtkTreeViewColumn_resizable) shr bp_TGtkTreeViewColumn_resizable;
 
237
end;
 
238
 
 
239
procedure set_resizable(var a : TGtkTreeViewColumn; __resizable : guint);
 
240
begin
 
241
   a.flag0:=a.flag0 or ((__resizable shl bp_TGtkTreeViewColumn_resizable) and bm_TGtkTreeViewColumn_resizable);
 
242
end;
 
243
 
 
244
function clickable(var a : TGtkTreeViewColumn) : guint;
 
245
begin
 
246
   clickable:=(a.flag0 and bm_TGtkTreeViewColumn_clickable) shr bp_TGtkTreeViewColumn_clickable;
 
247
end;
 
248
 
 
249
procedure set_clickable(var a : TGtkTreeViewColumn; __clickable : guint);
 
250
begin
 
251
   a.flag0:=a.flag0 or ((__clickable shl bp_TGtkTreeViewColumn_clickable) and bm_TGtkTreeViewColumn_clickable);
 
252
end;
 
253
 
 
254
function dirty(var a : TGtkTreeViewColumn) : guint;
 
255
begin
 
256
   dirty:=(a.flag0 and bm_TGtkTreeViewColumn_dirty) shr bp_TGtkTreeViewColumn_dirty;
 
257
end;
 
258
 
 
259
procedure set_dirty(var a : TGtkTreeViewColumn; __dirty : guint);
 
260
begin
 
261
   a.flag0:=a.flag0 or ((__dirty shl bp_TGtkTreeViewColumn_dirty) and bm_TGtkTreeViewColumn_dirty);
 
262
end;
 
263
 
 
264
function show_sort_indicator(var a : TGtkTreeViewColumn) : guint;
 
265
begin
 
266
   show_sort_indicator:=(a.flag0 and bm_TGtkTreeViewColumn_show_sort_indicator) shr bp_TGtkTreeViewColumn_show_sort_indicator;
 
267
end;
 
268
 
 
269
procedure set_show_sort_indicator(var a : TGtkTreeViewColumn; __show_sort_indicator : guint);
 
270
begin
 
271
   a.flag0:=a.flag0 or ((__show_sort_indicator shl bp_TGtkTreeViewColumn_show_sort_indicator) and bm_TGtkTreeViewColumn_show_sort_indicator);
 
272
end;
 
273
 
 
274
function maybe_reordered(var a : TGtkTreeViewColumn) : guint;
 
275
begin
 
276
   maybe_reordered:=(a.flag0 and bm_TGtkTreeViewColumn_maybe_reordered) shr bp_TGtkTreeViewColumn_maybe_reordered;
 
277
end;
 
278
 
 
279
procedure set_maybe_reordered(var a : TGtkTreeViewColumn; __maybe_reordered : guint);
 
280
begin
 
281
   a.flag0:=a.flag0 or ((__maybe_reordered shl bp_TGtkTreeViewColumn_maybe_reordered) and bm_TGtkTreeViewColumn_maybe_reordered);
 
282
end;
 
283
 
 
284
function reorderable(var a : TGtkTreeViewColumn) : guint;
 
285
begin
 
286
   reorderable:=(a.flag0 and bm_TGtkTreeViewColumn_reorderable) shr bp_TGtkTreeViewColumn_reorderable;
 
287
end;
 
288
 
 
289
procedure set_reorderable(var a : TGtkTreeViewColumn; __reorderable : guint);
 
290
begin
 
291
   a.flag0:=a.flag0 or ((__reorderable shl bp_TGtkTreeViewColumn_reorderable) and bm_TGtkTreeViewColumn_reorderable);
 
292
end;
 
293
 
 
294
function use_resized_width(var a : TGtkTreeViewColumn) : guint;
 
295
begin
 
296
   use_resized_width:=(a.flag0 and bm_TGtkTreeViewColumn_use_resized_width) shr bp_TGtkTreeViewColumn_use_resized_width;
 
297
end;
 
298
 
 
299
procedure set_use_resized_width(var a : TGtkTreeViewColumn; __use_resized_width : guint);
 
300
begin
 
301
   a.flag0:=a.flag0 or ((__use_resized_width shl bp_TGtkTreeViewColumn_use_resized_width) and bm_TGtkTreeViewColumn_use_resized_width);
 
302
end;
 
303
 
 
304
{$ENDIF read_implementation}
 
305
// included by gtk2.pas
 
306