TVTDragImage

type TVTDragImage = class

protected

  procedure InternalShowDragImage();

  procedure MakeAlphaChannel();

public

  constructor Create();

  destructor Destroy; override;

  function DragTo();

  procedure EndDrag;

  function GetDragImageRect;

  procedure HideDragImage;

  procedure PrepareDrag();

  procedure RecaptureBackground();

  procedure ShowDragImage;

  function WillMove();

  property ColorKey: TColor; [rw]

  property Fade: Boolean; [rw]

  property MoveRestriction: TVTDragMoveRestriction; [rw]

  property PostBlendBias: TVTBias; [rw]

  property PreBlendBias: TVTBias; [rw]

  property Transparency: TVTTransparency; [rw]

  property Visible: Boolean; [r]

end;

TVTDragImage

TObject