TdxGalleryControlItemEvent = procedure(Sender: TObject; AItem: TdxGalleryControlItem) of object;