<< Click to Display Table of Contents >> Navigation:  TMyCAD > Events > OnShapeAdded

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

 

property OnShapeAdded: TShapeAdded;

 

Description:

 

Use OnShapeAdded to handler a shape is 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;