Hallo,
habe mal wieder ein Problem.
Ich zeichne auf ein TImage (Image1) mit Canvas etwas (spielt ja keine Rolle was).
Dann will ich auf Knopfdruck, dass alles gelöscht wird. Also dass Image1 wieder weiß ist.
Als mein Projekt noch klein und unkompliziert war, ging das auch problemlos so:
Delphi-Quelltext
1: 2: 3: 4:
| procedure Button2Click(Sender: TObject) begin Image1.Repaint; end; |
Aber irgendwann funktionierte das dann nicht mehr.
Ich habe jetzt alles mögliche ausprobiert, z.B. Refresh, Invalidate etc. Habe sogar probiert Image1 zuerst zu löschen und dann wieder neu zu erstellen (mit Free und Create), aber das funktionierte auch nicht richtig, da er danach nicht mehr darauf zeichnen wollte.
Ich verzweifle da echt dran, weil eine Stunde googlen und hier im Forum suchen auch keine Lösung brachte. Zumal ich den Fehler überhaupt nicht nachvollziehen kann, es hatte ja immer funktioniert.
Wenn ihr den Quelltext für die Lösung bzw. Nachvollziehbarkeit des Fehlers braucht, sagt das, dann stell ihn ihn rein.
Danke schonmal,
Nitr0
Moderiert von
Narses: Code- durch Delphi-Tags ersetzt