1// included by gtk2.pas 2 3{$IFDEF read_forward_definitions} 4{$ENDIF read_forward_definitions} 5 6//------------------------------------------------------------------------------ 7 8{$IFDEF read_interface_types} 9 PGtkAlignment = ^TGtkAlignment; 10 TGtkAlignment = record 11 bin : TGtkBin; 12 xalign : gfloat; 13 yalign : gfloat; 14 xscale : gfloat; 15 yscale : gfloat; 16 end; 17 18 PGtkAlignmentClass = ^TGtkAlignmentClass; 19 TGtkAlignmentClass = record 20 parent_class : TGtkBinClass; 21 end; 22 23{$ENDIF read_interface_types} 24 25//------------------------------------------------------------------------------ 26 27{$IFDEF read_interface_rest} 28function GTK_TYPE_ALIGNMENT : GType; 29function GTK_ALIGNMENT(obj: pointer) : PGtkAlignment; 30function GTK_ALIGNMENT_CLASS(klass: pointer) : PGtkAlignmentClass; 31function GTK_IS_ALIGNMENT(obj: pointer) : boolean; 32function GTK_IS_ALIGNMENT_CLASS(klass: pointer) : boolean; 33function GTK_ALIGNMENT_GET_CLASS(obj: pointer) : PGtkAlignmentClass; 34 35 36function gtk_alignment_get_type:TGtkType; cdecl; external gtklib; 37function gtk_alignment_new(xalign:gfloat; yalign:gfloat; xscale:gfloat; yscale:gfloat):PGtkWidget; cdecl; external gtklib; 38procedure gtk_alignment_set(alignment:PGtkAlignment; xalign:gfloat; yalign:gfloat; xscale:gfloat; yscale:gfloat); cdecl; external gtklib; 39 40{$ifdef HasGTK2_4} 41procedure gtk_alignment_get_padding(alignment: PGtkAlignment; padding_top: Pguint; padding_bottom: Pguint; padding_left: Pguint; padding_right: Pguint); cdecl; external gtklib; 42procedure gtk_alignment_set_padding(alignment: PGtkAlignment; padding_top: guint; padding_bottom: guint; padding_left: guint; padding_right: guint); cdecl; external gtklib; 43{$endif} 44{$ENDIF read_interface_rest} 45 46//------------------------------------------------------------------------------ 47 48{$IFDEF read_implementation} 49function GTK_TYPE_ALIGNMENT : GType; 50begin 51 GTK_TYPE_ALIGNMENT:=gtk_alignment_get_type; 52end; 53 54function GTK_ALIGNMENT(obj: pointer) : PGtkAlignment; 55begin 56 GTK_ALIGNMENT:=PGtkAlignment(GTK_CHECK_CAST(obj,GTK_TYPE_ALIGNMENT)); 57end; 58 59function GTK_ALIGNMENT_CLASS(klass: pointer) : PGtkAlignmentClass; 60begin 61 GTK_ALIGNMENT_CLASS:=PGtkAlignmentClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_ALIGNMENT)); 62end; 63 64function GTK_IS_ALIGNMENT(obj: pointer) : boolean; 65begin 66 GTK_IS_ALIGNMENT:=GTK_CHECK_TYPE(obj,GTK_TYPE_ALIGNMENT); 67end; 68 69function GTK_IS_ALIGNMENT_CLASS(klass: pointer) : boolean; 70begin 71 GTK_IS_ALIGNMENT_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_ALIGNMENT); 72end; 73 74function GTK_ALIGNMENT_GET_CLASS(obj: pointer) : PGtkAlignmentClass; 75begin 76 GTK_ALIGNMENT_GET_CLASS:=PGtkAlignmentClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_ALIGNMENT)); 77end; 78 79{$ENDIF read_implementation} 80// included by gtk2.pas 81 82