Доска

[RgnRok]

Доброго времени суток, прошу помощи.

Такое дело, нужно создать игрушку Реверси, в билдере полный ноль поэтому толком ничего не знаю. Облазив инет нашел способ создания доски при помощи DrawGrid. Получилась вот такая штука.

Про логику и тд пока не думал, сейчас застрял на том, чтоб цвета закрашивания чередовались, но почему-то никак не хочет, красит только "последним" цетом.
Кто знает как это исправить, прошу помочь. Или же выслушаю другие идеи как можно реализовать доску и смену цвета ее компонентов по шелчку, а то в голову ничего больше не лезет.

Заранее спасибо.

[RgnRok]

Чтож, раз данная тема не пошла, попробуем второй способ

Создал массив Panel все нормально

TPanel *p[6][6];      int i,j;

      for (i=0; i<6; ++i)
        for (j=0; j<6; ++j)
 { p[i][j]=new TPanel(Form1);
  p[i][j]->Parent=Form1;

  p[i][j]->Top=50*i;
  p[i][j]->Left=50*j;
  p[i][j]->Width=50;
  p[i][j]->Height=50;
  p[i][j]->Color=clGreen;
    }

закрасил, теперь нужно по щелчку менять цвет каждой панели, и тут снова тупик.

Незнаю куда примастить p[i][j]->OnClick (если конечно это реализуется через данный метод) Кто знает очень прошу помочь.
Спасибо

[An1ka]

Сообщение от RgnRok

Незнаю куда примастить p[i][j]->OnClick (если конечно это реализуется через данный метод) Кто знает очень прошу помочь.
Спасибо

Присвой функцию обработки события для компонента:

  p[i][j]->OnClick=MyPanelClick;

Где MyPanelClick:

void __fastcall MyPanelClick(TObject *Sender);

Чтобы понять какая панель была вызвала данной функцией - для каждого компонента присвой свой номер:

 p[i][j]->Tag  = j*6 + i;

Тогда у всех компонентов функция реализации такая:

void __fastcall TForm1::MyPanelClick(TObject *Sender)
{
int number = ((TPanel*) Sender)->Tag;
int i = number%6;
int j = number/6;
AnsiString str= "Вы нажали на панель i=" + IntToStr( i) + " j=" + IntToStr( j);
ShowMessage ( str);
}