TGtkRangeClass

type TGtkRangeClass = record

  parent_class: TGtkWidgetClass;

  slider_detail: Pgchar;

  stepper_detail: Pgchar;

  value_changed: procedure(

  range: PGtkRange

);

  adjust_bounds: procedure(

  range: PGtkRange;

  new_value: gdouble

);

  move_slider: procedure(

  range: PGtkRange;

  scroll: TGtkScrollType

);

  get_range_border: procedure(

  range: PGtkRange;

  border: PGtkBorder

);

  _gtk_reserved1: procedure;

  _gtk_reserved2: procedure;

  _gtk_reserved3: procedure;

  _gtk_reserved4: procedure;

end;