Source position: extctrls.pp line 1195
type TBandPaintEvent = procedure(
Sender: TObject;
Control: TControl;
Canvas: TCanvas;
var ARect: TRect;
var Options: TBandPaintOptions
) of object;