TcxDrawThumbEvent = procedure(Sender: TObject; ACanvas: TcxCanvas; const ARect: TRect) of object;