blob: ea13d7d2ae78c8e9279905820317a03d190322b4 (
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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
// included by pango.pp
{$IFDEF read_interface_types}
{$IFDEF PANGO_ENABLE_BACKEND}
PPangoFontset = ^TPangoFontset;
TPangoFontset = record
parent_instance : TGObject;
end;
{ Padding for future expansion }
PPangoFontsetClass = ^TPangoFontsetClass;
TPangoFontsetClass = record
parent_class : TGObjectClass;
get_font : function (fontset:PPangoFontset; wc:guint):PPangoFont; cdecl;
get_metrics : function (fontset:PPangoFontset):PPangoFontMetrics; cdecl;
get_language : function (fontset:PPangoFontset):PPangoLanguage; cdecl;
_pango_reserved1 : procedure ; cdecl;
_pango_reserved2 : procedure ; cdecl;
_pango_reserved3 : procedure ; cdecl;
_pango_reserved4 : procedure ; cdecl;
end;
{$ENDIF}
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_functions}
{
PangoFontset
}
function PANGO_TYPE_FONTSET : GType;
function PANGO_FONTSET(anObject : pointer) : PPangoFontset;
function PANGO_IS_FONTSET(anObject : pointer) : boolean;
function pango_fontset_get_type:GType; cdecl; external pangolib;
function pango_fontset_get_font(fontset:PPangoFontset; wc:guint):PPangoFont; cdecl; external pangolib;
function pango_fontset_get_metrics(fontset:PPangoFontset):PPangoFontMetrics; cdecl; external pangolib;
{$ifdef PANGO_ENABLE_BACKEND}
function PANGO_FONTSET_CLASS(klass : pointer) : PPangoFontsetClass;
function PANGO_IS_FONTSET_CLASS(klass : pointer) : boolean;
function PANGO_FONTSET_GET_CLASS(obj : PPangoFontset) : PPangoFontsetClass;
{
PangoFontsetSimple
}
function PANGO_TYPE_FONTSET_SIMPLE : GType;
function PANGO_FONTSET_SIMPLE(anObject : pointer) : PPangoFontsetSimple;
function PANGO_IS_FONTSET_SIMPLE(anObject : pointer) : boolean;
function pango_fontset_simple_get_type:GType; cdecl; external pangolib;
function pango_fontset_simple_new(language:PPangoLanguage):PPangoFontsetSimple; cdecl; external pangolib;
procedure pango_fontset_simple_append(fontset:PPangoFontsetSimple; font:PPangoFont); cdecl; external pangolib;
function pango_fontset_simple_size(fontset:PPangoFontsetSimple):longint; cdecl; external pangolib;
{$endif}
{ PANGO_ENABLE_BACKEND }
{$endif read_interface_functions}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function PANGO_TYPE_FONTSET : GType;
begin
PANGO_TYPE_FONTSET:=pango_fontset_get_type;
end;
function PANGO_FONTSET(anObject : pointer) : PPangoFontset;
begin
PANGO_FONTSET:=PPangoFontset(G_TYPE_CHECK_INSTANCE_CAST(anObject,
PANGO_TYPE_FONTSET));
end;
function PANGO_IS_FONTSET(anObject : pointer) : boolean;
begin
PANGO_IS_FONTSET:=G_TYPE_CHECK_INSTANCE_TYPE(anObject,PANGO_TYPE_FONTSET);
end;
function PANGO_FONTSET_CLASS(klass : pointer) : PPangoFontsetClass;
begin
PANGO_FONTSET_CLASS:=PPangoFontsetClass(G_TYPE_CHECK_CLASS_CAST(klass,
PANGO_TYPE_FONTSET));
end;
function PANGO_IS_FONTSET_CLASS(klass : pointer) : boolean;
begin
PANGO_IS_FONTSET_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,PANGO_TYPE_FONTSET);
end;
function PANGO_FONTSET_GET_CLASS(obj : PPangoFontset) : PPangoFontsetClass;
begin
PANGO_FONTSET_GET_CLASS:=PPangoFontsetClass(G_TYPE_INSTANCE_GET_CLASS(obj,
PANGO_TYPE_FONTSET));
end;
function PANGO_TYPE_FONTSET_SIMPLE : GType;
begin
PANGO_TYPE_FONTSET_SIMPLE:=pango_fontset_simple_get_type;
end;
function PANGO_FONTSET_SIMPLE(anObject : pointer) : PPangoFontsetSimple;
begin
PANGO_FONTSET_SIMPLE:=PPangoFontsetSimple(G_TYPE_CHECK_INSTANCE_CAST(anObject,
PANGO_TYPE_FONTSET_SIMPLE));
end;
function PANGO_IS_FONTSET_SIMPLE(anObject : pointer) : boolean;
begin
PANGO_IS_FONTSET_SIMPLE:=G_TYPE_CHECK_INSTANCE_TYPE(anObject,
PANGO_TYPE_FONTSET_SIMPLE);
end;
{$ENDIF}
|
