blob: b787bf3cd63ad406094253786e1efef4a6904089 (
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
|
{
}
{****************************************************************************
Interface
****************************************************************************}
{$ifdef read_interface}
type
PGtkScale = ^TGtkScale;
TGtkScale = record
range : TGtkRange;
flag0 : longint;
end;
const
bm_TGtkScale_draw_value = $1;
bp_TGtkScale_draw_value = 0;
bm_TGtkScale_value_pos = $6;
bp_TGtkScale_value_pos = 1;
function draw_value(var a : TGtkScale) : guint;
procedure set_draw_value(var a : TGtkScale; __draw_value : guint);
function value_pos(var a : TGtkScale) : guint;
procedure set_value_pos(var a : TGtkScale; __value_pos : guint);
type
PGtkScaleClass = ^TGtkScaleClass;
TGtkScaleClass = record
parent_class : TGtkRangeClass;
slider_length : gint;
value_spacing : gint;
draw_value : procedure (scale:PGtkScale); cdecl;
end;
Type
GTK_SCALE=PGtkScale;
GTK_SCALE_CLASS=PGtkScaleClass;
function GTK_SCALE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_scale_get_type';
function GTK_IS_SCALE(obj:pointer):boolean;
function GTK_IS_SCALE_CLASS(klass:pointer):boolean;
function gtk_scale_get_type:TGtkType;cdecl;external gtkdll name 'gtk_scale_get_type';
procedure gtk_scale_set_digits(scale:PGtkScale; digits:gint);cdecl;external gtkdll name 'gtk_scale_set_digits';
procedure gtk_scale_set_draw_value(scale:PGtkScale; draw_value:gboolean);cdecl;external gtkdll name 'gtk_scale_set_draw_value';
procedure gtk_scale_set_value_pos(scale:PGtkScale; pos:TGtkPositionType);cdecl;external gtkdll name 'gtk_scale_set_value_pos';
procedure gtk_scale_draw_value(scale:PGtkScale);cdecl;external gtkdll name 'gtk_scale_draw_value';
{$ifndef gtkwin}
{$ifndef gtkdarwin}
function gtk_scale_value_width(scale:PGtkScale):gint;cdecl;external gtkdll name 'gtk_scale_value_width';
{$endif not gtkdarwin}
{$endif}
{$endif read_interface}
{****************************************************************************
Implementation
****************************************************************************}
{$ifdef read_implementation}
function draw_value(var a : TGtkScale) : guint;
begin
draw_value:=(a.flag0 and bm_TGtkScale_draw_value) shr bp_TGtkScale_draw_value;
end;
procedure set_draw_value(var a : TGtkScale; __draw_value : guint);
begin
a.flag0:=a.flag0 or ((__draw_value shl bp_TGtkScale_draw_value) and bm_TGtkScale_draw_value);
end;
function value_pos(var a : TGtkScale) : guint;
begin
value_pos:=(a.flag0 and bm_TGtkScale_value_pos) shr bp_TGtkScale_value_pos;
end;
procedure set_value_pos(var a : TGtkScale; __value_pos : guint);
begin
a.flag0:=a.flag0 or ((__value_pos shl bp_TGtkScale_value_pos) and bm_TGtkScale_value_pos);
end;
function GTK_IS_SCALE(obj:pointer):boolean;
begin
GTK_IS_SCALE:=(obj<>nil) and GTK_IS_SCALE_CLASS(PGtkTypeObject(obj)^.klass);
end;
function GTK_IS_SCALE_CLASS(klass:pointer):boolean;
begin
GTK_IS_SCALE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_SCALE_TYPE);
end;
{$endif read_implementation}
|
