графика

[serj-07]

Всем спасибо. Нужно чтобы было движение по форме. У меня получается что телега движется первая и когда она останавливается начинает прыгать человек. Нужно чтобы они начинали двигаться одновременно после нажатии кнопки.

Код:

procedure TForm1.Button1Click(Sender: TObject);
  var   t,x,y:word;
  begin
  with Image1.Canvas do
      begin
         t:=10;
          for x:=250 TO 400 DO
        begin
         if t>0 then
         t:=t+1;
         sss.Canvas.CopyRect(Rect(0,0,sss.Width,sss.Height),
         Image1.Canvas,Rect(x,145,CartWidth+x,145+CartHeight));
         CART(x,145);
         label1.Caption:=IntToStr(152-t)+'м/ч';
         Application.ProcessMessages;
         Sleep(t);
         Image1.Canvas.Draw(x,145,sss);
  end;


     begin
       t:=100;
    for x:=260 downTO 210 DO
        begin
         Sleep(t);
         if t>0 then
         t:=t-1;
         aaa.Canvas.CopyRect(Rect(0,0,aaa.Width,aaa.Height),
         Image1.Canvas,Rect(x,90,PersonWidth+x,90+PersonHeight));
         Person(x,90);
         Application.ProcessMessages;
         Image1.Canvas.Draw(x,90,aaa);

  
      t:=100;
      for y:=90 TO 105 DO

        begin
       Sleep(t);
         if t>0 then
         t:=t-1;
         Person(210,y);
         Application.ProcessMessages;
         Image1.Canvas.Draw(210,y,aaa); }

      end;

заранее благодарю. если можно то поправте в коде.

[serj-07]

мой исходник

[ОДИНОЧЕСТВО В СЕТИ]

А тут то вам чем не понравилось

[serj-07]

Вот что уменя получилось с таймерами, но осталось все как раньше.
человек прыгает потом только телега едет, одновременно не получилось.
и теперь не могу сделать движение равнозамедленное.

procedure Cart(xt,yt:INTEGER);
  begin
   with Form1.Image1.Canvas DO
     begin
         // телега
      brush.Color:= clRed;
      pen.Color:=clblack;
      Rectangle (xt,yt,xt+100,yt+5);
      Ellipse(xt+10,yt+5,xt+30,yt+25);
      Ellipse(xt+70,yt+5,xt+90,yt+25);
     end;
  end;

procedure Person(xp,yp:INTEGER);
   begin
    with Form1.Image1.Canvas DO
       begin
             // человек
        brush.Color:= clRed;
        pen.Color:=clblack;
        Ellipse(xp+5,yp,xp+20,yp+15);
        polygon([point(xp,yp+15), point(xp+12,yp+40),
        point(xp+25,yp+15),point(xp,yp+15)]);
        MoveTo(xp,yp+15);
        LineTo(xp,yp+35);
        MoveTo(xp+25,yp+15);
        LineTo(xp+25,yp+35);
        MoveTo(xp+8,yp+35);
        LineTo(xp+8,yp+55);
        MoveTo(xp+16,yp+35);
        LineTo(xp+16,yp+55);
       end;
   end;

procedure TForm1.FormCreate(Sender: TObject);
  begin
    With Image1.Canvas do
       begin
        DoubleBuffered:=true;
        Image1.Canvas.Brush.Color:=RGB(55,155,255);
        Image1.Canvas.FillRect(rect(0,0,image1.Width,image1.Height));
                   

         sss:=TBitMap.Create;
         sss.Width:=CartWidth;
         sss.Height:=CartHeight;

         aaa:=TBitMap.Create;
         aaa.Width:=PersonWidth;
         aaa.Height:=PersonHeight;
        end;
   end;

procedure TForm1.Timer1Timer(Sender: TObject);
  var
  x,y: Word;
 begin
    With Image1.Canvas do
    begin
     For x:=260 DownTo 210 do
        begin
          aaa.Canvas.CopyRect(Rect(0, 0, aaa.Width, aaa.Height),
          Image1.Canvas,Rect(x, 90, PersonWidth + x, 90 + PersonHeight));
          Person(x, 90);
          Application.ProcessMessages;
          Image1.Canvas.Draw(x, 90, aaa);
        end;
           begin
             for y:=90 TO 115 DO
               begin
                aaa.Canvas.CopyRect(Rect(0,0,aaa.Width,aaa.Height),
                Image1.Canvas,Rect(210,y,PersonWidth+210,y+PersonHeight));
                Person(210,y);
                Application.ProcessMessages;
                Image1.Canvas.Draw(210,y,aaa);
                brush.Color:= RGB(55,155,255);
                pen.Color:=RGB(55,155,255);
                polygon([point(260,105),point(272,130),point(285,105),point(260,105)]);
                Ellipse(265,90,280,105);
                MoveTo(260,105);
                LineTo(260,125);
                MoveTo(285,105);
                LineTo(285,125);
                MoveTo(268,125);
                LineTo(268,145);
                MoveTo(276,125);
                LineTo(276,145);

                if y=115 then
                  brush.Color:= clRed;
                if y=115 then
                 pen.Color:=clblack;
                 Ellipse(215,115,230,130);
                 polygon([point(210,130),point(222,155),point(235,130),point(210,130)]);
                 MoveTo(210,130);
                 LineTo(210,150);
                 MoveTo(235,130);
                 LineTo(235,150);
                 MoveTo(218,150);
                 LineTo(218,170);
                 MoveTo(226,150);
                 LineTo(226,170);
                 timer1.Enabled:= false;

               end;
        end;
    end;
 end;

 procedure TForm1.Timer2Timer(Sender: TObject);
  var
  x: Word;
 begin
   With Image1.Canvas do
     begin
     For x := 250 to 400 do
        begin
          sss.Canvas.CopyRect(Rect(0, 0, sss.Width, sss.Height),
          Image1.Canvas,Rect(x, 145, CartWidth + X, 145 + CartHeight));
          CART(x,145);
          Application.ProcessMessages;
          Image1.Canvas.Draw(x,145,sss);

           brush.Color:= RGB(55,155,255);
           pen.Color:=RGB(55,155,255);
           Ellipse(320,150,340,170);
           Ellipse(260,150,280,170);
           Rectangle (250,145,350,150);

           if x=400      then
           brush.Color:= clRed;
           if x=400      then
           pen.Color:=clblack;
           Ellipse(470,150,490,170);
           Ellipse(410,150,430,170);
           Rectangle (400,145,500,150);
           timer2.Enabled:= false;

         end;
     end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
   begin
     timer1.Enabled:= true;
     timer2.Enabled:= true;
   end;

end.

[serj-07]

закройте тему.
всем спасибо.