procedure  Assign(Source: TMyShape); override;


Description:


Copy a  source arc shape properties.


Example:


AShape.Assign(BShape);