4
{****************************************************************************
6
****************************************************************************}
8
{$ifdef read_interface}
11
PGtkRulerMetric = ^TGtkRulerMetric;
13
PGtkRuler = ^TGtkRuler;
16
backing_store : PGdkPixmap;
17
non_gr_exp_gc : PGdkGC;
18
metric : PGtkRulerMetric;
28
PGtkRulerClass = ^TGtkRulerClass;
29
TGtkRulerClass = record
30
parent_class : TGtkWidgetClass;
31
draw_ticks : procedure (ruler:PGtkRuler); cdecl;
32
draw_pos : procedure (ruler:PGtkRuler); cdecl;
35
TGtkRulerMetric = record
38
pixels_per_unit : gfloat;
39
ruler_scale : array[0..9] of gfloat;
40
subdivide : array[0..4] of gint;
45
GTK_RULER_CLASS=PGtkRulerClass;
47
function GTK_RULER_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_ruler_get_type';
48
function GTK_IS_RULER(obj:pointer):boolean;
49
function GTK_IS_RULER_CLASS(klass:pointer):boolean;
51
function gtk_ruler_get_type:TGtkType;cdecl;external gtkdll name 'gtk_ruler_get_type';
52
procedure gtk_ruler_set_metric(ruler:PGtkRuler; metric:TGtkMetricType);cdecl;external gtkdll name 'gtk_ruler_set_metric';
53
procedure gtk_ruler_set_range(ruler:PGtkRuler; lower:gfloat; upper:gfloat; position:gfloat; max_size:gfloat);cdecl;external gtkdll name 'gtk_ruler_set_range';
54
procedure gtk_ruler_draw_ticks(ruler:PGtkRuler);cdecl;external gtkdll name 'gtk_ruler_draw_ticks';
55
procedure gtk_ruler_draw_pos(ruler:PGtkRuler);cdecl;external gtkdll name 'gtk_ruler_draw_pos';
57
{$endif read_interface}
60
{****************************************************************************
62
****************************************************************************}
64
{$ifdef read_implementation}
66
function GTK_IS_RULER(obj:pointer):boolean;
68
GTK_IS_RULER:=(obj<>nil) and GTK_IS_RULER_CLASS(PGtkTypeObject(obj)^.klass);
71
function GTK_IS_RULER_CLASS(klass:pointer):boolean;
73
GTK_IS_RULER_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_RULER_TYPE);
76
{$endif read_implementation}