blob: 1c152ccde4872e8de0ce13817c4cb77fea847e4c (
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
115
116
117
118
119
120
|
{$IfDef read_interface}
type
PGnomeCanvasLine = ^TGnomeCanvasLine;
TGnomeCanvasLine = record
item : TGnomeCanvasItem;
num_points : longint;
coords : Pdouble;
width : double;
fill_color : guint;
fill_pixel : gulong;
stipple : PGdkBitmap;
cap : TGdkCapStyle;
join : TGdkJoinStyle;
line_style : TGdkLineStyle;
shape_a : double;
shape_b : double;
shape_c : double;
first_coords : Pdouble;
last_coords : Pdouble;
spline_steps : longint;
gc : PGdkGC;
flag0 : word;
fill_rgba : guint32;
fill_svp : PArtSVP;
first_svp : PArtSVP;
last_svp : PArtSVP;
end;
GNOME_CANVAS_LINE = PGnomeCanvasLine;
const
bm__GnomeCanvasLine_width_pixels = $1;
bp__GnomeCanvasLine_width_pixels = 0;
bm__GnomeCanvasLine_first_arrow = $2;
bp__GnomeCanvasLine_first_arrow = 1;
bm__GnomeCanvasLine_last_arrow = $4;
bp__GnomeCanvasLine_last_arrow = 2;
bm__GnomeCanvasLine_smooth = $8;
bp__GnomeCanvasLine_smooth = 3;
function width_pixels(var a : TGnomeCanvasLine) : guint;
procedure set_width_pixels(var a : TGnomeCanvasLine; __width_pixels : guint);
function first_arrow(var a : TGnomeCanvasLine) : guint;
procedure set_first_arrow(var a : TGnomeCanvasLine; __first_arrow : guint);
function last_arrow(var a : TGnomeCanvasLine) : guint;
procedure set_last_arrow(var a : TGnomeCanvasLine; __last_arrow : guint);
function smooth(var a : TGnomeCanvasLine) : guint;
procedure set_smooth(var a : TGnomeCanvasLine; __smooth : guint);
type
PGnomeCanvasLineClass = ^TGnomeCanvasLineClass;
TGnomeCanvasLineClass = record
parent_class : TGnomeCanvasItemClass;
end;
GNOME_CANVAS_LINE_CLASS = PGnomeCanvasLineClass;
function GNOME_TYPE_CANVAS_LINE : TGTKType;
function GNOME_IS_CANVAS_LINE(obj : Pointer) : Boolean;
function GNOME_IS_CANVAS_LINE_CLASS(klass : Pointer) : Boolean;
function gnome_canvas_line_get_type:TGtkType;cdecl;external libgnomeuidll name 'gnome_canvas_line_get_type';
{$EndIf read_interface}
{$Ifdef read_implementation}
function GNOME_TYPE_CANVAS_LINE : TGTKType;
begin
GNOME_TYPE_CANVAS_LINE:=gnome_canvas_line_get_type;
end;
function GNOME_IS_CANVAS_LINE(obj : Pointer) : Boolean;
begin
GNOME_IS_CANVAS_LINE:=(obj<>nil) and GNOME_IS_CANVAS_LINE_CLASS(PGtkTypeObject(obj)^.klass);
end;
function GNOME_IS_CANVAS_LINE_CLASS(klass : Pointer) : Boolean;
begin
GNOME_IS_CANVAS_LINE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_CANVAS_LINE);
end;
function width_pixels(var a : TGnomeCanvasLine) : guint;
begin
width_pixels:=(a.flag0 and bm__GnomeCanvasLine_width_pixels) shr bp__GnomeCanvasLine_width_pixels;
end;
procedure set_width_pixels(var a : TGnomeCanvasLine; __width_pixels : guint);
begin
a.flag0:=a.flag0 or ((__width_pixels shl bp__GnomeCanvasLine_width_pixels) and bm__GnomeCanvasLine_width_pixels);
end;
function first_arrow(var a : TGnomeCanvasLine) : guint;
begin
first_arrow:=(a.flag0 and bm__GnomeCanvasLine_first_arrow) shr bp__GnomeCanvasLine_first_arrow;
end;
procedure set_first_arrow(var a : TGnomeCanvasLine; __first_arrow : guint);
begin
a.flag0:=a.flag0 or ((__first_arrow shl bp__GnomeCanvasLine_first_arrow) and bm__GnomeCanvasLine_first_arrow);
end;
function last_arrow(var a : TGnomeCanvasLine) : guint;
begin
last_arrow:=(a.flag0 and bm__GnomeCanvasLine_last_arrow) shr bp__GnomeCanvasLine_last_arrow;
end;
procedure set_last_arrow(var a : TGnomeCanvasLine; __last_arrow : guint);
begin
a.flag0:=a.flag0 or ((__last_arrow shl bp__GnomeCanvasLine_last_arrow) and bm__GnomeCanvasLine_last_arrow);
end;
function smooth(var a : TGnomeCanvasLine) : guint;
begin
smooth:=(a.flag0 and bm__GnomeCanvasLine_smooth) shr bp__GnomeCanvasLine_smooth;
end;
procedure set_smooth(var a : TGnomeCanvasLine; __smooth : guint);
begin
a.flag0:=a.flag0 or ((__smooth shl bp__GnomeCanvasLine_smooth) and bm__GnomeCanvasLine_smooth);
end;
{$Endif read_implementation}
|
