TRubberbandLayer

type TRubberbandLayer = class(TCustomRubberBandLayer)

protected

  FDragState: TRBDragState;

  FValidDragStates: TValidDragStates;

  procedure SetHandles();

  procedure SetOptions();

  function GetValidDragStates;

  function CanQuantize; override;

  procedure DoSetLocation(); override;

  function GetHitTest(); override;

  function GetHitTestCursor(); override;

  function IsFrameVisible; override;

  function IsVertexVisible(); override;

  function AllowMove; override;

  procedure DrawFrame(); override;

  procedure DoUpdateFrame(); override;

  function ApplyOffset(); override;

  procedure DoResizing(); virtual;

  procedure DoConstrain(); virtual;

  function GetDragState(); virtual; overload;

  procedure DoSetDragState(); overload;

  procedure SetDragState();

  function GetHandleCursor(); virtual;

public

  constructor Create(); override;

  property Options: TRBOptions; [rw]

  property Handles: TRBHandles; [rw]

  property MaxHeight: TFloat; [rw]

  property MaxWidth: TFloat; [rw]

  property MinHeight: TFloat; [rw]

  property MinWidth: TFloat; [rw]

  property OnConstrain: TRBConstrainEvent; [rw]

  property OnResizing: TRBResizingEvent; [rw]

end;

TRubberbandLayer

TCustomRubberBandLayer

TPositionedLayer

TCustomLayer

TNotifiablePersistent

TPlainInterfacedPersistent

TObject,IInterface