← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk2/gtkhtml/htmlfontspecification.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/gtk2/gtkhtml/htmlfontspecification.inc
1
 
// included by gtkhtml.pas
2
 
 
3
 
{$IFDEF read_forward_definitions}
4
 
{$ENDIF read_forward_definitions}
5
 
 
6
 
//------------------------------------------------------------------------------
7
 
 
8
 
{$IFDEF read_interface_types}
9
 
 
10
 
  THtmlFontStyleType = (HTML_FONT_STYLE_NORMAL := 0,HTML_FONT_STYLE_ITALIC, HTML_FONT_STYLE_OBLIQUE);
11
 
  THtmlFontVariantType = (HTML_FONT_VARIANT_NORMAL := 0,HTML_FONT_VARIANT_SMALL_CAPS);
12
 
  THtmlFontWeightType = (HTML_FONT_WEIGHT_100,HTML_FONT_WEIGHT_200,
13
 
    HTML_FONT_WEIGHT_300,HTML_FONT_WEIGHT_400, HTML_FONT_WEIGHT_500,HTML_FONT_WEIGHT_600,
14
 
    HTML_FONT_WEIGHT_700,HTML_FONT_WEIGHT_800, HTML_FONT_WEIGHT_900);
15
 
 
16
 
const
17
 
  HTML_FONT_WEIGHT_NORMAL = HTML_FONT_WEIGHT_400;
18
 
  HTML_FONT_WEIGHT_BOLD = HTML_FONT_WEIGHT_700;
19
 
 
20
 
type
21
 
  THtmlFontStretchType = (HTML_FONT_STRETCH_NORMAL := 0,HTML_FONT_STRETCH_ULTRA_CONDENSED,
22
 
    HTML_FONT_STRETCH_EXTRA_CONDENSED,HTML_FONT_STRETCH_CONDENSED,
23
 
    HTML_FONT_STRETCH_SEMI_CONDENSED,HTML_FONT_STRETCH_SEMI_EXPANDED,
24
 
    HTML_FONT_STRETCH_EXPANDED,HTML_FONT_STRETCH_EXTRA_EXPANDED,
25
 
    HTML_FONT_STRETCH_ULTRA_EXPANDED);
26
 
  THtmlFontDecorationType = (HTML_FONT_DECORATION_NONE := 0,HTML_FONT_DECORATION_UNDERLINE := 1 shl 0,
27
 
    HTML_FONT_DECORATION_OVERLINE := 1 shl 1, HTML_FONT_DECORATION_LINETHROUGH := 1 shl 2);
28
 
 
29
 
  PHtmlFontSpecification = ^THtmlFontSpecification;
30
 
  THtmlFontSpecification = record
31
 
    family : pgchar;
32
 
    size : gint;
33
 
    flag0 : word;
34
 
  end;//THtmlFontSpecification
35
 
 
36
 
{$ENDIF read_interface_types}
37
 
 
38
 
//------------------------------------------------------------------------------
39
 
 
40
 
{$IFDEF read_interface_rest}
41
 
 
42
 
  function weight(var a : _HtmlFontSpecification) : THtmlFontWeightType;
43
 
  procedure set_weight(var a : _HtmlFontSpecification; __weight : THtmlFontWeightType);
44
 
  function style(var a : _HtmlFontSpecification) : THtmlFontStyleType;
45
 
  procedure set_style(var a : _HtmlFontSpecification; __style : THtmlFontStyleType);
46
 
  function variant(var a : _HtmlFontSpecification) : THtmlFontVariantType;
47
 
  procedure set_variant(var a : _HtmlFontSpecification; __variant : THtmlFontVariantType);
48
 
  function stretch(var a : _HtmlFontSpecification) : THtmlFontStretchType;
49
 
  procedure set_stretch(var a : _HtmlFontSpecification; __stretch : THtmlFontStretchType);
50
 
  function decoration(var a : _HtmlFontSpecification) : THtmlFontDecorationType;
51
 
  procedure set_decoration(var a : _HtmlFontSpecification; __decoration : THtmlFontDecorationType);
52
 
 
53
 
  function html_font_specification_new(family:Pgchar; style:THtmlFontStyleType; variant:THtmlFontVariantType; weight:HtmlFontWeightType; stretch:HtmlFontStretchType;
54
 
    decoration:THtmlFontDecorationType; size:gint):PHtmlFontSpecification;cdecl; external gtkhtmllib;
55
 
  function html_font_specification_ref(spec:PHtmlFontSpecification):PHtmlFontSpecification;cdecl; external gtkhtmllib;
56
 
  procedure html_font_specification_unref(spec:PHtmlFontSpecification);cdecl; external gtkhtmllib;
