TdxRibbonGalleryFilterChangedEvent = procedure(Sender: TdxRibbonGalleryItem) of object;