Курсовая работа: Создание мини-игры "Магический квадрат"

begin

StringGrid1.Cells[0,0]:='8'; //Заполнение таблицы числами

StringGrid1.Cells[0,1]:='1';

StringGrid1.Cells[0,2]:='6';

StringGrid1.Cells[1,0]:='3';

StringGrid1.Cells[1,1]:='5';

StringGrid1.Cells[1,2]:='7';

StringGrid1.Cells[2,0]:='4';

StringGrid1.Cells[2,1]:='9';

StringGrid1.Cells[2,2]:='2';

end;

BEGIN

Bitmap1:=TBitmap.Create; //создание объекта-битового образа

Bitmap1.LoadFromFile('fon.bmp'); //Загрузка битового изображения из файла

Canvas.StretchDraw(Rect(0, 0, OKBottomDlg.clientWidth, OKBottomDlg.clientHeight),Bitmap1);

//Рисование и заполнение формы рисунком Bitmap

zapoln; //Вызов процедуры заполнения таблицы числами

end;

procedure TOKBottomDlg.OKBtnClick(Sender: TObject);

begin

OKBottomDlg.Close; //Закрытие окна по щелчку кнопки "OK"

end;

end.

Листинг модуля вызова диалогового окна «Правила игры»

unit dialog_pravila;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TOKBottomDlg1 = class(TForm)

OKBtn: TButton; //Кнопка "ОК"

Bevel1: TBevel; //Кромка

Memo1: TMemo; //Текстовое поле

procedure OKBtnClick(Sender: TObject);

procedure FormPaint(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

OKBottomDlg1: TOKBottomDlg1;

Bitmap2:TBitmap; //фоновая картинка

implementation

{$R *.dfm}

procedure TOKBottomDlg1.FormPaint(Sender: TObject);//Процедура рисования фона формы

begin

Bitmap2:=TBitmap.Create; //создание объекта-битового образа

//Загрузка битового изображения из файла

Bitmap2.LoadFromFile('fon.bmp');

Canvas.StretchDraw(Rect(0, 0, OKBottomDlg1.clientWidth, OKBottomDlg1.clientHeight),Bitmap2);

//Рисование и заполнение формы рисунком Bitmap

end;

procedure TOKBottomDlg1.OKBtnClick(Sender: TObject);

begin

OKBottomDlg1.Close; //Закрытие окна по щелчку кнопки "OK"

end;

end.