Forum: Multimedia
Delphi
by Klaus01,
30. Mai 2006
TPicture hat so weit ich das weiß, kein Eventhandler für onMousedown.
Grüße
Klaus
Forum: Multimedia
Delphi
by Klaus01,
30. Mai 2006
wenn das also halbautomatisch gehen soll und Du die Endpunkte anklicken kannst.
Dann sollte es doch gehen das Du dir die Klickpositionen merkst ( onMouseDown, TImage)
wenn Du den Anfang un das Ende der Linien anklickst.
Mit den Positionen und den Bildmaßen kannst Du dann eine Strecke ausrechnen.
Vollautomatisch sollte das wohl eine Ecke schwerer sein.
Grüße
Klaus
Forum: Multimedia
Delphi
by Klaus01,
30. Mai 2006
dann sind die Geraden parallel,
sagen wir mal Du malst die Linie mit procedure LineTo(X1, Y1: Integer);
und die andere mit procedure LineTo(X2, Y2: Integer);
dann ist der Abstand y2 -y1
Grüße
Klaus
Forum: Multimedia
Delphi
by Klaus01,
30. Mai 2006
Guten Morgen,
Steigung: y = m*x + n
m = dy/dx
= (y2-y1) / (x2-x1)
Die Steigung kannst Du ausrechnen, weil
Du ja die Entpunkte der schiefen Geraden hast.