Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
14. Feb 2010
Danke, klappt jetzt wunderbar!
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
13. Feb 2010
MoveTo(200,200);
P:=(PointOnLine(200,200,Mouse.cursorpos.x,Mouse.cursorpos.y,150));
LineTo(P.x,P.y);
Wenn ich das ganze so mache, dann ist das Ergebnis aber keine Linie, die vom Punkt 200|200 in Richtung des Mauszeigers geht...
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
13. Feb 2010
Hm, und wie soll ich die dann aufrufen? Ich möchte ja keinen Prozentwert angeben, sondern einen absoluten Wert...
Und TPointF kann man ja nicht im LineTo einbauen.
Hier mal mein Lösungsansatz:
function TForm1.PointOnLine(X1,Y1,X2,Y2,Abstand:integer):TPoint;
var V:real; //Verhältnis zwischen AB und AD
AB,BD,AD,AE,CE,x,y:integer;
begin
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
12. Feb 2010
Hallo,
gibt es eine Funktion, die mir eine Koordinate zwischen zwei anderen ausgibt, die auf einer geraden Linie liegt?
Also ich gebe die Punkte 0|0 und 100|100 an und möchte eine (gerundete) Koordinate haben, die einen Abstand von 20 Pixeln von Punkt 1 hat.
Liebe Grüße!