TElasticRubberBandLayer

type TElasticRubberBandLayer = class(TElasticLayer)

protected

  procedure DoSetEdges(); override;

  function GetRotatedCompass();

  function GetPivotOrigin;

  function GetPivotTransformed;

  function GetRotatedEdges();

  procedure Paint(); override;

  procedure SetLayerOptions(); override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

public

  constructor Create(); override;

  property ChildLayer: TElasticLayer; [rw]

  property Options: TExtRubberBandOptions; [rw]

  property HandleSize: Integer; [rw]

  property HandleFill: TColor; [rw]

  property HandleFrame: TColor; [rw]

  property PivotPoint: TFloatPoint; [rw]

  property Threshold: Integer; [rw]

end;

TElasticRubberBandLayer

TElasticLayer

TObject