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

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

Возможно ли сделать автоматичеискую расстановку шашек на доске в Delph? Если да, то подскажите, пожалуйста. Буду рад любой подсказке.Спасибо!

[Stilet]

Возможно. Все зависит от доски и шашек, что именно эти два элемента из себя представляют.

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

Код для рисования доски взял отсюда:http://programmersforum.ru/showthread.php?t=215869

procedure TForm4.Button1Click(Sender: TObject);
const
  N = 8;
  OneFSize = 40;
  x0 = 60;
  y0 = 60;
var i, j :integer;
begin
  Image1.Canvas.Pen.Color := clBlack;
  for i:= 0 to N-1  do
    for j:= 0 to N-1 do begin
       if  odd(n-i+1) = odd(j) then
         Image1.Canvas.Brush.Color := clBlack
       else
         Image1.Canvas.Brush.Color := clWhite;
       Image1.Canvas.Rectangle(x0+i*OneFSize,y0+j*OneFSize, x0+(i+1)*OneFSize, y0+(j+1)*OneFSize);
    end;
end;

Шашки пытаюсь сделать с помощью Shape или с помощью картинок

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

если возможно, то подскажите пожалуйста

[Stilet]

procedure TForm2.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 With  DrawGrid1.canvas do begin
  if odd(ARow*7+ACol) then Brush.Color:=clBlack else Brush.Color:=clGray;
  FillRect(Rect);

  if (ARow in [0,1]) then
    if odd(ARow*7+ACol) then begin     Brush.Color:=clRed;    Ellipse(Rect);   end;

  if (ARow in [6,7]) then
    if odd(ARow*7+ACol) then begin     Brush.Color:=clBlue;    Ellipse(Rect);   end;
 end;
end;

Вот такой вот простой код может красиво нарисовать шашки.
Используй DrawGrid вместо Image и опиши этим кодом событие OnDrawCell

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

спасибо. можно еще один вопрос?
а как сделать, чтобы шашки можно было двигать по форме мышкой?

[Stilet]

Опять таки технологий много. Начиная от известной Drag and Drop заканчивая просто банальными отрисовками во время движения мышки.
Если драгдроп будешь использовать то скорее всего придется расставлять Shape на форме или те же Image в каждую клетку.

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

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

[BDA]

Пример во вложении.
Осторожно: Шашки можно "выкинуть" за пределы доски, т.к. нет кое-каких проверок (лень думать ).

Update Вариант с некоторой зашитой (может быть, что-нибудь упустил, или можно сделать элегантнее)

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

BDA, Спасибо. У меня еще один вопрос.
почему при движении шашки изображение сильно "дергается" или мерцает ( не знаю как правильно сказать)? Можно как -то исправить?