TShapeAdded = procedure(LayerId: integer; ShapeID: integer;ShapeName:string; AShape: TMyShape; ShapeCount: integer) of object;


property OnShapeAdded: TShapeAdded;


Description:


Use OnShapeAdded to handler the event of shape be added .


Examples:


procedure TMainFrm.MyCAD1ShapeAdded( var AShape: TMyShape; ShapeCount: Integer);

begin

EventMemo.Lines.Add('---------Add Event');

 EventMemo.Lines.Add('You Add a Shape,it is :' + ShapeName + ',in Layer ' +

   inttostr(LayerId) + ', it is  a ' + AShape.ClassName + ',Now CAD has ' +

   inttostr(ShapeCount) + 'Shapes');

end;