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


property OnShapeMouseRotating:TShapeDraggingSizingRotating


Description:


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


Example:



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

begin

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

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

end;


See Also:


Rotate