Source position: TplSeekBarUnit.pas line 46
type TplSeekBarPaintEvent = procedure(
Sender: TObject;
const ACanvas: TCanvas;
const R: TRect
) of object;