// 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