Tpy3adpoT

constructor pole.pole; var x,y:integer; begin form1.Image1.Width:=Width*16; form1.Image1.Height:=Height*16; form1.Image1.Picture.Bitmap.Width:=Width*16; form1.Image1.Picture.Bitmap.Height:=Height*16; form1.ImageList1.GetBitmap(0,cond); for x:=0 to Width-1 do begin setlength(but,x+1); for ... [More] y:=0 to Height-1 do begin setlength(but[x],y+1); but[x,y]:=Kletko.Create; but[x,y].Top:=y*16; but[x,y].left:=x*16; form1.Image1.Canvas.CopyRect(rect(x*16,y*16,x*16+16,y*16+16),cond.Canvas,rect(0,0,16,16)); end; end; end; [Less]