Source position: gtkrange.inc line 116
procedure set_trough_click_forward(
var a: TGtkRange;
__trough_click_forward: guint
);