Entwickler-Ecke :: Thema anzeigen - Linie soll zur maus zeigen

Marc. - Sa 28.10.06 15:29

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 form1.Repaint;
 form1.Canvas.LineTo(Form1.Width div 2, Form1.Height div 2); // mittelpunkt der form
 Form1.Canvas.MoveTo(x,y);
end;

//edit: die linie kann natürlich länger bzw. kürzer als 5cm sein ;)

Marc. - So 29.10.06 15:44

Delphi-Quelltext

1:
2:
3:

 form1.Repaint;
 form1.Canvas.LineTo(Form1.Width div 2, Form1.Height div 2); // mittelpunkt der form
 Form1.Canvas.MoveTo(x,y);

1. löcht alle zuvor gezeichneten linien ("neuzeichnen")
2. setzt den startpunkt, der zu zeichnenden linie, fest - in dem fall Form-Mitte
3. zeichnet vom startpunkt aus eine linie zum punkt x,y ;)

Kroni - So 29.10.06 16:50

Hier hilft die Vektorrechnung
Du baust dir den Vektor vom Fixpunkt zum Punkt der Maus.
P(5;8) sei z.B. der Fixpunkt
Der Punkt der Maus sei M(x;y)
Dann ist der Vektor von P nach M: M-P also (x-5;y-8).
Dann normierst du den Vektor, in dem du durch seinen Betrag teilst.
Betrag eines Vektors ist d=sqrt(x^2+y^2)
Und dann hat der Vektor die Länge eins.
Dann noch mal die Länge des Vektors, wie lang er sein soll, dann haste den Vektor, der von P in RIchtung M zeigt mit der Länge , mit der du Multipliziert hast.

Kroni - So 29.10.06 16:59

Danny87 hat folgendes geschrieben:

@Kroni: Ich glaube nicht, dass er in seinem Alter was mit Vektorenrechnung anfangen kann ;-)

gut
a) ich habe nicht auf sein Alter geachtet
b) naja, er muss ja theoretisch nur die Rechnungen dort befolgen, aber gut, stimmt schon, könnte für ihn etwas kompliziert sein....aber habe angenommen, dass er jünger sei.

Gausi - Mo 30.10.06 15:45

Ich hab das von oben mal in Quelltext umgewandelt. Das Problem ist dabei die 5cm, da das ja vom Bildschirm und der Auflösung abhängt. Das wird man nicht so ohne weiteres "mal eben" hinbekommen. Eine konstant lange Linie in Richtung des Mauszeigers bekommt man so:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var xcenter, ycenter: Integer;
  DeltaX, DeltaY: Integer;
  Hypothenuse: Double;
  Streckfaktor: Double;
begin
 form1.Repaint;

 // Mitte der Form
 xCenter := Form1.Width div 2;
 yCenter := Form1.Height div 2;

 // Stift in die Mitte bewegen
 form1.Canvas.MoveTo(xCenter,yCenter); // mittelpunkt der form

 // Abstand in X/Y Richtung der Mitte zum Mauszeiger
 // In diese Richtung muss der Strich gehen!
 DeltaX := X - xCenter;
 DeltaY := Y - yCenter;

 // Satz des Pythagoras Anwenden, um die Länge der Strecke "Mittelpunkt-Maus" zu berechnen
 Hypothenuse := sqrt(DeltaX*DeltaX + DeltaY*DeltaY);

 // Wir möchten aber dem Strich eine bestimmte Länge geben.
 // Hier: Länge = 100 Pixel
 if Hypothenuse <> 0 then
   Streckfaktor := 100 / Hypothenuse
 else
  Streckfaktor := 0;

 // Linie Zeichnen
 Form1.Canvas.LineTo( Round(xCenter + Streckfaktor * DeltaX), Round(yCenter + StreckFaktor * DeltaY));
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!