PageRenderTime 26ms CodeModel.GetById 21ms app.highlight 4ms RepoModel.GetById 0ms app.codeStats 1ms

/packages/gnome1/src/libgnomeui/gnomepixmapentry.inc

https://github.com/slibre/freepascal
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}