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:

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.... :gruebel: :wall:
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:

Zitat von SirThornberry

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

Hm... :gruebel: 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]

:wall: :wall: :wall: :wall: :wall:

Ich verwende die ganze Zeit ein JPEG :oops:

Danke für die Hilfe :thumb: :cheers: