TTGDragImage

type TTGDragImage = 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: TTGDragMoveRestriction; [rw]

  property PostBlendBias: TTGBias; [rw]

  property PreBlendBias: TTGBias; [rw]

  property Transparency: TTGTransparency; [rw]

  property Visible: Boolean; [r]

end;

TTGDragImage

TObject