blob: 327858a9882fdcda36a1c21c39d1791ed50f9dda (
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
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PGtkCalendarDisplayOptions = ^TGtkCalendarDisplayOptions;
TGtkCalendarDisplayOptions = longint;
{ Padding for future expansion }
PGtkCalendar = ^TGtkCalendar;
TGtkCalendar = record
widget : TGtkWidget;
header_style : PGtkStyle;
label_style : PGtkStyle;
month : gint;
year : gint;
selected_day : gint;
day_month : array[0..5] of array[0..6] of gint;
day : array[0..5] of array[0..6] of gint;
num_marked_dates : gint;
marked_date : array[0..30] of gint;
display_flags : TGtkCalendarDisplayOptions;
marked_date_color : array[0..30] of TGdkColor;
gc : PGdkGC;
xor_gc : PGdkGC;
focus_row : gint;
focus_col : gint;
highlight_row : gint;
highlight_col : gint;
private_data : gpointer;
grow_space : array[0..31] of gchar;
_gtk_reserved1 : procedure ; cdecl;
_gtk_reserved2 : procedure ; cdecl;
_gtk_reserved3 : procedure ; cdecl;
_gtk_reserved4 : procedure ; cdecl;
end;
{ Signal handlers }
PGtkCalendarClass = ^TGtkCalendarClass;
TGtkCalendarClass = record
parent_class : TGtkWidgetClass;
month_changed : procedure (calendar:PGtkCalendar); cdecl;
day_selected : procedure (calendar:PGtkCalendar); cdecl;
day_selected_double_click : procedure (calendar:PGtkCalendar); cdecl;
prev_month : procedure (calendar:PGtkCalendar); cdecl;
next_month : procedure (calendar:PGtkCalendar); cdecl;
prev_year : procedure (calendar:PGtkCalendar); cdecl;
next_year : procedure (calendar:PGtkCalendar); cdecl;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
const
GTK_CALENDAR_SHOW_HEADING = 1 shl 0;
GTK_CALENDAR_SHOW_DAY_NAMES = 1 shl 1;
GTK_CALENDAR_NO_MONTH_CHANGE = 1 shl 2;
GTK_CALENDAR_SHOW_WEEK_NUMBERS = 1 shl 3;
GTK_CALENDAR_WEEK_START_MONDAY = 1 shl 4;
function GTK_TYPE_CALENDAR : GType;
function GTK_CALENDAR(obj: pointer) : PGtkCalendar;
function GTK_CALENDAR_CLASS(klass: pointer) : PGtkCalendarClass;
function GTK_IS_CALENDAR(obj: pointer) : boolean;
function GTK_IS_CALENDAR_CLASS(klass: pointer) : boolean;
function GTK_CALENDAR_GET_CLASS(obj: pointer) : PGtkCalendarClass;
function gtk_calendar_get_type:TGtkType; cdecl; external gtklib;
function gtk_calendar_new:PGtkWidget; cdecl; external gtklib;
function gtk_calendar_select_month(calendar:PGtkCalendar; month:guint; year:guint):gboolean; cdecl; external gtklib;
procedure gtk_calendar_select_day(calendar:PGtkCalendar; day:guint); cdecl; external gtklib;
function gtk_calendar_mark_day(calendar:PGtkCalendar; day:guint):gboolean; cdecl; external gtklib;
function gtk_calendar_unmark_day(calendar:PGtkCalendar; day:guint):gboolean; cdecl; external gtklib;
procedure gtk_calendar_clear_marks(calendar:PGtkCalendar); cdecl; external gtklib;
procedure gtk_calendar_display_options(calendar:PGtkCalendar; flags:TGtkCalendarDisplayOptions); cdecl; external gtklib;
procedure gtk_calendar_get_date(calendar:PGtkCalendar; year:Pguint; month:Pguint; day:Pguint); cdecl; external gtklib;
procedure gtk_calendar_freeze(calendar:PGtkCalendar); cdecl; external gtklib;
procedure gtk_calendar_thaw(calendar:PGtkCalendar); cdecl; external gtklib;
{$IFDEF HasGTK2_4}
function gtk_calendar_get_display_options(calendar:PGtkCalendar): TGtkCalendarDisplayOptions; cdecl; external gtklib;
procedure gtk_calendar_set_display_options(calendar:PGtkCalendar; flags:TGtkCalendarDisplayOptions); cdecl; external gtklib;
{$ENDIF HasGTK2_4}
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_CALENDAR : GType;
begin
GTK_TYPE_CALENDAR:=gtk_calendar_get_type;
end;
function GTK_CALENDAR(obj: pointer) : PGtkCalendar;
begin
GTK_CALENDAR:=PGtkCalendar(GTK_CHECK_CAST(obj,GTK_TYPE_CALENDAR));
end;
function GTK_CALENDAR_CLASS(klass: pointer) : PGtkCalendarClass;
begin
GTK_CALENDAR_CLASS:=PGtkCalendarClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_CALENDAR));
end;
function GTK_IS_CALENDAR(obj: pointer) : boolean;
begin
GTK_IS_CALENDAR:=GTK_CHECK_TYPE(obj,GTK_TYPE_CALENDAR);
end;
function GTK_IS_CALENDAR_CLASS(klass: pointer) : boolean;
begin
GTK_IS_CALENDAR_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_CALENDAR);
end;
function GTK_CALENDAR_GET_CLASS(obj: pointer) : PGtkCalendarClass;
begin
GTK_CALENDAR_GET_CLASS:=PGtkCalendarClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_CALENDAR));
end;
{$ENDIF read_implementation}
// included by gtk2.pas
|
