TcxFontButtonClickEvent = procedure(Sender: TObject; ButtonType: TcxFontButtonType) of object;