LineTo "löschen" ...

[kezboard]

hi,

ich will auf ein Image mit Canvas eine Linie zeichnen mit der Maus zeichnen können. Das ist auch kein Problem nur ich will bei gedrückter Maus jetzt schon die Linie angezeigt bekommen und die entgültige Linie dann erst auf der Leinwand speichern. Im Moment sieht das noch sehr unglücklich aus (siehe Screenshot). Ich bruach eine eine Möglichkeit etwas sozu sagen rückgänig zu machen oder mit der alten Farbe zu überschreiben.

Vielen Dank im vorraus!

mfg

Joachim

[edit=Sharky]Anhang von BMP nach PNG konvertiert. Bitte nicht unnötig große Bilder anhängen. Die User mit einem Modem werden es Dir danke. Mfg, Sharky[/edit]

[faux]

HallO!

Vielleicht hilft dir System.Windows.Forms.ControlPaint.DrawReversibleLi ne weiter.

Grüße
Faux

[supermuckl]

hi.
mach es so, das du das originalbild im speicher hast und dieses auf die paintbox kopierst und mit der linie drüberzeichnest und das jeden "on mouse move" wärend dem klicken oder so.

[faux]

Zitat:

Zitat von supermuckl

hi.
mach es so, das du das originalbild im speicher hast und dieses auf die paintbox kopierst und mit der linie drüberzeichnest und das jeden "on mouse move" wärend dem klicken oder so.

IMHO ist es mit der DrawReversibleLine aber westentlich einfacher.

Grüße
Faux

[supermuckl]

jetzt denke aber mal weiter.. wenn er so eine art sprühdose machen will als nächstes, wie will er das dann realisieren?

[Neutral General]

Zitat:

Zitat von supermuckl

jetzt denke aber mal weiter.. wenn er so eine art sprühdose machen will als nächstes, wie will er das dann realisieren?

Delphi-Quellcode:

System.Windows.Forms.ControlPaint.DrawReversibleSprühdose

:mrgreen:

das musste ma sein sry xD

[faux]

Das ist aber in seinem Screenshot nicht zu erkennen.... :P

[supermuckl]

ok wir haben beide recht ;)

[Ultimator]

Aber auf sienem Screenshot ist zu erkennen, dass er Delphi7 nutzt, also sollte man auch entsrpechend antworten @faux ;)
Aber ich kann das gut nachvollziehen, ich hab auch überlegt, ob ich ne .NET-Lösung vorschlage :lol:

@kezboard: Nachdem du mit Delphi7 arbeitest, wähle bitte nicht Delphi.NET als Sprache aus, sondern Win32 ;)
Im Delphi7-Handbuchsatz wird das ganz einfach so gemacht, dass man sich den Punkt merkt, von dem die Linie ausgeht. Wenn man dann die Maus bewegt, wird die neue Linie gezeichnet und die alte gelöscht.

Wir brauchen folgende Variablen:
Drawing: Boolean;
Origin, MovePt: TPoint;

Im OnMouseDown der Form/PaintBox/wasauchimmer:

Delphi-Quellcode:

Drawing := true;
Canvas.MoveTo(X, Y);
Origin := Point(X, Y);
MovePt := Point(X, Y);

Im MouseUp:

Delphi-Quellcode:

Canvas.MoveTo(Origin.X, Origin.Y);
Canvas.LineTo(X, Y);
Drawing := false;

Im MouseMove:

Delphi-Quellcode:

if Drawing then
  begin
   Canvas.Pen.Mode := pmNotXor;
   Canvas.MoveTo(Origin.X, Origin.Y);
   Canvas.LineTo(MovePt.Y, MovePt.Y);
   Canvas.MoveTo(Origin.X, Origin.Y);
   Canvas.LineTo(X, Y);
  end;
 MovePt := Point(X, Y);
 Canvas.Pen.Mode := pmCopy;

[faux]

:oops:

Ja, ich schaue normalerweise eher auf die Form selbst und nicht auf das 16x16 Pixel große Icon links oben...
Aber ja, stimmt. Hätte man machen sollen. Aber eigentlich ist es doch die Arbeit des Posters, auszuwählen, welche Sprache er benutzt, und nicht die der Antwortsuchenden....

Grüße
Faux