Entwickler-Ecke

Multimedia / Grafik - Mit Maus Koordinaten setzen und Linie zeichnen?


Ottchen - So 02.02.03 19:03
Titel: Mit Maus Koordinaten setzen und Linie zeichnen?
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


Raphael O. - So 02.02.03 19:07

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 - Mo 03.02.03 15:01

huhu..

ich hab mal nen mini Beispiel gemacht :)


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~