Source position: bgradrawerflashprogressbar.pas line 13
type TBGRAProgressBarRedrawEvent = procedure(
Sender: TObject;
Bitmap: TBGRABitmap;
xpos: Integer
) of object;