TdxRibbonEvent = procedure(Sender: TdxCustomRibbon) of object;