ь парних картинок
MAX_H = 8;// максимальний розмір поля - 8х8
MAX_W = 8;
Form1: TForm1;
clock: Integer;
level: Integer;
Pole: array [1 .. MAX_H, 1 .. MAX_W] of integer;
{Pole [i, j] <100 - код картинки, клітина закрита;
Pole [i, j]> 100 і <200 - клітина відкрита, тобто гравець бачить картинку;
Pole [i, j]> 200 - гравець знайшов пару для цієї картинки}
Pictures: TBitmap;// картинки, завантажені з файлу
n: integer;// колво відкритих пар картинок
count: integer;// кількості відкритих в даний момент клітин
open1: col_row;// координати 1-й відкритої клітки
open2: col_row;// координати 2-й відкритої клітки
W: integer;// кількість клітин по горизонталі
H: integer;// кількість клітин по вертикалі
// твір W і H повинна бути кратна 2-м
WK: integer;// ширина клітини
HK: integer;// висота клітини
implementation
Unit2, Unit3;
{$ R *. dfm}
// малює клітку поля
Kletka (col, row: integer);
var
x, y: integer;// лівий верхній кут клітини (координати)
src, dst: Trect;// джерело і одержувач бітового образу
// перетворимо координати клітини
// в координати на поверхні форми
x: = (col-1) * WK;
y: = (row-1) * HK;
if Pole [col, row]> 200 then
// для цієї клітини знайдена пара
// клітку треба прибрати з поля
begin
// встановити колір межі, зафарбування і тексту
Form1.Canvas.Brush.Color: = clBtnFace;
Form1.Canvas.Pen.Color: = clBtnFace;
Form1.Canvas.Font.Color: = clBtnFace;
end;
if (Pole [col, row]> 100) and (Pole [col, row] <200)
then
// клітина відкрита - вивести картинку
begin
// Pole [col, row] = номер картинки + 100,
// де 100 - ознака того, що клітина відкрита
// визначимо положення картинки в Pictures
src: = Bounds ((Pole [col, row] -100 -1) * WK, 0, WK, HK);
// координати картинки (клі...
