1// included by gtk2.pas 2 3{$IFDEF read_forward_definitions} 4{$ENDIF read_forward_definitions} 5 6{$IFDEF read_interface_types} 7type 8 PGtkColorButtonPrivate = pointer; 9 10 PGtkColorButton = ^TGtkColorButton; 11 TGtkColorButton = record 12 button : TGtkButton; 13 priv : PGtkColorButtonPrivate; 14 end; 15 16{ Padding for future expansion } 17 PGtkColorButtonClass = ^TGtkColorButtonClass; 18 TGtkColorButtonClass = record 19 parent_class : TGtkButtonClass; 20 color_set : procedure (cp:PGtkColorButton);cdecl; 21 _gtk_reserved1 : procedure ; 22 _gtk_reserved2 : procedure ; 23 _gtk_reserved3 : procedure ; 24 _gtk_reserved4 : procedure ; 25 end; 26 27{$ENDIF read_interface_types} 28 29{$IFDEF read_interface_rest} 30 31function GTK_TYPE_COLOR_BUTTON : GType; 32function GTK_COLOR_BUTTON(obj : pointer) : PGtkColorButton; 33function GTK_COLOR_BUTTON_CLASS(klass : pointer) : PGtkColorButtonClass; 34function GTK_IS_COLOR_BUTTON(obj : pointer) : gboolean; 35function GTK_IS_COLOR_BUTTON_CLASS(klass : pointer) : gboolean; 36function GTK_COLOR_BUTTON_GET_CLASS(obj : pointer) : PGtkColorButtonClass; 37 38function gtk_color_button_get_type:GType;cdecl;external gtklib name 'gtk_color_button_get_type'; 39function gtk_color_button_new:PGtkWidget;cdecl;external gtklib name 'gtk_color_button_new'; 40 41function gtk_color_button_new_with_color(color:PGdkColor):PGtkWidget;cdecl;external gtklib name 'gtk_color_button_new_with_color'; 42 43procedure gtk_color_button_set_color(color_button:PGtkColorButton; color:PGdkColor);cdecl;external gtklib name 'gtk_color_button_set_color'; 44procedure gtk_color_button_set_alpha(color_button:PGtkColorButton; alpha:guint16);cdecl;external gtklib name 'gtk_color_button_set_alpha'; 45procedure gtk_color_button_get_color(color_button:PGtkColorButton; color:PGdkColor);cdecl;external gtklib name 'gtk_color_button_get_color'; 46function gtk_color_button_get_alpha(color_button:PGtkColorButton):guint16;cdecl;external gtklib name 'gtk_color_button_get_alpha'; 47 48procedure gtk_color_button_set_use_alpha(color_button:PGtkColorButton; use_alpha:gboolean);cdecl;external gtklib name 'gtk_color_button_set_use_alpha'; 49function gtk_color_button_get_use_alpha(color_button:PGtkColorButton):gboolean;cdecl;external gtklib name 'gtk_color_button_get_use_alpha'; 50 51 52procedure gtk_color_button_set_title(color_button:PGtkColorButton; title:Pgchar);cdecl;external gtklib name 'gtk_color_button_set_title'; 53function gtk_color_button_get_title(color_button:PGtkColorButton):Pgchar;cdecl;external gtklib name 'gtk_color_button_get_title'; 54 55{$endif read_interface_rest} 56 57{$ifdef read_implementation} 58 59function GTK_TYPE_COLOR_BUTTON : GType; 60begin 61 GTK_TYPE_COLOR_BUTTON:=gtk_color_button_get_type; 62end; 63 64function GTK_COLOR_BUTTON(obj : pointer) : PGtkColorButton; 65begin 66 GTK_COLOR_BUTTON:=PGtkColorButton(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_COLOR_BUTTON)); 67end; 68 69function GTK_COLOR_BUTTON_CLASS(klass : pointer) : PGtkColorButtonClass; 70begin 71 GTK_COLOR_BUTTON_CLASS:=PGtkColorButtonClass(G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_COLOR_BUTTON)); 72end; 73 74function GTK_IS_COLOR_BUTTON(obj : pointer) : gboolean; 75begin 76 GTK_IS_COLOR_BUTTON:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_COLOR_BUTTON); 77end; 78 79function GTK_IS_COLOR_BUTTON_CLASS(klass : pointer) : gboolean; 80begin 81 GTK_IS_COLOR_BUTTON_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_COLOR_BUTTON); 82end; 83 84function GTK_COLOR_BUTTON_GET_CLASS(obj : pointer) : PGtkColorButtonClass; 85begin 86 GTK_COLOR_BUTTON_GET_CLASS:=PGtkColorButtonClass(G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_COLOR_BUTTON)); 87end; 88 89{$endif read_implementation} 90 91