TdxGalleryItemEvent = procedure(Sender: TObject; AItem: TdxGalleryItem) of object;