Delphi-Quellcode:
for x:=1 to bild.width do
for y:=1 to bild.height do
Das sollte so aussehen:
Delphi-Quellcode:
for x := 0 to Bild.Width - 1 do
for y := 0 to Bild.Height - 1 do
Außerdem darfst du nicht vergessen, die Bitmaps wieder freizugeben.
Ansonsten schließe ich mich Ultimator voll und ganz an.
@bigg:
Gute Idee, alleinherrscher will aber die Unterschiede auch abspeichern
.