Zielsuchende Objekte

[Dunkelbunt27]

"Dann feuer doch ein Event" xD fand ich grad geil ^^
naja also es ist so ich habe LEIDER zu hause nur Lazarus... Ich habe folgendermaßen versucht eine linie zu ziehen:
moveto zum schiff und lineto zur base, ich fand es klingt logisch, dann aber kam statt der line ein ständig komplett schwarz weiß flackernder bildschirm.
Vllt kannst du ja mal einen kurzen quellcode ausschnitt aufschreiben der das schiff schiffx und schiffy (koordinaten) mit Mittex und mittey durch eine linie verbindet.
wäre zur fehlerfindung sehr hilfreich =)
Dunkelbunt

Edit: gerade nochmal ausprobiert, wieder flackern:
Hier der Quelltext:

Delphi-Quellcode:

if laenge = 100 then
 begin
      image1.canvas.moveto(shape1.left, shape1.top);
      image1.canvas.lineto(shape1.left, shape1.top);
  end;