/packages/gnome1/src/libgnomeui/gnomepixmapentry.inc
Pascal | 56 lines | 41 code | 11 blank | 4 comment | 0 complexity | 266a849c74100e79e9389a2f0848919c MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
1{$IfDef read_interface} 2Type 3 PGnomePixmapEntry = ^TGnomeNumberEntry; 4 TGnomePixmapEntry = record 5 vbox : TGtkVBox; 6 fentry : PGtkWidget; 7 do_preview : gboolean; 8 preview : PGtkWidget; 9 preview_sw : PGtkWidget; 10 last_preview : Pgchar; 11 end; 12 GNOME_PIXMAP_ENTRY = PGnomeNumberEntry; 13 14 PGnomePixmapEntryClass = ^TGnomePixmapEntryClass; 15 TGnomePixmapEntryClass = record 16 parent_class : TGtkVBoxClass; 17 end; 18 GNOME_PIXMAP_ENTRY_CLASS = PGnomePixmapEntryClass; 19 20 21function GNOME_TYPE_PIXMAP_ENTRY : TGTKType; 22function GNOME_IS_PIXMAP_ENTRY(obj : Pointer) : Boolean; 23function GNOME_IS_PIXMAP_ENTRY_CLASS(klass : Pointer) : Boolean; 24 25 26function gnome_pixmap_entry_get_type:TGTKType;cdecl;external libgnomeuidll name 'gnome_pixmap_entry_get_type'; 27function gnome_pixmap_entry_new(history_id:Pgchar; browse_dialog_title:Pgchar; do_preview:gboolean):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_pixmap_entry_new'; 28procedure gnome_pixmap_entry_construct(gentry:PGnomePixmapEntry; history_id:Pgchar; browse_dialog_title:Pgchar; do_preview:gboolean);cdecl;external libgnomeuidll name 'gnome_pixmap_entry_construct'; 29procedure gnome_pixmap_entry_set_pixmap_subdir(pentry:PGnomePixmapEntry; subdir:Pgchar);cdecl;external libgnomeuidll name 'gnome_pixmap_entry_set_pixmap_subdir'; 30function gnome_pixmap_entry_gnome_file_entry(pentry:PGnomePixmapEntry):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_pixmap_entry_gnome_file_entry'; 31function gnome_pixmap_entry_gnome_entry(pentry:PGnomePixmapEntry):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_pixmap_entry_gnome_entry'; 32function gnome_pixmap_entry_gtk_entry(pentry:PGnomePixmapEntry):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_pixmap_entry_gtk_entry'; 33procedure gnome_pixmap_entry_set_preview(pentry:PGnomePixmapEntry; do_preview:gboolean);cdecl;external libgnomeuidll name 'gnome_pixmap_entry_set_preview'; 34procedure gnome_pixmap_entry_set_preview_size(pentry:PGnomePixmapEntry; preview_w:gint; preview_h:gint);cdecl;external libgnomeuidll name 'gnome_pixmap_entry_set_preview_size'; 35function gnome_pixmap_entry_get_filename(pentry:PGnomePixmapEntry):Pgchar;cdecl;external libgnomeuidll name 'gnome_pixmap_entry_get_filename'; 36 37{$EndIf read_interface} 38 39{$Ifdef read_implementation} 40 41function GNOME_TYPE_PIXMAP_ENTRY : TGTKType; 42begin 43 GNOME_TYPE_PIXMAP_ENTRY:=gnome_pixmap_entry_get_type; 44end; 45 46function GNOME_IS_PIXMAP_ENTRY(obj : Pointer) : Boolean; 47begin 48 GNOME_IS_PIXMAP_ENTRY:=(obj<>nil) and GNOME_IS_PIXMAP_ENTRY_CLASS(PGtkTypeObject(obj)^.klass); 49end; 50 51function GNOME_IS_PIXMAP_ENTRY_CLASS(klass : Pointer) : Boolean; 52begin 53 GNOME_IS_PIXMAP_ENTRY_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_PIXMAP_ENTRY); 54end; 55 56{$Endif read_implementation}