Помогите разобраться с тетрисом на Delphi

[Luden]

procedure TForm1.FormCreate(Sender: TObject);
var mh : String;
begin
  {HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics, MenuHeight}
  ModifyMenu(MainMenu1.Handle, 1, mf_ByPosition or mf_Popup
  or mf_Help, Handle, 'справка');
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('\Control Panel\Desktop\WindowMetrics', True);
  mh := reg.ReadString('MenuHeight');
  reg.CloseKey;
  reg.Free;
  Image1.Top := 2;
  Image1.Left := 2;
  Image1.Width := stkw * sqrs;
  Image1.Height := stkh * sqrs;
  Panel1.Top := 5;
  Panel1.Left := 5;
  Panel1.Width := Image1.Width + 4;
  Panel1.Height := Image1.Height + 4;
  Image2.Top := 2;
  Image2.Left := 2;
  Image2.Width := sqrs * 4;
  Image2.Height := Image2.Width;
  Panel2.Top := 5;
  Panel2.Left := Panel1.Left + Panel1.Width + 10;
  Panel2.Width := Image2.Width + 4;
  Panel2.Height := Panel2.Width;
  Label1.Top := Panel2.Top + Panel2.Height + 10;
  Label2.Top := Label1.Top + Label1.Height + 10;
  Label3.Top := Label2.Top + Label2.Height + 10;
  Label1.Left := Panel2.Left;
  Label2.Left := Panel2.Left;
  Label3.Left := Panel2.Left;
  Form1.Height := Panel1.Height + Panel1.Top - (StrToInt(mh) div 15) + 30;
  Form1.Width := Panel2.Left + Panel2.Width + 15;
  Image1.Parent.DoubleBuffered := True;
  newgame;
end;

procedure TForm1.mnuExitClick(Sender: TObject);
begin
  Close;
end;

end.

по названиям процедур я догадалась зачем они, мне нада знать как это работает....

помогите, пожалуйста...очень надо....

скажите, зачем нужен этот огромный массив и как допустим работает процедура showfigure....

[alexBlack]

Расположите большой массив по другому.
Посмотрите на 1-цы. Ничего не напоминает ?
Это варианты поворотов одной фигурки.

 (((1,1,0,0),   **
   (0,1,1,0),     **
   (0,0,0,0),
   (0,0,0,0)),
  ((0,1,0,0),      *
   (1,1,0,0),     **
   (1,0,0,0),     *
   (0,0,0,0)),
  ((1,1,0,0),
   (0,1,1,0),
   (0,0,0,0),
   (0,0,0,0)),
  ((0,1,0,0),
   (1,1,0,0),
   (1,0,0,0),
   (0,0,0,0))
 ),

TTetr - это матрица 4x4 рисунок одной фигурки.

showfigure по этому изображению рисует фигурку на канве.

[mutabor]

Знаю я этот исходник, есть он у меня. Работает, это курсовая чья-то. Кстати хороший тетрис.
Начинай с процедуры FormCreate и прослеживай дальнейшие вызовы. Только так ты поймешь работу программы, если поймешь конечно, сложная она для совсем новичков. Можешь F7 нажать и дальше ее же нажимать, вместо F9, Дельфи сама тебя проведет.
Там есть немного "лишнего" не касающегося игры, реестр, меню динамическое.

Когда встречаешь непонятную переменную или функцию, ставь в нее курсор и жми правую мышку - Find Declaration. Перейдешь к ее объявлению.

[Карась]

Сообщение от mutabor

Знаю я этот исходник, есть он у меня. Работает, это курсовая чья-то. Кстати хороший тетрис.
Начинай с процедуры FormCreate и прослеживай дальнейшие вызовы. Только так ты поймешь работу программы, если поймешь конечно, сложная она для совсем новичков. Можешь F7 нажать и дальше ее же нажимать, вместо F9, Дельфи сама тебя проведет.
Там есть немного "лишнего" не касающегося игры, реестр, меню динамическое.

Когда встречаешь непонятную переменную или функцию, ставь в нее курсор и жми правую мышку - Find Declaration. Перейдешь к ее объявлению.

А можно полный исходник "хорошего тетриса" в рар архиве ?
Посижу посмотрю что там.......

[mutabor]

Можно, вот он

[Карась]

Спасибо ) Действительно хорошая штука....

[Luden]

спасибо большое что ответили...
вот вы говорили расположить массив по-другому...
возьмем первую строку этого ужасного массива...я в ней не вижу тех стандартных фигур для тетриса, так почему же там о и 1 именно так расположены...
(((1,1,0,0),(0,1,1,0),(0,0,0,0),(0, 0,0,0)),
((0,1,0,0),(1,1,0,0),(1,0,0,0),(0,0 ,0,0)),
((1,1,0,0),(0,1,1,0),(0,0,0,0),(0,0 ,0,0)),
((0,1,0,0),(1,1,0,0),(1,0,0,0),(0,0 ,0,0))),

[Stilet]

Уже ж обьяснили
(((1,1,0,0), **
(0,1,1,0), **
(0,0,0,0),
(0,0,0,0)),
Вот прикинь что у тебя есть клеточки типа как в крестиках - ноликах
Эта матрица говорит о их заполнении 1 - клеточка закрашена 0- не закрашена.
из этого что вырисовывается? Правильно тетрисовский уголок-звездочка

[Luden]

я понимаю это, я имею ввиду вот если взять первый маленький массив TTetr, что ЭТО за фигура????
(((1,1,0,0)
((0,1,0,0)
((1,1,0,0)
((0,1,0,0)

[Stilet]

Это:

ВВ
В
ВВ
В