blob: 19f4bfe4700714f2e2c9cdf0d8879dcd1bae560d (
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
|
{$IfDef read_interface}
type
PGnomeAppBar = ^TGnomeAppBar;
TGnomeAppBar = record
parent_widget : TGtkHBox;
progress : PGtkWidget;
status : PGtkWidget;
flag0 : word;
editable_start : gint;
prompt : Pgchar;
status_stack : PGSList;
default_status : Pgchar;
end;
GNOME_APPBAR = PGnomeAppBar;
const
bm__GnomeAppBar_interactive = $1;
bp__GnomeAppBar_interactive = 0;
function interactive(var a : TGnomeAppBar) : gboolean;
procedure set_interactive(var a : TGnomeAppBar; __interactive : gboolean);
type
PGnomeAppBarClass = ^TGnomeAppBarClass;
TGnomeAppBarClass = record
parent_class : TGtkHBoxClass;
user_response : procedure (ab:PGnomeAppBar);cdecl;
clear_prompt : procedure (ab:PGnomeAppBar);cdecl;
end;
GNOME_APPBAR_CLASS = PGnomeAppBarClass;
function GNOME_TYPE_APPBAR : TGTKType;
function GNOME_IS_APPBAR(obj : Pointer) : Boolean;
function GNOME_IS_APPBAR_CLASS(klass : Pointer) : Boolean;
function GNOME_APPBAR_HAS_STATUS(appbar : PGnomeAppBar) : gboolean;
function GNOME_APPBAR_HAS_PROGRESS(appbar : PGnomeAppBar) : gboolean;
function GNOME_APPBAR_INTERACTIVE(ab : PGnomeAppBar) : gboolean;
function gnome_appbar_get_type:TGTKType;cdecl;external libgnomeuidll name 'gnome_appbar_get_type';
function gnome_appbar_new(has_progress:gboolean; has_status:gboolean; interactivity:TGnomePreferencesType):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_appbar_new';
procedure gnome_appbar_set_status(appbar:PGnomeAppBar; status:Pgchar);cdecl;external libgnomeuidll name 'gnome_appbar_set_status';
procedure gnome_appbar_set_default(appbar:PGnomeAppBar; default_status:Pgchar);cdecl;external libgnomeuidll name 'gnome_appbar_set_default';
procedure gnome_appbar_push(appbar:PGnomeAppBar; status:Pgchar);cdecl;external libgnomeuidll name 'gnome_appbar_push';
procedure gnome_appbar_pop(appbar:PGnomeAppBar);cdecl;external libgnomeuidll name 'gnome_appbar_pop';
procedure gnome_appbar_clear_stack(appbar:PGnomeAppBar);cdecl;external libgnomeuidll name 'gnome_appbar_clear_stack';
procedure gnome_appbar_set_progress(appbar:PGnomeAppBar; percentage:gfloat);cdecl;external libgnomeuidll name 'gnome_appbar_set_progress';
function gnome_appbar_get_progress(appbar:PGnomeAppBar):PGtkProgress;cdecl;external libgnomeuidll name 'gnome_appbar_get_progress';
procedure gnome_appbar_refresh(appbar:PGnomeAppBar);cdecl;external libgnomeuidll name 'gnome_appbar_refresh';
procedure gnome_appbar_set_prompt(appbar:PGnomeAppBar; prompt:Pgchar; modal:gboolean);cdecl;external libgnomeuidll name 'gnome_appbar_set_prompt';
procedure gnome_appbar_clear_prompt(appbar:PGnomeAppBar);cdecl;external libgnomeuidll name 'gnome_appbar_clear_prompt';
function gnome_appbar_get_response(appbar:PGnomeAppBar):Pgchar;cdecl;external libgnomeuidll name 'gnome_appbar_get_response';
procedure gnome_appbar_construct(ab:PGnomeAppBar; has_progress:gboolean; has_status:gboolean; interactivity:TGnomePreferencesType);cdecl;external libgnomeuidll name 'gnome_appbar_construct';
{$EndIf read_interface}
{$Ifdef read_implementation}
function GNOME_TYPE_APPBAR : TGTKType;
begin
GNOME_TYPE_APPBAR:=gnome_appbar_get_type;
end;
function GNOME_IS_APPBAR(obj : pointer) : Boolean;
begin
GNOME_IS_APPBAR:=(obj<>nil) and GNOME_IS_APPBAR_CLASS(PGtkTypeObject(obj)^.klass);
end;
function GNOME_IS_APPBAR_CLASS(klass : pointer) : boolean;
begin
GNOME_IS_APPBAR_CLASS:= (klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_APPBAR);
end;
function GNOME_APPBAR_HAS_STATUS(appbar : PGnomeAppBar) : gboolean;
begin
GNOME_APPBAR_HAS_STATUS:=(appbar^.status) <> NULL;
end;
function GNOME_APPBAR_HAS_PROGRESS(appbar : PGnomeAppBar) : gboolean;
begin
GNOME_APPBAR_HAS_PROGRESS:=(appbar^.progress) <> NULL;
end;
function interactive(var a : TGnomeAppBar) : gboolean;
begin
interactive:=gboolean((a.flag0 and bm__GnomeAppBar_interactive) shr bp__GnomeAppBar_interactive);
end;
procedure set_interactive(var a : TGnomeAppBar; __interactive : gboolean);
begin
a.flag0:=a.flag0 or ((gint(__interactive) shl bp__GnomeAppBar_interactive) and bm__GnomeAppBar_interactive);
end;
function GNOME_APPBAR_INTERACTIVE(ab : PGnomeAppBar) : gboolean;
var
if_local1 : gboolean;
begin
if ab <> nil then
if_local1:=interactive(ab^)
else
if_local1:=False;
GNOME_APPBAR_INTERACTIVE:=if_local1;
end;
{$Endif read_implementation}
|