57
 
  function html_font_specification_dup(spec:PHtmlFontSpecification):PHtmlFontSpecification;cdecl; external gtkhtmllib;
58
 
  function html_font_description_equal(a:PHtmlFontSpecification; b:PHtmlFontSpecification):gboolean;cdecl; external gtkhtmllib;
59
 
  function html_font_specification_get_pango_font_description(spec:PHtmlFontSpecification):PPangoFontDescription;cdecl; external gtkhtmllib;
60
 
  procedure html_font_specification_get_extra_attributes(spec:PHtmlFontSpecification; attrs:PPangoAttrList; start_index:gint; end_index:gint);cdecl; external gtkhtmllib;
61
 
  procedure html_font_specification_get_all_attributes(spec:PHtmlFontSpecification; attrs:PPangoAttrList; start_index:gint; end_index:gint; magnification:gdouble);cdecl; external gtkhtmllib;
62
 
  function html_font_specification_get_html_size(spec:PHtmlFontSpecification):gint;cdecl; external gtkhtmllib;
63
 
  function html_font_description_html_size_to_pt(font_size:gint):gint;cdecl; external gtkhtmllib;
64
 
 
65
 
{$ENDIF read_interface_rest}
66
 
 
67
 
//------------------------------------------------------------------------------
68
 
 
69
 
{$IFDEF read_implementation}
70
 
 
71
 
  function weight(var a : THtmlFontSpecification) : THtmlFontWeightType;
72
 
  begin
73
 
    weight:=(a.flag0 and bm__HtmlFontSpecification_weight) shr bp__HtmlFontSpecification_weight;
74
 
  end;//weight
75
 
 
76
 
  procedure set_weight(var a : THtmlFontSpecification; __weight : THtmlFontWeightType);
77
 
  begin
78
 
    a.flag0:=a.flag0 or ((__weight shl bp__HtmlFontSpecification_weight) and bm__HtmlFontSpecification_weight);
79
 
  end;//set_weight
80
 
 
81
 
  function style(var a : THtmlFontSpecification) : THtmlFontStyleType;
82
 
  begin
83
 
    style:=(a.flag0 and bm__HtmlFontSpecification_style) shr bp__HtmlFontSpecification_style;
84
 
  end;//style
85
 
 
86
 
  procedure set_style(var a : THtmlFontSpecification; __style : THtmlFontStyleType);
87
 
  begin
88
 
    a.flag0:=a.flag0 or ((__style shl bp__HtmlFontSpecification_style) and bm__HtmlFontSpecification_style);
89
 
  end;//set_style
90
 
 
91
 
  function variant(var a : THtmlFontSpecification) : THtmlFontVariantType;
92
 
  begin
93
 
    variant:=(a.flag0 and bm__HtmlFontSpecification_variant) shr bp__HtmlFontSpecification_variant;
94
 
  end;//variant
95
 
 
96
 
  procedure set_variant(var a : THtmlFontSpecification; __variant : THtmlFontVariantType);
97
 
  begin
98
 
    a.flag0:=a.flag0 or ((__variant shl bp__HtmlFontSpecification_variant) and bm__HtmlFontSpecification_variant);
99
 
  end;//set_variant
100
 
 
101
 
  function stretch(var a : THtmlFontSpecification) : THtmlFontStretchType;
102
 
  begin
103
 
    stretch:=(a.flag0 and bm__HtmlFontSpecification_stretch) shr bp__HtmlFontSpecification_stretch;
104
 
  end;//stretch
105
 
 
106
 
  procedure set_stretch(var a : THtmlFontSpecification; __stretch : THtmlFontStretchType);
107
 
  begin
108
 
    a.flag0:=a.flag0 or ((__stretch shl bp__HtmlFontSpecification_stretch) and bm__HtmlFontSpecification_stretch);
109
 
  end;//set_stretch
110
 
 
111
 
  function decoration(var a : THtmlFontSpecification) : THtmlFontDecorationType;
112
 
  begin
113
 
    decoration:=(a.flag0 and bm__HtmlFontSpecification_decoration) shr bp__HtmlFontSpecification_decoration;
114
 
  end;//decoration
115
 
 
116
 
  procedure set_decoration(var a : THtmlFontSpecification; __decoration : THtmlFontDecorationType);
117
 
  begin
118
 
    a.flag0:=a.flag0 or ((__decoration shl bp__HtmlFontSpecification_decoration) and bm__HtmlFontSpecification_decoration);
119
 
  end;//set_decoration
120
 
 
121
 
{$ENDIF read_implementation}
122
 
// included by gtkhtml.pas