blob: 61e92f2cdd3f1e8a675660f3e1539c7603de326f (
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
|
{$IfDef read_interface}
type
PGnomeCanvasTextSuckChar = ^TGnomeCanvasTextSuckChar;
TGnomeCanvasTextSuckChar = record
left_sb : longint;
right_sb : longint;
width : longint;
ascent : longint;
descent : longint;
bitmap_offset : longint;
end;
PGnomeCanvasTextSuckFont = ^TGnomeCanvasTextSuckFont;
TGnomeCanvasTextSuckFont = record
bitmap : Pguchar;
bitmap_width : gint;
bitmap_height : gint;
ascent : gint;
chars : array[0..255] of TGnomeCanvasTextSuckChar;
end;
PGnomeCanvasText = ^TGnomeCanvasText;
TGnomeCanvasText = record
item : TGnomeCanvasItem;
thetext : Pchar;
lines : gpointer;
num_lines : longint;
x : double;
y : double;
font : PGdkFont;
anchor : TGtkAnchorType;
justification : TGtkJustification;
clip_width : double;
clip_height : double;
xofs : double;
yofs : double;
pixel : gulong;
stipple : PGdkBitmap;
gc : PGdkGC;
cx : longint;
cy : longint;
clip_cx : longint;
clip_cy : longint;
clip_cwidth : longint;
clip_cheight : longint;
max_width : longint;
height : longint;
flag0 : word;
suckfont : PGnomeCanvasTextSuckFont;
rgba : guint32;
affine : Taffine_array;
end;
GNOME_CANVAS_TEXT = PGnomeCanvasText;
const
bm__GnomeCanvasText_clip = $1;
bp__GnomeCanvasText_clip = 0;
function clip(var a : TGnomeCanvasText) : guint;
procedure set_clip(var a : TGnomeCanvasText; __clip : guint);
type
PGnomeCanvasTextClass = ^TGnomeCanvasTextClass;
TGnomeCanvasTextClass = record
parent_class : TGnomeCanvasItemClass;
end;
GNOME_CANVAS_TEXT_CLASS = PGnomeCanvasTextClass;
function GNOME_TYPE_CANVAS_TEXT : TGTKType;
function GNOME_IS_CANVAS_TEXT(obj : Pointer) : Boolean;
function GNOME_IS_CANVAS_TEXT_CLASS(klass : Pointer) : Boolean;
function gnome_canvas_text_get_type:TGtkType;cdecl;external libgnomeuidll name 'gnome_canvas_text_get_type';
{$EndIf read_interface}
{$Ifdef read_implementation}
function clip(var a : TGnomeCanvasText) : guint;
begin
clip:=(a.flag0 and bm__GnomeCanvasText_clip) shr bp__GnomeCanvasText_clip;
end;
procedure set_clip(var a : TGnomeCanvasText; __clip : guint);
begin
a.flag0:=a.flag0 or ((__clip shl bp__GnomeCanvasText_clip) and bm__GnomeCanvasText_clip);
end;
function GNOME_TYPE_CANVAS_TEXT : TGTKType;
begin
GNOME_TYPE_CANVAS_TEXT:=gnome_canvas_text_get_type;
end;
function GNOME_IS_CANVAS_TEXT(obj : Pointer) : Boolean;
begin
GNOME_IS_CANVAS_TEXT:=(obj<>nil) and GNOME_IS_CANVAS_TEXT_CLASS(PGtkTypeObject(obj)^.klass);
end;
function GNOME_IS_CANVAS_TEXT_CLASS(klass : Pointer) : Boolean;
begin
GNOME_IS_CANVAS_TEXT_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_CANVAS_TEXT);
end;
{$Endif read_implementation}
|
