Игра "Филлер"

// zapolnenie cvetom zelenum
Canvas->Brush->Color=clGreen;
Canvas->FillRect(Rect(200,100,250,150)); 
Canvas->FillRect(Rect(250,100,300,150));
Canvas->FillRect(Rect(400,100,450,150));
 
// zapolnenie cvetom sinii
Canvas->Brush->Color=clBlue;
Canvas->FillRect(Rect(350,100,400,150));

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
const color_count = 6;
TColor color[color_count] = {clRed, clYellow, clGreen, clBlue, clMaroon, clBlack};
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  const step = 50, max_size_x = 600, max_size_y = 600;
  int i, j;
 
// рисуем сетку
  Canvas->Pen->Color = clWhite;
  for (i = 0; i <= max_size_x; i += step)
  {
    Canvas->MoveTo(i, 0);
    Canvas->LineTo(i, max_size_y);
  }
  for (i = 0; i <= max_size_y; i += step)
  {
    Canvas->MoveTo(0, i);
    Canvas->LineTo(max_size_x, i);
  }
 
// закрашиваем клетки "случайными" цветами
  randomize();
  for (i = step/2; i <= max_size_x-step/2; i += step)
    for (j = step/2; j <= max_size_y-step/2; j += step)
    {
      Canvas->Brush->Color = color[random(6)];
      Canvas->FloodFill(i, j, Canvas->Pixels[i][j], fsSurface);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  if (Button == mbLeft)  // если нажата левая кнопка мыши
    for (int i = 0; i < color_count; i++)  // в цикле проверяем
      if (Canvas->Pixels[X][Y] == color[i])  // если клетка имеет цвет из списка
      {
        // то заменяем цвет клетки на следующий из списка
        Canvas->Brush->Color = color[(i+1)%color_count];
        Canvas->FloodFill(X, Y, color[i], fsSurface);
        break;
      }
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);