Реферат Розробка ігрової системи "Тетріс"

2 - використовувався для зміни іконки EXE файлу гри;

Microsoft Paint v5.1 - використовувався для створення малюнків до даного курсового проекту

Список використаної літератури

1. Михайло Фленов В«Біблія DelphiВ» БХВ-Петербург, 2004р. 880с.

. Програмування в Delphi 6 Архангельський, А.Я. 2003р.

. Основи програмування в Delphi 7 Культин, Микита 2003р.

. Delphi 7 для професіоналів - М. кент Санкт - Петербург, 2004р. p align="justify">. Delphi на прикладах - Пестриков В.М. БХВ-Петербург, 2005р. p align="justify"> Додаток А

Лістинг програми

{Гра "Парні картинки"

виконав: Ахметов І.Р.}

unit dblpic_;

interface

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls, Menus;

TForm1 = class (TForm)

Timer1: TTimer;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Timer2: TTimer;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

procedure FormCreate (Sender: TObject);

procedure FormPaint (Sender: TObject);

procedure FormMouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Timer1Timer (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure Timer2Timer (Sender: TObject);

procedure FormClick (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N8Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

// оголошення нового типу col_row

col_row = record

col: integer;

row: integer;

end;

MAX_SIZE = 32;// максимальна к-т...