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
115
116
117
118
119
120
121
122
|
// included by gtkhtml.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
THtmlFontStyleType = (HTML_FONT_STYLE_NORMAL := 0,HTML_FONT_STYLE_ITALIC, HTML_FONT_STYLE_OBLIQUE);
THtmlFontVariantType = (HTML_FONT_VARIANT_NORMAL := 0,HTML_FONT_VARIANT_SMALL_CAPS);
THtmlFontWeightType = (HTML_FONT_WEIGHT_100,HTML_FONT_WEIGHT_200,
HTML_FONT_WEIGHT_300,HTML_FONT_WEIGHT_400, HTML_FONT_WEIGHT_500,HTML_FONT_WEIGHT_600,
HTML_FONT_WEIGHT_700,HTML_FONT_WEIGHT_800, HTML_FONT_WEIGHT_900);
const
HTML_FONT_WEIGHT_NORMAL = HTML_FONT_WEIGHT_400;
HTML_FONT_WEIGHT_BOLD = HTML_FONT_WEIGHT_700;
type
THtmlFontStretchType = (HTML_FONT_STRETCH_NORMAL := 0,HTML_FONT_STRETCH_ULTRA_CONDENSED,
HTML_FONT_STRETCH_EXTRA_CONDENSED,HTML_FONT_STRETCH_CONDENSED,
HTML_FONT_STRETCH_SEMI_CONDENSED,HTML_FONT_STRETCH_SEMI_EXPANDED,
HTML_FONT_STRETCH_EXPANDED,HTML_FONT_STRETCH_EXTRA_EXPANDED,
HTML_FONT_STRETCH_ULTRA_EXPANDED);
THtmlFontDecorationType = (HTML_FONT_DECORATION_NONE := 0,HTML_FONT_DECORATION_UNDERLINE := 1 shl 0,
HTML_FONT_DECORATION_OVERLINE := 1 shl 1, HTML_FONT_DECORATION_LINETHROUGH := 1 shl 2);
PHtmlFontSpecification = ^THtmlFontSpecification;
THtmlFontSpecification = record
family : pgchar;
size : gint;
flag0 : word;
end;//THtmlFontSpecification
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
function weight(var a : _HtmlFontSpecification) : THtmlFontWeightType;
procedure set_weight(var a : _HtmlFontSpecification; __weight : THtmlFontWeightType);
function style(var a : _HtmlFontSpecification) : THtmlFontStyleType;
procedure set_style(var a : _HtmlFontSpecification; __style : THtmlFontStyleType);
function variant(var a : _HtmlFontSpecification) : THtmlFontVariantType;
procedure set_variant(var a : _HtmlFontSpecification; __variant : THtmlFontVariantType);
function stretch(var a : _HtmlFontSpecification) : THtmlFontStretchType;
procedure set_stretch(var a : _HtmlFontSpecification; __stretch : THtmlFontStretchType);
function decoration(var a : _HtmlFontSpecification) : THtmlFontDecorationType;
procedure set_decoration(var a : _HtmlFontSpecification; __decoration : THtmlFontDecorationType);
function html_font_specification_new(family:Pgchar; style:THtmlFontStyleType; variant:THtmlFontVariantType; weight:HtmlFontWeightType; stretch:HtmlFontStretchType;
decoration:THtmlFontDecorationType; size:gint):PHtmlFontSpecification;cdecl; external gtkhtmllib;
function html_font_specification_ref(spec:PHtmlFontSpecification):PHtmlFontSpecification;cdecl; external gtkhtmllib;
procedure html_font_specification_unref(spec:PHtmlFontSpecification);cdecl; external gtkhtmllib;
function html_font_specification_dup(spec:PHtmlFontSpecification):PHtmlFontSpecification;cdecl; external gtkhtmllib;
function html_font_description_equal(a:PHtmlFontSpecification; b:PHtmlFontSpecification):gboolean;cdecl; external gtkhtmllib;
function html_font_specification_get_pango_font_description(spec:PHtmlFontSpecification):PPangoFontDescription;cdecl; external gtkhtmllib;
procedure html_font_specification_get_extra_attributes(spec:PHtmlFontSpecification; attrs:PPangoAttrList; start_index:gint; end_index:gint);cdecl; external gtkhtmllib;
procedure html_font_specification_get_all_attributes(spec:PHtmlFontSpecification; attrs:PPangoAttrList; start_index:gint; end_index:gint; magnification:gdouble);cdecl; external gtkhtmllib;
function html_font_specification_get_html_size(spec:PHtmlFontSpecification):gint;cdecl; external gtkhtmllib;
function html_font_description_html_size_to_pt(font_size:gint):gint;cdecl; external gtkhtmllib;
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function weight(var a : THtmlFontSpecification) : THtmlFontWeightType;
begin
weight:=(a.flag0 and bm__HtmlFontSpecification_weight) shr bp__HtmlFontSpecification_weight;
end;//weight
procedure set_weight(var a : THtmlFontSpecification; __weight : THtmlFontWeightType);
begin
a.flag0:=a.flag0 or ((__weight shl bp__HtmlFontSpecification_weight) and bm__HtmlFontSpecification_weight);
end;//set_weight
function style(var a : THtmlFontSpecification) : THtmlFontStyleType;
begin
style:=(a.flag0 and bm__HtmlFontSpecification_style) shr bp__HtmlFontSpecification_style;
end;//style
procedure set_style(var a : THtmlFontSpecification; __style : THtmlFontStyleType);
begin
a.flag0:=a.flag0 or ((__style shl bp__HtmlFontSpecification_style) and bm__HtmlFontSpecification_style);
end;//set_style
function variant(var a : THtmlFontSpecification) : THtmlFontVariantType;
begin
variant:=(a.flag0 and bm__HtmlFontSpecification_variant) shr bp__HtmlFontSpecification_variant;
end;//variant
procedure set_variant(var a : THtmlFontSpecification; __variant : THtmlFontVariantType);
begin
a.flag0:=a.flag0 or ((__variant shl bp__HtmlFontSpecification_variant) and bm__HtmlFontSpecification_variant);
end;//set_variant
function stretch(var a : THtmlFontSpecification) : THtmlFontStretchType;
begin
stretch:=(a.flag0 and bm__HtmlFontSpecification_stretch) shr bp__HtmlFontSpecification_stretch;
end;//stretch
procedure set_stretch(var a : THtmlFontSpecification; __stretch : THtmlFontStretchType);
begin
a.flag0:=a.flag0 or ((__stretch shl bp__HtmlFontSpecification_stretch) and bm__HtmlFontSpecification_stretch);
end;//set_stretch
function decoration(var a : THtmlFontSpecification) : THtmlFontDecorationType;
begin
decoration:=(a.flag0 and bm__HtmlFontSpecification_decoration) shr bp__HtmlFontSpecification_decoration;
end;//decoration
procedure set_decoration(var a : THtmlFontSpecification; __decoration : THtmlFontDecorationType);
begin
a.flag0:=a.flag0 or ((__decoration shl bp__HtmlFontSpecification_decoration) and bm__HtmlFontSpecification_decoration);
end;//set_decoration
{$ENDIF read_implementation}
// included by gtkhtml.pas
|
