blob: 859dcb2f10a074a916177e87d2396a8abccb5e42 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
{$IfDef read_interface}
type
TGnomeFontPickerMode = (GNOME_FONT_PICKER_MODE_PIXMAP,GNOME_FONT_PICKER_MODE_FONT_INFO,
GNOME_FONT_PICKER_MODE_USER_WIDGET,GNOME_FONT_PICKER_MODE_UNKNOWN
);
PGnomeFontPicker = ^TGnomeFontPicker;
TGnomeFontPicker = record
button : TGtkButton;
font_dialog : PGtkWidget;
inside : PGtkWidget;
font_label : PGtkWidget;
vsep : PGtkWidget;
size_label : PGtkWidget;
mode : TGnomeFontPickerMode;
font_name : Pgchar;
preview_text : Pgchar;
use_font_in_label : gboolean;
use_font_in_label_size : gboolean;
show_size : gboolean;
title : Pgchar;
end;
GNOME_FONT_PICKER = PGnomeFontPicker;
PGnomeFontPickerClass = ^TGnomeFontPickerClass;
TGnomeFontPickerClass = record
parent_class : TGtkButtonClass;
font_set : procedure (gfp:PGnomeFontPicker; font_name:Pgchar);cdecl;
end;
GNOME_FONT_PICKER_CLASS = PGnomeFontPickerClass;
function GNOME_TYPE_FONT_PICKER : TGTKType;
function GNOME_IS_FONT_PICKER(obj : Pointer) : Boolean;
function GNOME_IS_FONT_PICKER_CLASS(klass : Pointer) : Boolean;
function gnome_font_picker_get_type:TGtkType;cdecl;external libgnomeuidll name 'gnome_font_picker_get_type';
function gnome_font_picker_new:PGtkWidget;cdecl;external libgnomeuidll name 'gnome_font_picker_new';
procedure gnome_font_picker_set_title(gfp:PGnomeFontPicker; title:Pgchar);cdecl;external libgnomeuidll name 'gnome_font_picker_set_title';
function gnome_font_picker_get_mode(gfp:PGnomeFontPicker):TGnomeFontPickerMode;cdecl;external libgnomeuidll name 'gnome_font_picker_get_mode';
procedure gnome_font_picker_set_mode(gfp:PGnomeFontPicker; mode:TGnomeFontPickerMode);cdecl;external libgnomeuidll name 'gnome_font_picker_set_mode';
procedure gnome_font_picker_fi_set_use_font_in_label(gfp:PGnomeFontPicker; use_font_in_label:gboolean; size:gint);cdecl;external libgnomeuidll name 'gnome_font_picker_fi_set_use_font_in_label';
procedure gnome_font_picker_fi_set_show_size(gfp:PGnomeFontPicker; show_size:gboolean);cdecl;external libgnomeuidll name 'gnome_font_picker_fi_set_show_size';
procedure gnome_font_picker_uw_set_widget(gfp:PGnomeFontPicker; widget:PGtkWidget);cdecl;external libgnomeuidll name 'gnome_font_picker_uw_set_widget';
function gnome_font_picker_get_font_name(gfp:PGnomeFontPicker):Pgchar;cdecl;external libgnomeuidll name 'gnome_font_picker_get_font_name';
function gnome_font_picker_get_font(gfp:PGnomeFontPicker):PGdkFont;cdecl;external libgnomeuidll name 'gnome_font_picker_get_font';
function gnome_font_picker_set_font_name(gfp:PGnomeFontPicker; fontname:Pgchar):gboolean;cdecl;external libgnomeuidll name 'gnome_font_picker_set_font_name';
function gnome_font_picker_get_preview_text(gfp:PGnomeFontPicker):Pgchar;cdecl;external libgnomeuidll name 'gnome_font_picker_get_preview_text';
procedure gnome_font_picker_set_preview_text(gfp:PGnomeFontPicker; thetext:Pgchar);cdecl;external libgnomeuidll name 'gnome_font_picker_set_preview_text';
{$EndIf read_interface}
{$Ifdef read_implementation}
function GNOME_TYPE_FONT_PICKER : TGTKType;
begin
GNOME_TYPE_FONT_PICKER:=gnome_font_picker_get_type;
end;
function GNOME_IS_FONT_PICKER(obj : Pointer) : Boolean;
begin
GNOME_IS_FONT_PICKER:=(obj<>nil) and GNOME_IS_FONT_PICKER_CLASS(PGtkTypeObject(obj)^.klass);
end;
function GNOME_IS_FONT_PICKER_CLASS(klass : Pointer) : Boolean;
begin
GNOME_IS_FONT_PICKER_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_FONT_PICKER);
end;
{$Endif read_implementation}
|
