... G.DSDinh[DinhDown].ToaDo.x:=x-Dx; G.DSDinh[DinhDown].ToaDo.y:=y-Dy; VeDoThi(G,Pic,imagelist1); DrawPaint(PaintBox1,Pic);148PHẦN PHỤ LỤCPhụ lục 1Unit chứa khai báo các cấu trúc dữ liệu cho đồ thị và cài đặt ... - New documents'end;function TForm2.DownDinh(x,y:integer;G:TypeDothi):integer;var i:integer;begin For i:=0 to G.Sodinh-1 do with G.DSDinh[i] do If Sqrt(sqr(Toado.x-x)+sqr(Toado.y-y))<20 ... then145Pic.Canvas.Font.Color:=TextColor;Pic.Canvas.Font.Size:=TextSizeTrongSo;Pic.Canvas.Brush.Style:=bsclear;Pic.Canvas.TextOut(T2.x-((T2.x-T1.x) div 3),T2.y -( (T2.y-T1.y)div 3),St);end;Function Delen(x,y,Width,Height:integer;DinhDown:integer):boolean;Var i,W,H:integer;beginfor i:=0 to G.SoDinh-1 do begin...