заставить шашки двигаться в Delphi - вопрос №2443282
вот мой исходный код
procedure TUserForm.bbDrawnClick(Sender:TObject);
Var i,j:integer;
begin
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clBlack;
for i:=1 to 4 do
for j:=1 to 4 do
UserImage.Canvas.rectangle(0+(i-1)*150,0+(j-1)*150,75+(i-1)*150,75+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clBlack;
for i:=1 to 4 do
for j:=1 to 4 do
UserImage.Canvas.rectangle(75+(i-1)*150,75+(j-1)*150,150+(i-1)*150,150+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clOlive;
for i:=1 to 4 do
for j:=1 to 2 do
UserImage.Canvas.ellipse(5+(i-1)*150,5+(j-1)*150,70+(i-1)*150,70+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clOlive;
for i:=1 to 4 do
for j:=1 to 1 do
UserImage.Canvas.ellipse(80+(i-1)*150,80+(j-1)*150,145+(i-1)*150,145+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clWhite;
for i:=1 to 4 do
for j:=1 to 2 do
UserImage.Canvas.ellipse(80+(i-1)*150,380+(j-1)*150,145+(i-1)*150,445+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clWhite;
for i:=1 to 4 do
for j:=1 to 1 do
UserImage.Canvas.ellipse(5+(i-1)*150,455+(j-1)*150,70+(i-1)*150,520+(j-1)*150);
Var i,j:integer;
begin
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clBlack;
for i:=1 to 4 do
for j:=1 to 4 do
UserImage.Canvas.rectangle(0+(i-1)*150,0+(j-1)*150,75+(i-1)*150,75+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clBlack;
for i:=1 to 4 do
for j:=1 to 4 do
UserImage.Canvas.rectangle(75+(i-1)*150,75+(j-1)*150,150+(i-1)*150,150+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clWhite;
for i:=1 to 4 do
for j:=1 to 2 do
UserImage.Canvas.ellipse(5+(i-1)*150,5+(j-1)*150,70+(i-1)*150,70+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clWhite;
for i:=1 to 4 do
for j:=1 to 1 do
UserImage.Canvas.ellipse(80+(i-1)*150,80+(j-1)*150,145+(i-1)*150,145+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clOlive;
for i:=1 to 4 do
for j:=1 to 2 do
UserImage.Canvas.ellipse(80+(i-1)*150,380+(j-1)*150,145+(i-1)*150,445+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clOlive;
for i:=1 to 4 do
for j:=1 to 1 do
UserImage.Canvas.ellipse(5+(i-1)*150,455+(j-1)*150,70+(i-1)*150,520+(j-1)*150);