auf linen klicken

[flossinger]

Ja bitte gerne:

Ich habe eine line von x1,y1 nach x2,y2.
Dann clicke ich und habe den clickpunkt x3,y3. Den ergänze ich mit einem weitern Punkt, so dass ich eine zweite line habe, die senkrecht auf die erste steht.

Delphi-Quellcode:

  image1.canvas.moveto(x3,y3);
  x4:=x3+(y2-y1);
  y4:=y3-(x2-x1);
//  image1.canvas.lineto(x4,y4); // test

teste das mal, und du wirst sehen, dass die lines senkrecht zueinander stehen.

Als nächstes berechnest du den Schnittpunkt der beiden Geraden, und du kannst den Abstand daraus ableiten.

grüsse,
der flossinger