gtkcalendar.inc 4.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129
  1. // included by gtk2.pas
  2. {$IFDEF read_forward_definitions}
  3. {$ENDIF read_forward_definitions}
  4. //------------------------------------------------------------------------------
  5. {$IFDEF read_interface_types}
  6. PGtkCalendarDisplayOptions = ^TGtkCalendarDisplayOptions;
  7. TGtkCalendarDisplayOptions = longint;
  8. { Padding for future expansion }
  9. PGtkCalendar = ^TGtkCalendar;
  10. TGtkCalendar = record
  11. widget : TGtkWidget;
  12. header_style : PGtkStyle;
  13. label_style : PGtkStyle;
  14. month : gint;
  15. year : gint;
  16. selected_day : gint;
  17. day_month : array[0..5] of array[0..6] of gint;
  18. day : array[0..5] of array[0..6] of gint;
  19. num_marked_dates : gint;
  20. marked_date : array[0..30] of gint;
  21. display_flags : TGtkCalendarDisplayOptions;
  22. marked_date_color : array[0..30] of TGdkColor;
  23. gc : PGdkGC;
  24. xor_gc : PGdkGC;
  25. focus_row : gint;
  26. focus_col : gint;
  27. highlight_row : gint;
  28. highlight_col : gint;
  29. private_data : gpointer;
  30. grow_space : array[0..31] of gchar;
  31. _gtk_reserved1 : procedure ; cdecl;
  32. _gtk_reserved2 : procedure ; cdecl;
  33. _gtk_reserved3 : procedure ; cdecl;
  34. _gtk_reserved4 : procedure ; cdecl;
  35. end;
  36. { Signal handlers }
  37. PGtkCalendarClass = ^TGtkCalendarClass;
  38. TGtkCalendarClass = record
  39. parent_class : TGtkWidgetClass;
  40. month_changed : procedure (calendar:PGtkCalendar); cdecl;
  41. day_selected : procedure (calendar:PGtkCalendar); cdecl;
  42. day_selected_double_click : procedure (calendar:PGtkCalendar); cdecl;
  43. prev_month : procedure (calendar:PGtkCalendar); cdecl;
  44. next_month : procedure (calendar:PGtkCalendar); cdecl;
  45. prev_year : procedure (calendar:PGtkCalendar); cdecl;
  46. next_year : procedure (calendar:PGtkCalendar); cdecl;
  47. end;
  48. {$ENDIF read_interface_types}
  49. //------------------------------------------------------------------------------
  50. {$IFDEF read_interface_rest}
  51. const
  52. GTK_CALENDAR_SHOW_HEADING = 1 shl 0;
  53. GTK_CALENDAR_SHOW_DAY_NAMES = 1 shl 1;
  54. GTK_CALENDAR_NO_MONTH_CHANGE = 1 shl 2;
  55. GTK_CALENDAR_SHOW_WEEK_NUMBERS = 1 shl 3;
  56. GTK_CALENDAR_WEEK_START_MONDAY = 1 shl 4;
  57. function GTK_TYPE_CALENDAR : GType;
  58. function GTK_CALENDAR(obj: pointer) : PGtkCalendar;
  59. function GTK_CALENDAR_CLASS(klass: pointer) : PGtkCalendarClass;
  60. function GTK_IS_CALENDAR(obj: pointer) : boolean;
  61. function GTK_IS_CALENDAR_CLASS(klass: pointer) : boolean;
  62. function GTK_CALENDAR_GET_CLASS(obj: pointer) : PGtkCalendarClass;
  63. function gtk_calendar_get_type:TGtkType; cdecl; external gtklib;
  64. function gtk_calendar_new:PGtkWidget; cdecl; external gtklib;
  65. function gtk_calendar_select_month(calendar:PGtkCalendar; month:guint; year:guint):gboolean; cdecl; external gtklib;
  66. procedure gtk_calendar_select_day(calendar:PGtkCalendar; day:guint); cdecl; external gtklib;
  67. function gtk_calendar_mark_day(calendar:PGtkCalendar; day:guint):gboolean; cdecl; external gtklib;
  68. function gtk_calendar_unmark_day(calendar:PGtkCalendar; day:guint):gboolean; cdecl; external gtklib;
  69. procedure gtk_calendar_clear_marks(calendar:PGtkCalendar); cdecl; external gtklib;
  70. procedure gtk_calendar_display_options(calendar:PGtkCalendar; flags:TGtkCalendarDisplayOptions); cdecl; external gtklib;
  71. procedure gtk_calendar_get_date(calendar:PGtkCalendar; year:Pguint; month:Pguint; day:Pguint); cdecl; external gtklib;
  72. procedure gtk_calendar_freeze(calendar:PGtkCalendar); cdecl; external gtklib;
  73. procedure gtk_calendar_thaw(calendar:PGtkCalendar); cdecl; external gtklib;
  74. {$IFDEF HasGTK2_4}
  75. function gtk_calendar_get_display_options(calendar:PGtkCalendar): TGtkCalendarDisplayOptions; cdecl; external gtklib;
  76. procedure gtk_calendar_set_display_options(calendar:PGtkCalendar; flags:TGtkCalendarDisplayOptions); cdecl; external gtklib;
  77. {$ENDIF HasGTK2_4}
  78. {$ENDIF read_interface_rest}
  79. //------------------------------------------------------------------------------
  80. {$IFDEF read_implementation}
  81. function GTK_TYPE_CALENDAR : GType;
  82. begin
  83. GTK_TYPE_CALENDAR:=gtk_calendar_get_type;
  84. end;
  85. function GTK_CALENDAR(obj: pointer) : PGtkCalendar;
  86. begin
  87. GTK_CALENDAR:=PGtkCalendar(GTK_CHECK_CAST(obj,GTK_TYPE_CALENDAR));
  88. end;
  89. function GTK_CALENDAR_CLASS(klass: pointer) : PGtkCalendarClass;
  90. begin
  91. GTK_CALENDAR_CLASS:=PGtkCalendarClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_CALENDAR));
  92. end;
  93. function GTK_IS_CALENDAR(obj: pointer) : boolean;
  94. begin
  95. GTK_IS_CALENDAR:=GTK_CHECK_TYPE(obj,GTK_TYPE_CALENDAR);
  96. end;
  97. function GTK_IS_CALENDAR_CLASS(klass: pointer) : boolean;
  98. begin
  99. GTK_IS_CALENDAR_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_CALENDAR);
  100. end;
  101. function GTK_CALENDAR_GET_CLASS(obj: pointer) : PGtkCalendarClass;
  102. begin
  103. GTK_CALENDAR_GET_CLASS:=PGtkCalendarClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_CALENDAR));
  104. end;
  105. {$ENDIF read_implementation}
  106. // included by gtk2.pas