Возможно ли сделать автоматичеискую расстановку шашек на доске в Delph?

[BDA]

Пожалуйста.
У меня все плавно (Delphi 2010 и включенная двойная буферизация).
Нужно как-то задействовать двойную буферизацию, если компилируете не в Delphi 2010.

[вася радугов]

Извините, наверное, это легко сделать, но у меня не получилось. как сделать, чтобы шашки стояли как на шахматной доске: только на черных клетках?

[BDA]

Да, действительно легко, нужно добавить всего лишь 2 условных оператора:

procedure start;
var
  i, j: Integer;
begin
  for i := 0 to 1 do
    for j := 0 to N - 1 do
      if odd(i + j) then
        Pieces[i, j] := 1;
  for i := 2 to N - 3 do
    for j := 0 to N - 1 do
      Pieces[i, j] := 0;
  for i := N - 2 to N - 1 do
    for j := 0 to N - 1 do
      if odd(i + j) then
        Pieces[i, j] := 2;
  Form1.Repaint;
end;

[вася радугов]

Как добавить еще один ряд зеленых шашаек? Красные я добавил, а вот зеленые почему-то не получается.

[BDA]

const
  Lines = 3;
...
procedure start;
var
  i, j: Integer;
begin
  for i := 0 to N - 1 do
    for j := 0 to N - 1 do
      Pieces[i, j] := 0;
  for i := 0 to Lines - 1 do
    for j := 0 to N - 1 do
      if odd(i + j) then
        Pieces[i, j] := 1;
  for i := N - Lines to N - 1 do
    for j := 0 to N - 1 do
      if odd(i + j) then
        Pieces[i, j] := 2;
  Form1.Repaint;
end;

Зеленые "затираются" нулями (изменил порядок заполнения).

[вася радугов]

Хорошо, что есть люди, которые могут помочь. Спасибо большое!

[вася радугов]

Извините, но у меня появился еще один вопрос. Можно сделать так, чтобы шашки можно было "выносить" за пределы поля?

[BDA]

Выносить-то чтобы можно было, сделать можно, но шашки нельзя "закрепить" за пределами поля в данной реализации (сами шашки хранятся в массиве, а на экране всего лишь рисуется перемещение шашки). Я специально ограничил передвижение шашки, чтобы избежать ошибок при выборе нового места для шашки.

[вася радугов]

А как тогда сделать, чтобы шашка, которую срубили исчезла?

[BDA]

В массиве Pieces хранятся:
1 - отображаются как зеленые
0 - пустая клетка
2 - отображаются как красные

Чтобы убрать шашку, просто нужно заменить нулем соответствующий элемент массива.

Кстати, при отрисовке шашки происходит:
Запоминание клетки, из которой взята шашка
Замена соответствующего элемента на 0
Отрисовка шашки там, где курсор
При отпускании высчитывание новой позиции в массиве и установка шашки

На самом деле, программа уже выглядит не так просто, хотя еще нужно очень много доделывать.
Например:
Реализовать движение шашки только по диагонали
Сделать проверку на возможность установки шашки
Реализовать "битье" шашки (еще более сложный вариант - битье нескольких шашек за один ход)