Source position: gtkscale.pp line 29
type TGtkScaleClass = record
parent_class: TGtkRangeClass;
slider_length: gint;
value_spacing: gint;
draw_value: procedure(
scale: PGtkScale
);
end;