Mit Maus Koordinaten setzen und Linie zeichnen?

Ottchen · Beiträge: 43

Wenn die linke Maustaste gedrückt wird, soll auf dem Canvas (Image) mit Pixels ein Punkt und mit TextOut die Koordinaten gesetzt/geschrieben werden. Beim Setzen von z.B. zwei Punkten soll dann mit LineTo eine Linie gezeichnet werden.
Wie realisiert man so etwas?
Auf welches Ereignis reagiert man da?
Beim Koordinatensetzten auf Mousedown beim FormCreate-Ereignis?
Und beim Zeichnen? Wie ermittelt man die Koordinaten, wenn man mit der Maus über die Zeichenfläche rollt?

Für Ideen wäre ich sehr dankbar!
:wink:

Ottchen

_________________
See you.

Raphael O. · Beiträge: 1596 VS 2013

das onmousedown des images...
da werden die koordinaten gleich mit übermittelt...

das mit der linie machste so:
beim ersten onmousedown musst du ne boolean variable:=true setzen und dir dei koordinaten merken...
bem nächsten onmousedown überprüfst du die variable und machst mit leineto(neuekoords) die linie...

Fiji-Fighter

Aya · Verfasst: Mo 03.02.03 15:01

huhu..

ich hab mal nen mini Beispiel gemacht

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  DrawLine: Boolean = false;

procedure TForm1. ImageOnMouseDown(...);
begin
  if DrawLine then
    Image.Canvas.MoveTo(X,Y)
  else
    Image.Canvas.LineTo(X,Y);
  DrawLine:=not DrawLine;
end;

ungetestet..

Au'revoir,
Aya~

_________________
Aya
I aim for my endless dreams and I know they will come true!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme