Движение фигуры По диагонали

[Weyner]

Здравствуйте всем, Вот у меня такая проблемка, у чет не получаеться привести фигуру в движение по диагонали: вот код по которому надо сделать движение:
procedure TFigure.Move;
var Temp:integer;
begin
hide;
temp:=x+x1;
if (temp<0) or (temp>maxsize-size) then
x1:=-x1;
x:=x+x1;

temp:=y-y1;
if (temp<0) or (temp>size-maxsize) then
y1:=-y1;
y:=y+y1;

show;
end;

помогите исправить чтобы фигура двигалась по диагонали координаты должны задаваться не цыфрами а как показано на коде!!!!!!! надо это в Delphi!

[evg_m]

для горизонтального движения

if temp<0 then //ушли за левую границу
 temp:=temp+ maxsise; // появимся справа
 temp:=0 + (0-temp); // отразимся 
if temp>maxsise then //ушли вправо
 temp:=temp- maxsise;//появимся слева
 temp:=maxsize + (maxsize-temp); //отразимся

нужный вариант выбери сам и вертикальное также самостоятельно.

[Stilet]

координаты должны задаваться не цыфрами

А чем? Грибами?

чет не получаеться привести фигуру в движение по диагонали

А что из себя представляет диагональ? Имеется ввиду какую траекторию в твоем задании ты назвал словом "Диагональ"

[Weyner]

движение происходит по image по её диагонали , нихера не работает !

[Stilet]

нихера не работает !

Конечно не работает. Компьютеры матюков не выносят. А ты не знал?
Поставь свой код в таймер.
И вообще разве можно что понять по тому что ты написал? Это так. Получение координат не более. Совершенно не отражает механизма отрисовки изображения.

[Weyner]

Вот правильно как делать надо!!!
temp:=x+x1;
if (temp-size div 2<0) or (temp+size div 2 >maxsize) then


x1:=-x1;
x:=x+x1;

temp:=y+y1;
if (temp-size div 2<0) or (temp+size div 2 >maxsize) then


y1:=-y1;
y:=y+y1;

[mihali4]

Тему-то я закрою...
Только на будущее -
У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор