1{%MainUnit ../gdk2x.pas} 2 3{$IFDEF read_interface_rest} 4 5{ Pixmap implementation for X11 } 6 7type 8 PGdkPixmapImplX11 = ^TGdkPixmapImplX11; 9 TGdkPixmapImplX11 = record 10 parent_instance : TGdkDrawableImplX11; 11 width : gint; 12 height : gint; 13 flag0 : word; 14 end; 15 16type 17 PGdkPixmapImplX11Class = ^TGdkPixmapImplX11Class; 18 TGdkPixmapImplX11Class = record 19 parent_class : TGdkDrawableImplX11Class; 20 end; 21 22// Private function GDK_TYPE_PIXMAP_IMPL_X11 : GType; 23function GDK_PIXMAP_IMPL_X11(obj : pointer) : PGdkPixmapImplX11; 24function GDK_PIXMAP_IMPL_X11_CLASS(klass : pointer) : PGdkPixmapImplX11Class; 25// Private function GDK_IS_PIXMAP_IMPL_X11(obj : pointer) : boolean; 26// Private function GDK_IS_PIXMAP_IMPL_X11_CLASS(klass : pointer) : boolean; 27// Private function GDK_PIXMAP_IMPL_X11_GET_CLASS(obj : pointer) : PGdkPixmapImplX11Class; 28 29 30const 31 bm_TGdkPixmapImplX11_is_foreign = $1; 32 bp_TGdkPixmapImplX11_is_foreign = 0; 33 34function is_foreign(a : PGdkPixmapImplX11) : guint; 35procedure set_is_foreign(a : PGdkPixmapImplX11; __is_foreign : guint); 36 37{$ENDIF read_interface_rest} 38 39//------------------------------------------------------------------------------ 40 41{$IFDEF read_implementation} 42 43{ Private 44function gdk_pixmap_impl_x11_get_type: GType; cdecl; external; 45 46function GDK_TYPE_PIXMAP_IMPL_X11 : GType; 47begin 48 GDK_TYPE_PIXMAP_IMPL_X11:=gdk_pixmap_impl_x11_get_type; 49end; } 50 51function GDK_PIXMAP_IMPL_X11(obj : pointer) : PGdkPixmapImplX11; 52begin 53 GDK_PIXMAP_IMPL_X11:=PGdkPixmapImplX11(obj); 54 //GDK_PIXMAP_IMPL_X11:=PGdkPixmapImplX11(G_TYPE_CHECK_INSTANCE_CAST(obj,GDK_TYPE_PIXMAP_IMPL_X11)); 55end; 56 57function GDK_PIXMAP_IMPL_X11_CLASS(klass : pointer) : PGdkPixmapImplX11Class; 58begin 59 GDK_PIXMAP_IMPL_X11_CLASS:=PGdkPixmapImplX11Class(klass); 60 //GDK_PIXMAP_IMPL_X11_CLASS:=PGdkPixmapImplX11Class(G_TYPE_CHECK_CLASS_CAST(klass,GDK_TYPE_PIXMAP_IMPL_X11)); 61end; 62 63{ Private 64function GDK_IS_PIXMAP_IMPL_X11(obj : pointer) : boolean; 65begin 66 GDK_IS_PIXMAP_IMPL_X11:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GDK_TYPE_PIXMAP_IMPL_X11); 67end; 68 69function GDK_IS_PIXMAP_IMPL_X11_CLASS(klass : pointer) : boolean; 70begin 71 GDK_IS_PIXMAP_IMPL_X11_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GDK_TYPE_PIXMAP_IMPL_X11); 72end; 73 74function GDK_PIXMAP_IMPL_X11_GET_CLASS(obj : pointer) : PGdkPixmapImplX11Class; 75begin 76 GDK_PIXMAP_IMPL_X11_GET_CLASS:=PGdkPixmapImplX11Class(G_TYPE_INSTANCE_GET_CLASS(obj,GDK_TYPE_PIXMAP_IMPL_X11)); 77end; } 78 79function is_foreign(a : PGdkPixmapImplX11) : guint; 80begin 81 is_foreign:=(a^.flag0 and bm_TGdkPixmapImplX11_is_foreign) shr bp_TGdkPixmapImplX11_is_foreign; 82end; 83 84procedure set_is_foreign(a : PGdkPixmapImplX11; __is_foreign : guint); 85begin 86 a^.flag0:=a^.flag0 or ((__is_foreign shl bp_TGdkPixmapImplX11_is_foreign) and bm_TGdkPixmapImplX11_is_foreign); 87end; 88 89{$ENDIF read_implementation} 90 91