заставить шашки двигаться в 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);

    end;
  • procedure TUserForm.UserImageDblClick(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:= 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);

    end;
06.05.17
0 ответов
Ответов пока нет
Посмотреть всех экспертов из раздела Технологии > Delphi
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store