TD2Selection

type TD2Selection = class(TD2VisualObject)

protected

  FRatio: Single;

  FMove: Boolean;

  FLeftTop: Boolean;

  FLeftBottom: Boolean;

  FRightTop: Boolean;

  FRightBottom: Boolean;

  FLeftTopHot: Boolean;

  FLeftBottomHot: Boolean;

  FRightTopHot: Boolean;

  FRightBottomHot: Boolean;

  FDownPos: TD2Point;

  FMovePos: TD2Point;

  function GetAbsoluteRect; override;

  procedure Paint; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function PointInObject(); override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure MouseLeave; override;

published

  property GripSize: Single; [rw]

  property ParentBounds: Boolean; [rw]

  property HideSelection: Boolean; [rw]

  property MinSize: Integer; [rw]

  property Proportional: Boolean; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnTrack: TNotifyEvent; [rw]

end;

TD2Selection

TD2VisualObject

TD2Object

TObject