[求助]delphi急！！！！！！！

请人帮我把下面的代码画成uml图
CArc = Class(CDrawings)
private
Procedure AutoArc(p1,p2:TPoint);
Procedure emphasisDraw;override; //Show if Selected
public
Function WhoAmI:TDrawingtype;override;
Function selected(ap:Tpoint):Boolean; override;
//function inregion(ar:Trect):Boolean; override;
Procedure DoChangeRect(ap:TPoint;aPos:integer);override;
Function GetEdgePos(aP:Tpoint):integer;override;//TEdgePos;
Procedure Draw;override;
Procedure Preview;override;
Procedure Hide;override;
end;

[此贴子已经被作者于2007-5-17 19:07:50编辑过]