TMyCAD > Events > OnShapeMouseRotated

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

property OnShapeMouseRotated:TShapeDraggingSizingRotating

Description:

When a Shape is rotated by mouse, this event be trigger.

Example:

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

begin

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

Memo1.Lines.Add('ShapeId is: '+Inttostr(AShape.ShapeId)+AShape.Name +' rotated ');

end;