TRubberbandLayer

type TRubberbandLayer = class(TPositionedLayer)

protected

  FIsDragging: Boolean;

  FDragState: TRBDragState;

  FOldLocation: TFloatRect;

  FMouseShift: TFloatPoint;

  function DoHitTest(); override;

  procedure DoResizing(); virtual;

  procedure DoConstrain(); virtual;

  procedure DoSetLocation(); override;

  function GetDragState(); virtual;

  function GetHandleCursor(); virtual;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure Notification(); override;

  procedure Paint(); override;

  procedure SetLayerOptions(); override;

  procedure SetDragState();

  procedure UpdateChildLayer; virtual;

  procedure DrawHandle(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetFrameStipple();

  procedure Quantize;

  property ChildLayer: TPositionedLayer; [rw]

  property Options: TRBOptions; [rw]

  property Handles: TRBHandles; [rw]

  property HandleSize: TFloat; [rw]

  property HandleFill: TColor32; [rw]

  property HandleFrame: TColor32; [rw]

  property FrameStippleStep: TFloat; [rw]

  property FrameStippleCounter: TFloat; [rw]

  property MaxHeight: TFloat; [rw]

  property MaxWidth: TFloat; [rw]

  property MinHeight: TFloat; [rw]

  property MinWidth: TFloat; [rw]

  property Quantized: Integer; [rw]

  property PassMouseToChild: TRubberbandPassMouse; [r]

  property OnUserChange: TNotifyEvent; [rw]

  property OnConstrain: TRBConstrainEvent; [rw]

  property OnResizing: TRBResizingEvent; [rw]

end;

TRubberbandLayer

TPositionedLayer

TCustomLayer

TNotifiablePersistent

TPlainInterfacedPersistent

TObject,IInterface