Wenn ich den Beitrag richtig verstanden habe, habe ich vermutlich den fehler gefunden und evtl. eine lösung für dich(ich habes nicht gestet).
Meiner meinung nach berechnes du den H wert falsch.
Delphi-Quellcode:
if Dest.X > Start.X then
List.H := (Dest.X - i) * 10
else
List.H := (i - Dest.X) * 10;
Laut tutorial musst du nicht einfach die Horizontale länge bereichnen sondern auch die vertikal damit meine ich folgendes für die Richtung Rechts:
Delphi-Quellcode:
if Dest.X > Start.x then begin
Liste.H:=(Dest.X - i)+Dest.Y-j * 10
end;
das müste eigentlich so gehen.
damit meine ich folgendes:
du berechnes vom Start zum Ziel Punkt und berechnes den abstand. Angenommen das Ziel ist unten Rechts und der Start Oben Linx. Dazwischen währen jetzt hindernisse. Jetzt musst du die Horizontale richtung berechnen und anschließnd die Vertiklae richtung und anschließnd zusammen addieren.
So habe ich es verstanden.
Bin mir aber nicht sicher aber das richtig ist.