TcxCalcButtonClick = procedure(Sender: TObject; var ButtonKind: TcxCalcButtonKind) of object;