Ngày tải lên :
27/04/2013, 23:07
... floodfill(x1 +10 ,y1+8 ,1) ; setcolor (15 ); line(x1,y1,x1+dr1,y1); line(x1,y1,x1,y1+ds1); setcolor(8); line(x1,y1+ds1,x1+dr1,y1+ds1); line(x1+dr1,y1,x1+dr1,y1+ds1); End Else Begin setcolor(8); line(x1,y1,x1+dr1,y1); ... line(x1,y1,x1+dr1,y1); line(x1,y1,x1,y1+ds1); setcolor (15 ); line(x1,y1+ds1,x1+dr1,y1+ds1); line(x1+dr1,y1,x1+dr1,y1+ds1); setcolor (1) ; {to mau cho cac phim phim duoc chon} setlinestyle(0 ,1, 1); rectangle(x1,y1,x1+dr1,y1+ds1); ... setlinestyle(0 ,1, 1) Else setlinestyle(0 ,1, 3); 10 Kiểm tra Đánh máy Nguyễn Trần TuÊn Anh If (i =1) then Begin {to mau cho phim} setlinestyle(0 ,1, 3); setcolor (1) ; rectangle(x1,y1,x1+dr1,y1+ds1); setfillstyle (1, 7);...