Реферат: Игра Мозайка на Делфи Delphi

Листинг модуля Unit1

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms, Dialogs, ExtDlgs, Menus;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

C1: TMenuItem;

N5: TMenuItem;

OpenPictureDialog1: TOpenPictureDialog;

procedure FormCreate(Sender: TObject);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormPaint(Sender: TObject);

procedure Load;

procedure Refresh;

procedure New;

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure C1Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public