unit Unit1;

interface

uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, ImgList, StdCtrls, Buttons;

type
      TForm1 = class(TForm)
        Timer1: TTimer;
        ImageList1: TImageList;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        Timer2: TTimer;
        Timer3: TTimer;
        Timer4: TTimer;
        Timer5: TTimer;
        ImageList2: TImageList;
        Image1: TImage;
        BitBtn3: TBitBtn;
        Image2: TImage;
        procedure Timer1Timer(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure BitBtn3Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
        end;
      // îáúÿâëåíèå íîâîãî òèïà col_row
const
      n=5;
var
       Form1: TForm1;
       map1:array[0..30,0..30,0..30]of byte;
       buf:tbitmap;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var x,y,z:byte;
BMP, BMP1: TBitmap;

begin
BMP:= TBitmap.Create;
try
bmp.Width:= Image1.Picture.Graphic.Width;
bmp.Height:= Image1.Picture.Graphic.Height;
bmp.Canvas.Draw (0, 0, Image1.Picture.Graphic);
BitBtn2.Glyph:= BMP;
finally;
bmp.Free;
end;

BMP1:= TBitmap.Create;
try
bmp1.Width:= Image2.Picture.Graphic.Width;
bmp1.Height:= Image2.Picture.Graphic.Height;
bmp1.Canvas.Draw (0, 0, Image2.Picture.Graphic);
BitBtn3.Glyph:= BMP1;
finally;
bmp1.Free;
end;

       buf.Canvas.Rectangle(-2,-2,buf.Width,buf.Height);
       for x:=0 to 29 do
        for y:=0 to 29 do
          for z:=0 to 29 do
           ImageList1.Draw(buf.canvas,x*37,y*37,map1[x,y,z]);
       form1.Canvas.Draw(0,0,buf);
end;

procedure TForm1.FormCreate(Sender: TObject);
var x,y,z:byte;
begin
       buf:=tbitmap.create;
       buf.Width:=261;
       buf.Height:=261;
       buf.Canvas.Pen.Color:=clBlack;
       buf.Canvas.Brush.Color:=clGray;
       randomize;
       for x:=0 to 29 do
         for y:=0 to 29 do
          for z:=0 to 29 do
           map1[x,y,z]:=random(2);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer);
var item, item1:tpoint;
        z:integer;
begin
       item.x:=x div 37;
       item.y:=y div 37;
        begin
           if Cursor=crDrag then //Åñëè êóðñîð êóáà òîãäà
           for z:=29 downto 0 do
                if map1[item.x,item.Y,z]<>(3) then
                   Break;
                if map1[item.x,item.y,z]=(1)
                     then begin
                          buf.Canvas.Rectangle(0,0,buf.Width,buf.Height); //äåëàåì çåìëþ 2
                          ImageList1.Draw(buf.canvas,x*37,y*37,map1[item.x,item.y,z]);
                          map1[item.x,item.Y,z]:=3;
                          end;
         end;

         begin
           if Cursor=crUpArrow then
              for z:=29 downto 0 do
                if map1[item.x,item.Y,z]<>(3)
                     then Break;
                if map1[item.x,item.y,z]=(0)
                     then begin
                          buf.Canvas.Rectangle(0,0,buf.Width,buf.Height); //äåëàåì çåìëþ 2
                          ImageList1.Draw(buf.canvas,x*37,y*37,map1[item.x,item.y,z]);
                          map1[item.x,item.Y,z]:=3;
                          end;

         end;

caption:='Âûáðàíà êëåòêà ñ êîîðäèíàòàìè ('+inttostr(item.x)+'; '+inttostr(item.y)+'; '+inttostr(z)+'; '')';
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Cursor:=crUpArrow;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Cursor:=crDrag;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Cursor:=crMultiDrag;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer2.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer3.Enabled:=True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Timer4.Enabled:=True;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Timer5.Enabled:=True;
end;

end.

TForm1 = class(TForm)
      DrawGrid1: TDrawGrid;
      ImageList1: TImageList;
      procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
        Rect: TRect; State: TGridDrawState);
    private
      { Private declarations }
    public
      { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
    Rect: TRect; State: TGridDrawState);
var
    X, Y, ImageIndex: Integer;
begin
    ImageIndex := 0;
    X := Rect.Left + ((Rect.Right - Rect.Left - ImageList1.Width) div 2);
    Y := Rect.Top + ((Rect.Bottom - Rect.Top - ImageList1.Height) div 2);
    ImageList1.Draw(DrawGrid1.Canvas, X, Y, ImageIndex, True);
end;