Выделение хода в шахматах через Shape

[Rybi]

а можете подсказать на простеньком примере, как!?

[Iron Monk]

procedure TForm1.CreatePole(n: integer{размер клетки});
var
i,c,d:integer;
begin
    c:=0;
    d:=1;
    Canvas.Brush.Color := clBlack;
    Canvas.MoveTo(n,n);
    Canvas.LineTo(n,n*9);
    Canvas.LineTo(n*9,n*9);
    Canvas.LineTo(n*9,n);
    Canvas.LineTo(n,n);
   for i:= 0 to 3 do
   begin
    Canvas.Rectangle(n,n+n*c,n*2,n*2*d);
    Canvas.Rectangle(n*3,n+n*c,n*4,n*2*d);
    Canvas.Rectangle(n*5,n+n*c,n*6,n*2*d);
    Canvas.Rectangle(n*7,n+n*c,n*8,n*2*d);
    Canvas.Rectangle(n*2,n*2*d,n*3,n*3+n*c);
    Canvas.Rectangle(n*4,n*2*d,n*5,n*3+n*c);
    Canvas.Rectangle(n*6,n*2*d,n*7,n*3+n*c);
    Canvas.Rectangle(n*8,n*2*d,n*9,n*3+n*c);
    Inc(c,2);
    Inc(d);
   end;
end;

//Создаём шахматное поле
procedure TForm1.Button1Click(Sender: TObject);
begin
    CreatePole(30);
end;

[JUDAS]

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

min@y™,Видимо, не я одна делаю их, а где вы их видели?

Помнится когда то в конце 90-х в состав TurboPascal 702 (вроде) , входил пример Chess. Компилился под DOS. Никто из знакомых не смог "завалить" 486-й комп с этой "чесс". Если интеерсно вечером с дома могу выложить (вместе с самим турбопаскалем). Где то в закромах валяется

[Rybi]

Огромное спасибо, но я знаю о тех шахматах, ибо перерыла весь интернет, они хорошие, но мне нужны без интеллекта и самые простые. Я все свой не могу доработать, а осталось всего шах, мат, пат, выделение хода. вот и все. а реализация ввода входа сложна, преподаватель предложил дополнить этим?!

[Rybi]

Сообщение от Iron Monk

procedure TForm1.CreatePole(n: integer{размер клетки});
var
i,c,d:integer;
begin
    c:=0;
    d:=1;
    Canvas.Brush.Color := clBlack;
    Canvas.MoveTo(n,n);
    Canvas.LineTo(n,n*9);
    Canvas.LineTo(n*9,n*9);
    Canvas.LineTo(n*9,n);
    Canvas.LineTo(n,n);
   for i:= 0 to 3 do
   begin
    Canvas.Rectangle(n,n+n*c,n*2,n*2*d);
    Canvas.Rectangle(n*3,n+n*c,n*4,n*2*d);
    Canvas.Rectangle(n*5,n+n*c,n*6,n*2*d);
    Canvas.Rectangle(n*7,n+n*c,n*8,n*2*d);
    Canvas.Rectangle(n*2,n*2*d,n*3,n*3+n*c);
    Canvas.Rectangle(n*4,n*2*d,n*5,n*3+n*c);
    Canvas.Rectangle(n*6,n*2*d,n*7,n*3+n*c);
    Canvas.Rectangle(n*8,n*2*d,n*9,n*3+n*c);
    Inc(c,2);
    Inc(d);
   end;
end;

//Создаём шахматное поле
procedure TForm1.Button1Click(Sender: TObject);
begin
    CreatePole(30);
end;

а зачем мне само поле, оно у меня уже создано, но идея интересная сохранила, нп будущее

[Serge_Bliznykov]

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

Я все свой не могу доработать, а осталось всего шах, мат, пат, выделение хода.

а в чём проблема?

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

а реализация ввода входа сложна, преподаватель предложил дополнить этим?!

простите, не понял: реализация чего? Какого "входа"?

[Rybi]

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

а в чём проблема?


простите, не понял: реализация чего? Какого "входа"?

добавить ввод хода с клавиатуры

[Serge_Bliznykov]

добавить ввод хода с клавиатуры

понятно. это, в общем случае, не очень сложно.
Но, конечно, зависит от интерфейса, где Вы этот самый ход хотите ввести
можно, например, поместить обычный TEdit и под ним кнопочку "Сделать ход"
Если внесли верно - то делать ход и очищать Edit, иначе - ругаться!

[Rybi]

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

понятно. это, в общем случае, не очень сложно.
Но, конечно, зависит от интерфейса, где Вы этот самый ход хотите ввести
можно, например, поместить обычный TEdit и под ним кнопочку "Сделать ход"
Если внесли верно - то делать ход и очищать Edit, иначе - ругаться!

вообще хотела просто через Edit, без кнопки, но ваши слова по поводу вывода сообщения о неверном ходе, изменили решение. Только не знаю, как описать, если с доски кликаем по фигуре и передвигаем, то здесь как?
ЗЫ точнее понятно как, кнопка должна проверять возможность хода и координаты клеток, но в коде выходит фигня(((