Bild "per Hand kopieren" - Wo liegt der Fehler??

[gordon freeman]

Hi Leute,
wir spielen in der SChule im Moment etwas mit Farbwerten, etc. rum und haben zum Kopieren eines Bildes folgenden Code benutzt (ImOriginal, ImKopie sind 2 Image-Komponenten und das Bild ist 400*300):

Delphi-Quellcode:

//(...)
for x := 1 to 400 do
  for y := 1 to 300 do
    ImKopie.Canvas.Pixels[x,y] := ImOriginal.Canvas.Pixels[x,y];

Jetzt wollte ich (da wir morgen eine Info-Klausur schreiben das Ganze nochmal sauber programmieren und 'nem Kollegen schicken. Da bekomm ich bei dem Befehl oben folgende Fehlermeldung:

Zitat von Delphi:

Das Bild kann nicht verändert werden, wenn es keine Bitmap enthält.

In der Schule hat der oben genannte Code aber genau so funktioniert....
Ich bin für alle Vorschläge offen, tia, gordon

[SirThornberry]

du hast vermutlich vorher nicht die größe des bitmaps gesetzt:

Delphi-Quellcode:

ImKopie.Picture.Bitmap.Width := ImOriginal.Picture.Bitmap.Width;
ImKopie.Picture.Bitmap.Height := ImOriginal.Picture.Bitmap.Height;

[gordon freeman]

Zitat von SirThornberry:

du hast vermutlich vorher nicht die größe des bitmaps gesetzt:

Hm... Muss ich gleich mal versuchen... Aber sowas musste ich in der Schule nicht machen, da hat der oben genannte Befehl so, wie ich ihn abgetippt habe funktioniert. Das verwundert mich.

[SirThornberry]

normaler weise ist es nicht notwendig (da hast du recht), der von dir beschriebene Fehler tritt unter anderem dann auf wenn in ImOriginal kein Bitmap ist sondern ein JPEG.

[gordon freeman]

Ich verwende die ganze Zeit ein JPEG

Danke für die Hilfe