Source position: xforms.pp line 2638
type TFL_SLIDER_FILTER = procedure(
p1: PFL_OBJECT;
p2: Double;
p3: LongInt
);