Source position: gtkrange.pp line 55
type TGtkRangeClass = record |
parent_class: TGtkWidgetClass; |
slider_width: gint; |
stepper_size: gint; |
stepper_slider_spacing: gint; |
min_slider_size: gint; |
trough: guint8; |
slider: guint8; |
step_forw: guint8; |
step_back: guint8; |
draw_background: procedure( |
range: PGtkRange |
); |
clear_background: procedure( |
range: PGtkRange |
); |
draw_trough: procedure( |
range: PGtkRange |
); |
draw_slider: procedure( |
range: PGtkRange |
); |
draw_step_forw: procedure( |
range: PGtkRange |
); |
draw_step_back: procedure( |
range: PGtkRange |
); |
slider_update: procedure( |
range: PGtkRange |
); |
trough_click: function( |
range: PGtkRange; |
x: gint; |
y: gint; |
jump_perc: Pgfloat |
):gint; |
trough_keys: function( |
range: PGtkRange; |
key: PGdkEventKey; |
scroll: PGtkScrollType; |
trough: PGtkTroughType |
):gint; |
motion: procedure( |
range: PGtkRange; |
xdelta: gint; |
ydelta: gint |
); |
timer: function( |
range: PGtkRange |
):gint; |
end; |