procedure LockUnLockforShapes(AShape:TMyShape,Value:boolean);



Description:


 Prevent the shape or the grouped shape be moved or resized by mouse, but can moved by code.

After execute this command, AShape.Locked is true and display the gray hotspot when you selected

this shape.


Parameter:

AShape:a  shape;

Vaule: true,lock it;

         false,unlock it.