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


property OnShapeCodeRotating


Description:


When a Shape is Rotating by code , this event will 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;


See Also:


Rotate