Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

31st
Май

Как Image переместить к точке по прямой?

Posted by Chas under Пост-обзор

Суть моей проблемы в том, что имеется Image с определенными координатами начала движения, и есть координаты точки окончания его движения. Мне надо сделать так, что Image двигался в таймере по прямой от точки начала движения к точке конца. Не подскажете, как сделать?

phomm:

var sxpos, fxpos, sypos, fypos: integer;

cx, cy, dx, dy : extended;

...

procedure button1click(sender : tobject);

begin

sxpos := image1.left;

sypos := image1.top;

fypos := strtoint(Edit1.Text);

fxpos := strtoint(Edit1.Text); // где-то уже получили координаты, рассчитываем смещение
if abs(fxpos - sxpos) > abs(fypos - sypos)

  then begin

    dy := (fypos - sypos)/abs(fxpos - sxpos);

    dx := 1;

  end

  else begin

    dx := (fxpos - sxpos)/abs(fypos - sypos);

    dy := 1;

  end;

cy := sypos;

cx := sxpos;

timer1.enabled := true;

end;
procedure timer1.timer(sender : tobject);

begin

cy := cy + dy;

cx := cx + dx;

image1.left := round(cx);

image1.top := round(cy);

if ( image1.left = fxpos) and ( image1.top = fypos)

  then Timer2.Enabled := false;

end;