Delphi2C#

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 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;

Tags

No tags have been added