Schnittpunkt einer Canvas.LineTo mit Komponente TButton

[Scorpion]

Hi,

pack doch alle Projektdateien zu einer zip und füge diese Datei dann hier ein...

[mare_crisium]

Scorpion,

nee, meine WinZip-Version lässt mich nichts einpacken. Ich füge einfach alle Dateien als Anhang bei. Ist ja nicht soo viele MB.

mare_crisium

[Scorpion]

Boah, irgendwie blicke ich bei deinem Code überhaupt nicht durch... Wieso wird denn nur 1 Schnittpunkt gekennzeichnet, es gibt doch immer 2, das heisst auf 2 Kanten der Komponente. Und wie wird der Schnittpunkt überhaupt bestimmt, ich sehe nur eine lokale Variable, der kein Wert in der Procedure markSchnittPunkt zugewiesen wird...

[mare_crisium]

Scorpion,

tut mir leid, wenn ich das Ganze zu kompliziert gemacht habe. Mal sehen, ob ich das noch richten kann.

Also, das hier ist die Stelle, an der ich die Schnittpunktberechnung aufrufe und den Schnittpunkt in die paintBox einzeichne:

Code:

     if schnittPunktExists(lstrecke,lkante,lschnittPunkt)
     then begin
       lp:=pbxMain.screenToClient(vekt2ToPoint(lschnittPunkt));
(*
Der Schnittpunkt wird auf dem Bildschirm mit einem Quadrat markiert.
*)
       with pbxMain.canvas do begin
         brush.color:=clRed;
         fillRect(rect(lp.x-lmarkWidth-1,lp.y-lmarkWidth-1,lp.x+lmarkWidth-1,lp.y+lmarkWidth-1));
       end;
     end;

Die Koordinaten des Schnittpunktes werden in der an die lokale Variable lschnittPunkt (vom Typ Tvektor2) übergeben. Die Funktion "schnittPunktExists" wir so aufgerufen:

Code:

function TForm1.schnittPunktExists(     s1,s2      : Tstrecke;
                                    var schnittPkt : Tvektor2 ) : boolean;

D.h., weisst dem Resultat einen Wert vom Typ Boolean zu und dem variablen Parameter schnittPkt einen Wert vom Typ Tvektor2. Das hast Du vielleicht übersehen; ist auch eigentlich kein guter Programmierstil.

In der übernächsten Zeile rechne ich die Variable "lschnittPunkt" in eine lokale Variable "lp" vom Typ Tpoint um. Das muss sein, weil man die Zeichenfunktionen des Canvas ja nur mit ganzzahligen Koordinaten ansprechen darf.

So, und den Punkt zeichne ich als Rechteck auf die paintBox, nämlich mit fillRect. Das Rechteck, das gefüllt wird, hat den Punkt "lp" als Mittelpunkt. Deshalb taucht "lp.x" und "lp.y" mehrmals in der Klammer von "fillRect" bzw. von "rect" auf.

Wenn Du die "exe"-Datei zum Laufen kriegst, dann siehst Du auch zwei markierte Schnittpunkte. Das kommt daher, dass mit der Schleife

Code:

  ...
  for li:=0 to 3 do begin
  ...

alle vier Seiten des Controls eine nach der anderen auf Schnittpunkte geprüft werden. Und wenn einer gefunden wird, d.h. wenn

Code:

  schnittPunktExists = true

dann wird er auch gezeichnet.

Hoffentlich habe ich das jetzt besser erklärt und die Verwirrung nicht noch gesteigert!

mare_crisium

[Scorpion]

Ok, das habe ich soweit verstanden, aber ich habe immer noch ein Problem. Anbei findest du eine Skizze, da wird mit ein Schnittpunkt gezeichnet, das ist gut, aber ich habe einen Kreis darum gemacht, wo ich eigentlich auch noch einen erwartet hätte.

Warum fehlt dieser ?

[mare_crisium]

Scorpion,

prima, dass ich verständlich erklärt habe.

Also, an der Stelle, die Du markiert hast, ist tatsächlich ein Schnittpunkt eingezeichnet. Ich habe nur die Markierung (lokale Konstante "lmarkWidth") zu klein gemacht. Dieser Antwort füge ich eine neue Version der "exe"-Datei an, bei der die Markierung grösser ist, so dass man sie besser sieht.

Ausserdem, wenn die "exe"-Datei bei Dir läuft, dann verändere doch mal die Werte in den Groupboxen auf der linken Seite! Das kannst Du erreichen, indem Du entweder auf die hoch- und runter-Knöpfchen rechts neben den Zahlen drückst, oder indem Du Zahlenwerte direkt in die Zahlenfelder einschreibst (negative Zahlen akzeptiert das Programm nicht). Du wirst dann sehen, wie sich die Anfangs- und Endpunkte der Geraden verschieben und auch die Schnittpunkte rund um das Control herumwandern.

Sag' mal, ob das klappt.