Zitat von
mimi:
Meiner meinung nach berechnes du den H wert falsch.
Ja, da suche ich auch gerade den Fehler. Ich habe es jetzt so:
Delphi-Quellcode:
if Dest.X > Start.x then
begin
dx := Dest.X - i;
end
else if Dest.X < Start.X then
begin
dx := i - Dest.X;
end
else
dx := Dest.X;
if Dest.y > Start.y then
begin
dy := Dest.y - j;
end
else if Dest.Y < Start.Y then
begin
dy := j - Dest.y;
end
else
dy := Dest.Y;
Aber er bleibt trotzdem wieder stecken.
