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

procedure FormPaint(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

OKBottomDlg: TOKBottomDlg;

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

StringGrid1:TStringGrid;

implementation

{$R *.dfm}

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

procedure zapoln;

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);