procedure  Assign(Source: TMyShape); virtual;


Description:


Copy a  source shape properties.


Example:


AShape.Assign(BShape);



See also:


Create