обратный таймер делфи

Если квадрат на который мы нажали имеет по крайней мере одного соседа того-же цвета (сосед может быть одним из четырех

Но что бы удалялся не отдельный квадрат, а сразу блок квадратов имеющие одинаковые цвета нужно создать еще одну процедуру. Логика у неё следующая:

Алгоритм следующий: пользователь кликнул по квадрату он удалился (окрасился в белый цвет).

для этого нужно вернуться в начало и до ключевого слова var написать вот такую строчку:

Удаляем блоки квадратов, которые имеют одинаковые цвета:

После этого в OnClicke на кнопке допишите

Form1.DrawGrid1DrawCell(Form1, i, j, Form1.DrawGrid1.CellRect(i,j), [])

for j := 0 to Form1.DrawGrid1.RowCount-1 do

for i := 0 to Form1.DrawGrid1.ColCount-1 do

Полный код этой процедуры будет такой:

Создадим небольшую процедуру (о том как создавать процедуры я объяснял выше):

Мы научились заполнять игровое поле квадратами разного цвета, осталось только научиться удалять квадраты одинакового цвета, этим сейчас и займемся.

Delphi уроки - создаём простую игру.Часть 2

Подписывайтесь на нашу рассылку и получайте свежие уроки, статьи и новости, прямо в свой почтовый ящик!

Покажут все секреты создания собственных программ!

Более 50 отборных видео уроков записанных с экрана компьютера с подробными Аудио комментариями.

Первый в РУнете Видео курс использующий принципиально новый подход к обучению.

Хотите научиться программировать на языке Delphi - Это то что вам нужно !

Delphi исходники и delphi компоненты, бесплатные Delphi исходники и компоненты, создание своих исходников для delphi, программирование на Delphi уроки и примеры

Delphi уроки - создаём простую игру.Часть 2