<< Click to Display Table of Contents >> Navigation:  TMyCAD > Events > OnShapeMouseResizing

TShapeDraggingSizingRotating = procedure (AShape:TMyShape;FromPoint:TPoint;ToPoint:TPoint ) of object;

 

property OnShapeMouseResizing:TShapeDraggingSizingRotating

 

Description:

 

When a shape is resizing by mouse, this event be trigger.

 

Example:

 

 

procedure TForm1.MyCAD1ShapeMouseResizing(AShape: TMyShape; FromPoint:TPoint;var ToPoint: TPoint);

begin

 Memo1.Lines.Add('---------Resizing Event---------------');

 Memo1.Lines.Add('ShapeId is: '+Inttostr(AShape.ShapeId)+AShape.Name +' resizing ,'+

  'From x:'+ inttostr(FromPoint.x)+' y:' +inttostr(FromPoint.y)+

  'To x:'+ inttostr(ToPoint.x)+' y:' +inttostr(ToPoint.y));

end;