Moin,
ich bin grad am Durcharbeiten eines Tutorials, in dem ich ein "miniPaint" erstellen soll.
Soweit so gut.
Im Buch wird auch dieser Code verwendet, um eine Linie entlang der Mausposition zu zeichen:
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Canvas.LineTo(y,x);
end;
Allerdings ist mir folgendes Aufgefallen:
Wenn ich die Maus nach
- links bewege, wird die Linie nach oben gezeichnet
- rechts bewege, wird die Linie nach unten gezeichnet
- unten bewege, wird die Linie nach rechts gezeichnet
- oben bewege, wird die Linie nach links gezeichnet
Das war bestimmt nicht so gedacht. Meine erste Idee bestand darin, dass MouseX,Y und Canvas.PenPos.X,Y unterschiedliche Ursprünge haben. Ist das so, wenn nicht, wie ist es dann?
Falls es so ist, wie kann ich's dann lösen?