Button1Click() rückgängig machen

[jaslaz]

Hallo zusammen,
In meinem Programm wird,wenn man auf einen Button klickt, eine Zufallslienie (über canvas) in eine Paintbox gezeichnet.
Nun möchte ich einen Rückgängig-Button machen!
Meine Frage ist nun wie ich die Button1Click() procedure rückgängig machen kann.
Danke schon mal im vorraus.

mfg Jaslaz

[Hitman]

... indem du das Bild ohne die Linie neuzeichnest. Da du sicherlich sowieso ein Bitmap als Buffer verwendest (wenn nicht, wirds Zeit!), kannst du natürlich davon auch vor jeder Aktion einfach eine Kopie machen, die du dann wieder zurückspielst (.Assign lässt grüßen).

[jaslaz]

Da du sicherlich sowieso ein Bitmap als Buffer verwendest

Wie funktioniert das genau?

[felix96]

Also, um was "geCanvates" wieder weg zumachen schreibst du einfach [name des Control].Canvas.Refresh;
Sprich bei einer Paintbox: Paintbox1.Canvas.Refresh;

[jaslaz]

Danke Felix96, aber ich meine das eigentlich so: Ich zeichne zum Beispiel eine Zufallslienie und dann noch eine!Wie kann ich nun nur die zweite wegmachen???

[theo]

Danke Felix96, aber ich meine das eigentlich so: Ich zeichne zum Beispiel eine Zufallslienie und dann noch eine!Wie kann ich nun nur die zweite wegmachen???

Das geht nicht ohne weiteres. Da brauchst du irgend ein Undo System.
Entweder du speicherst jede Stufe der Bearbeitung einzeln als Bmp (Speicherintensiv) oder zeichnest Anhand einer Liste von Koordinaten immer alles neu.
Dann entfernst du z.B. den letzen Listeneintrag und zeichnest wieder.

[jaslaz]

Wie kann ich den die Koordinaten abspeichern, wenn sie durch Zufall entstehen?
Hier mein Code:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var n,oft,dicke:integer ; breite,lange:real;
begin
 
randomize;
oft:=strtoint(edit1.text);
dicke:=strtoint(spinedit1.text);
for n:=1 to oft do
 begin
   with paintbox1.canvas  do
   begin
pen.color:=colorbox1.Selected;
pen.width:=dicke;
MoveTo(random(501),random(501));
LineTo(random(501),random(501));
 
  end;
 end;
end;

[carli]

Kannst du,
indem du ein array of record anlegst, das im Formular gespeichert wird.
Beim Button1Click wird dann eine neue Koordinate eingezeichnet und in der Paintbox.redraw aufgerufen wird.
Dann baust du noch bei der Paintbox ein onPaint-Ereignis ein, das die Liste von Linien zeichnet.

[jaslaz]

Kannst du,
indem du ein array of record anlegst, das im Formular gespeichert wird.
Beim Button1Click wird dann eine neue Koordinate eingezeichnet und in der Paintbox.redraw aufgerufen wird.
Dann baust du noch bei der Paintbox ein onPaint-Ereignis ein, das die Liste von Linien zeichnet.

Könntest du das nochmal etwas genauer erklären,ich bin nämlich noch Anfänger!

[theo]

Könntest du das nochmal etwas genauer erklären,ich bin nämlich noch Anfänger!

Was verstehst du denn nicht? Array of Record? PaintBox?
Du solltest präziser fragen, dann kann man auch antworten.
Sonst läuft's darauf raus, dass dir jemand eine fertige Lösung basteln muss, und das ist ja nicht der Sinn der Sache, oder?

[carli]

Sonst läuft's darauf raus, dass dir jemand eine fertige Lösung basteln muss, und das ist ja nicht der Sinn der Sache, oder?

Genau das wollte ich vermeiden
Jedoch gibt es immer wieder Dumme, die genau das tun und Google spürt sie auch noch aus allen Ecken und Enden der Welt auf. Dumm ist nur, wenn man Google nicht benutzen kann

[jaslaz]

Nein sorry so war das nicht gemeint,das soll ja auch mein eigenes Programm werden!

indem du ein array of record anlegst

Was genau heißt das?

Paintbox.redraw

Was macht diese Funktion?

[theo]

Was genau heißt das?

Ist nicht böse gemeint, aber wenn du mit diesen Begriffen gar nichts anfangen kannst, solltest du dir eine Einführung in Pascal oder Delphi in Buchform kaufen oder ausleihen. Das sind Ur-Datentypen in Pascal seit 1972.
Das Lazarus Forum kann keine Einführung in die Grundlagen der Programmierung geben.

Was macht diese Funktion?

Redraw = Neu zeichnen. Ist aber noch belanglos, wenn du die Grundlagen noch nicht kennst.

[jaslaz]

Wir lernen Lazarus immoment in der Schule und ich kann jetzt schon vielmehr als wir können müssen!´
Im Grunde genommen lernen wir da garnichts.
Und nun wollte ich mir so aus Spaß ein kleines Programm machen!
Aber was würdest du mir denn als Buch empfehlen(Ich hab auch schon von dem Lazarus-Buch gehört,aber das ist zu neu für Bücherein und ich finde es auch zu teuer um mal eben ein paar kleine Programme zu schreiben)

[theo]

Wir lernen Lazarus immoment in der Schule und ich kann jetzt schon vielmehr als wir können müssen!´

Habt ihr kein Unterrichtsbuch?

Aber was würdest du mir denn als Buch empfehlen(Ich hab auch schon von dem Lazarus-Buch gehört,aber das ist zu neu für Bücherein und ich finde es auch zu teuer um mal eben ein paar kleine Programme zu schreiben)

Für solche Sachen wie Array Records etc. reicht eigentlich jede Einführung in Pascal.
Geh mal in die Bibliothek (gibt's das noch? und schau halt was dir zusagt.