TcxVerticalGridDrawBackgroundEvent = procedure(Sender: TObject; ACanvas: TcxCanvas; const R: TRect; const AViewParams: TcxViewParams; var Done: Boolean) of object;