TMyCAD > Events > OnShapeCodeRotating

TShapeCodeRotating = procedure (AShape:TMyShape; AAngle:Single) of object;

property OnShapeCodeRotating

Description:

When a Shape is Rotating by code , this event be trigger.

Example:

procedure TForm1.MyCAD1ShapeCodeDragging( AShape:TMyShape;AAngle:single);

begin

Memo1.Lines.Add('---------code Rotate Event---------------');

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

end;