blob: e506f9efe497c3fdb9fd22a45824630d40694b50 (
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
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PGtkProgress = ^TGtkProgress;
TGtkProgress = record
widget : TGtkWidget;
adjustment : PGtkAdjustment;
offscreen_pixmap : PGdkPixmap;
format : Pgchar;
x_align : gfloat;
y_align : gfloat;
flag0 : word;
end;
{ Padding for future expansion }
PGtkProgressClass = ^TGtkProgressClass;
TGtkProgressClass = record
parent_class : TGtkWidgetClass;
paint : procedure (progress:PGtkProgress); cdecl;
update : procedure (progress:PGtkProgress); cdecl;
act_mode_enter : procedure (progress:PGtkProgress); 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_TGtkProgress_show_text = $1;
bp_TGtkProgress_show_text = 0;
bm_TGtkProgress_activity_mode = $2;
bp_TGtkProgress_activity_mode = 1;
bm_TGtkProgress_use_text_format = $4;
bp_TGtkProgress_use_text_format = 2;
{$ifndef GTK_DISABLE_DEPRECATED}
function GTK_TYPE_PROGRESS : GType;
function GTK_PROGRESS(obj: pointer) : PGtkProgress;
function GTK_PROGRESS_CLASS(klass: pointer) : PGtkProgressClass;
function GTK_IS_PROGRESS(obj: pointer) : boolean;
function GTK_IS_PROGRESS_CLASS(klass: pointer) : boolean;
function GTK_PROGRESS_GET_CLASS(obj: pointer) : PGtkProgressClass;
{$endif}
{ GTK_DISABLE_DEPRECATED }
function show_text(var a : TGtkProgress) : guint;
procedure set_show_text(var a : TGtkProgress; __show_text : guint);
function activity_mode(var a : TGtkProgress) : guint;
procedure set_activity_mode(var a : TGtkProgress; __activity_mode : guint);
function use_text_format(var a : TGtkProgress) : guint;
procedure set_use_text_format(var a : TGtkProgress; __use_text_format : guint);
{ This entire interface is deprecated. Use GtkProgressBar
directly.
}
{$ifndef GTK_DISABLE_DEPRECATED}
function gtk_progress_get_type:TGtkType; cdecl; external gtklib;
procedure gtk_progress_set_show_text(progress:PGtkProgress; show_text:gboolean); cdecl; external gtklib;
procedure gtk_progress_set_text_alignment(progress:PGtkProgress; x_align:gfloat; y_align:gfloat); cdecl; external gtklib;
procedure gtk_progress_set_format_string(progress:PGtkProgress; format:Pgchar); cdecl; external gtklib;
procedure gtk_progress_set_adjustment(progress:PGtkProgress; adjustment:PGtkAdjustment); cdecl; external gtklib;
procedure gtk_progress_configure(progress:PGtkProgress; value:gdouble; min:gdouble; max:gdouble); cdecl; external gtklib;
procedure gtk_progress_set_percentage(progress:PGtkProgress; percentage:gdouble); cdecl; external gtklib;
procedure gtk_progress_set_value(progress:PGtkProgress; value:gdouble); cdecl; external gtklib;
function gtk_progress_get_value(progress:PGtkProgress):gdouble; cdecl; external gtklib;
procedure gtk_progress_set_activity_mode(progress:PGtkProgress; activity_mode:gboolean); cdecl; external gtklib;
function gtk_progress_get_current_text(progress:PGtkProgress):Pgchar; cdecl; external gtklib;
function gtk_progress_get_text_from_value(progress:PGtkProgress; value:gdouble):Pgchar; cdecl; external gtklib;
function gtk_progress_get_current_percentage(progress:PGtkProgress):gdouble; cdecl; external gtklib;
function gtk_progress_get_percentage_from_value(progress:PGtkProgress; value:gdouble):gdouble; cdecl; external gtklib;
{$endif}
{ GTK_DISABLE_DEPRECATED }
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_PROGRESS : GType;
begin
GTK_TYPE_PROGRESS:=gtk_progress_get_type;
end;
function GTK_PROGRESS(obj: pointer) : PGtkProgress;
begin
GTK_PROGRESS:=PGtkProgress(GTK_CHECK_CAST(obj,GTK_TYPE_PROGRESS));
end;
function GTK_PROGRESS_CLASS(klass: pointer) : PGtkProgressClass;
begin
GTK_PROGRESS_CLASS:=PGtkProgressClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_PROGRESS));
end;
function GTK_IS_PROGRESS(obj: pointer) : boolean;
begin
GTK_IS_PROGRESS:=GTK_CHECK_TYPE(obj,GTK_TYPE_PROGRESS);
end;
function GTK_IS_PROGRESS_CLASS(klass: pointer) : boolean;
begin
GTK_IS_PROGRESS_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_PROGRESS);
end;
function GTK_PROGRESS_GET_CLASS(obj: pointer) : PGtkProgressClass;
begin
GTK_PROGRESS_GET_CLASS:=PGtkProgressClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_PROGRESS));
end;
function show_text(var a : TGtkProgress) : guint;
begin
show_text:=(a.flag0 and bm_TGtkProgress_show_text) shr bp_TGtkProgress_show_text;
end;
procedure set_show_text(var a : TGtkProgress; __show_text : guint);
begin
a.flag0:=a.flag0 or ((__show_text shl bp_TGtkProgress_show_text) and bm_TGtkProgress_show_text);
end;
function activity_mode(var a : TGtkProgress) : guint;
begin
activity_mode:=(a.flag0 and bm_TGtkProgress_activity_mode) shr bp_TGtkProgress_activity_mode;
end;
procedure set_activity_mode(var a : TGtkProgress; __activity_mode : guint);
begin
a.flag0:=a.flag0 or ((__activity_mode shl bp_TGtkProgress_activity_mode) and bm_TGtkProgress_activity_mode);
end;
function use_text_format(var a : TGtkProgress) : guint;
begin
use_text_format:=(a.flag0 and bm_TGtkProgress_use_text_format) shr bp_TGtkProgress_use_text_format;
end;
procedure set_use_text_format(var a : TGtkProgress; __use_text_format : guint);
begin
a.flag0:=a.flag0 or ((__use_text_format shl bp_TGtkProgress_use_text_format) and bm_TGtkProgress_use_text_format);
end;
{$ENDIF read_implementation}
// included by gtk2.pas
|
