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
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PGtkMessageType = ^TGtkMessageType;
TGtkMessageType = (
GTK_MESSAGE_INFO,
GTK_MESSAGE_WARNING,
GTK_MESSAGE_QUESTION,
GTK_MESSAGE_ERROR
);
PGtkButtonsType = ^TGtkButtonsType;
TGtkButtonsType = (
GTK_BUTTONS_NONE,
GTK_BUTTONS_OK,
GTK_BUTTONS_CLOSE,
GTK_BUTTONS_CANCEL,
GTK_BUTTONS_YES_NO,
GTK_BUTTONS_OK_CANCEL
);
{< private > }
PGtkMessageDialog = ^TGtkMessageDialog;
TGtkMessageDialog = record
parent_instance : TGtkDialog;
image : PGtkWidget;
_label : PGtkWidget;
end;
{ Padding for future expansion }
PGtkMessageDialogClass = ^TGtkMessageDialogClass;
TGtkMessageDialogClass = record
parent_class : TGtkDialogClass;
_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}
function GTK_TYPE_MESSAGE_DIALOG : GType;
function GTK_MESSAGE_DIALOG(obj: pointer) : PGtkMessageDialog;
function GTK_MESSAGE_DIALOG_CLASS(klass: pointer) : PGtkMessageDialogClass;
function GTK_IS_MESSAGE_DIALOG(obj: pointer) : boolean;
function GTK_IS_MESSAGE_DIALOG_CLASS(klass: pointer) : boolean;
function GTK_MESSAGE_DIALOG_GET_CLASS(obj: pointer) : PGtkMessageDialogClass;
function gtk_message_dialog_get_type:TGtkType; cdecl; external gtklib;
{$IFNDEF KYLIX}
function gtk_message_dialog_new(parent:PGtkWindow; flags:TGtkDialogFlags;
_type:TGtkMessageType; buttons:TGtkButtonsType; message_format:Pgchar;
args:array of const):PGtkWidget; cdecl; overload; external gtklib;
function gtk_message_dialog_new(parent:PGtkWindow; flags:TGtkDialogFlags;
_type:TGtkMessageType; buttons:TGtkButtonsType;
message_format:Pgchar):PGtkWidget; cdecl; overload; varargs; external gtklib;
{$ELSE}
function gtk_message_dialog_new(parent:PGtkWindow; flags:TGtkDialogFlags;
_type:TGtkMessageType; buttons:TGtkButtonsType;
message_format:Pgchar):PGtkWidget; varargs; cdecl; external gtklib;
{$ENDIF}
{$ifdef HasGTK2_4}
function gtk_message_dialog_new_with_markup(parent: PGtkWindow; flags: TGtkDialogFlags;
_type: TGtkMessageType; buttons: TGtkButtonsType;
message_format: Pgchar): PGtkWidget; varargs; cdecl; external gtklib;
procedure gtk_message_dialog_set_markup(message_dialog: PGtkMessageDialog; str:Pgchar); cdecl; external gtklib;
{$endif}
{$ifdef HasGTK2_6}
procedure gtk_message_dialog_format_secondary_markup(message_dialog:PGtkMessageDialog; message_format:Pgchar); varargs;cdecl; external gtklib;
procedure gtk_message_dialog_format_secondary_text(message_dialog:PGtkMessageDialog; message_format:Pgchar); varargs;cdecl; external gtklib;
{$endif}
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_MESSAGE_DIALOG : GType;
begin
GTK_TYPE_MESSAGE_DIALOG:=gtk_message_dialog_get_type;
end;
function GTK_MESSAGE_DIALOG(obj: pointer) : PGtkMessageDialog;
begin
GTK_MESSAGE_DIALOG:=PGtkMessageDialog(GTK_CHECK_CAST(obj,GTK_TYPE_MESSAGE_DIALOG));
end;
function GTK_MESSAGE_DIALOG_CLASS(klass: pointer) : PGtkMessageDialogClass;
begin
GTK_MESSAGE_DIALOG_CLASS:=PGtkMessageDialogClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_MESSAGE_DIALOG));
end;
function GTK_IS_MESSAGE_DIALOG(obj: pointer) : boolean;
begin
GTK_IS_MESSAGE_DIALOG:=GTK_CHECK_TYPE(obj,GTK_TYPE_MESSAGE_DIALOG);
end;
function GTK_IS_MESSAGE_DIALOG_CLASS(klass: pointer) : boolean;
begin
GTK_IS_MESSAGE_DIALOG_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_MESSAGE_DIALOG);
end;
function GTK_MESSAGE_DIALOG_GET_CLASS(obj: pointer) : PGtkMessageDialogClass;
begin
GTK_MESSAGE_DIALOG_GET_CLASS:=PGtkMessageDialogClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_MESSAGE_DIALOG));
end;
{$ENDIF read_implementation}
// included by gtk2.pas
|
