TcxPCPaintDragImageEvent = procedure(Sender: TObject; ABitmap: TBitmap; var ADone: Boolean) of object;