blob: 8282606ae6a41145f6d16cc30afaa50d0a93725f (
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
|
{$IfDef read_interface}
type
TGnomeDateEditFlags = (GNOME_DATE_EDIT_SHOW_TIME := 1 shl 0,GNOME_DATE_EDIT_24_HR := 1 shl 1,
GNOME_DATE_EDIT_WEEK_STARTS_ON_MONDAY := 1 shl 2
);
type
PGnomeDateEdit = ^TGnomeDateEdit;
TGnomeDateEdit = record
hbox : TGtkHBox;
date_entry : PGtkWidget;
date_button : PGtkWidget;
time_entry : PGtkWidget;
time_popup : PGtkWidget;
cal_label : PGtkWidget;
cal_popup : PGtkWidget;
calendar : PGtkWidget;
lower_hour : longint;
upper_hour : longint;
initial_time : time_t;
flags : longint;
end;
GNOME_DATE_EDIT = PGnomeDateEdit;
PGnomeDateEditClass = ^TGnomeDateEditClass;
TGnomeDateEditClass = record
parent_class : TGtkHBoxClass;
date_changed : procedure (gde:PGnomeDateEdit);cdecl;
time_changed : procedure (gde:PGnomeDateEdit);cdecl;
end;
GNOME_DATE_EDIT_CLASS = PGnomeDateEditClass;
function GNOME_TYPE_DATE_EDIT : TGTKType;
function GNOME_IS_DATE_EDIT(obj : Pointer) : Boolean;
function GNOME_IS_DATE_EDIT_CLASS(klass : Pointer) : Boolean;
function gnome_date_edit_get_type:TGTKType;cdecl;external libgnomeuidll name 'gnome_date_edit_get_type';
function gnome_date_edit_new(the_time:time_t; show_time:longint; use_24_format:longint):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_date_edit_new';
function gnome_date_edit_new_flags(the_time:time_t; flags:TGnomeDateEditFlags):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_date_edit_new_flags';
procedure gnome_date_edit_set_time(gde:PGnomeDateEdit; the_time:time_t);cdecl;external libgnomeuidll name 'gnome_date_edit_set_time';
procedure gnome_date_edit_set_popup_range(gde:PGnomeDateEdit; low_hour:longint; up_hour:longint);cdecl;external libgnomeuidll name 'gnome_date_edit_set_popup_range';
function gnome_date_edit_get_date(gde:PGnomeDateEdit):time_t;cdecl;external libgnomeuidll name 'gnome_date_edit_get_date';
procedure gnome_date_edit_set_flags(gde:PGnomeDateEdit; flags:TGnomeDateEditFlags);cdecl;external libgnomeuidll name 'gnome_date_edit_set_flags';
function gnome_date_edit_get_flags(gde:PGnomeDateEdit):longint;cdecl;external libgnomeuidll name 'gnome_date_edit_get_flags';
{$EndIf read_interface}
{$Ifdef read_implementation}
function GNOME_TYPE_DATE_EDIT : TGTKType;
begin
GNOME_TYPE_DATE_EDIT:=gnome_date_edit_get_type;
end;
function GNOME_IS_DATE_EDIT(obj : Pointer) : Boolean;
begin
GNOME_IS_DATE_EDIT:=(obj<>nil) and GNOME_IS_DATE_EDIT_CLASS(PGtkTypeObject(obj)^.klass);
end;
function GNOME_IS_DATE_EDIT_CLASS(klass : Pointer) : Boolean;
begin
GNOME_IS_DATE_EDIT_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_DATE_EDIT);
end;
{$Endif read_implementation}
|
