löschen eines images

[Kiaro]

Hi nochmal!

Ich hab das so jetzt mal probiert, sieht bei mir jetzt folgendermaßen aus:

Delphi-Quellcode:

procedure TForm1.Raster1Click(Sender: TObject);
var pic:TBitmap;
begin
 try
  pic:=TBitmap.Create;
  pic.PixelFormat:=form1.Image1.Picture.Bitmap.PixelFormat;
  pic.Width:=form1.Image1.Picture.Bitmap.Width;
  pic.Height:=form1.Image1.Picture.Bitmap.Height;
  pic.Canvas.CopyRect(bounds(0,0,pic.width,pic.height),form1.image1.picture.bitmap.canvas,bounds(0,0,pic.width,pic.height));
     if raster1.Checked = false then begin
     rasterz;
     raster1.Checked:=true;
     form1.label2.visible:=true;
    end
  else begin
   raster1.checked:=false;
   form1.Label2.Visible:=false;
   form1.Image1.canvas.brush.color:=clTeal;
   form1.Image1.canvas.rectangle(0,0,form1.Image1.width,form1.Image1.Height);
   form1.Image1.Picture.Bitmap:=pic;
  end;
 finally pic.Free; end;
end;

rasterz macht nichts weiter als ein paar Linien auf das canvas zeichen.
Wenn ich jetzt raster.checked machen will (is n Punkt im Mainmenu) dann sagt er mir aber ungültiges Pixelformat, wenn er das Speichern des Bildes tun sollte...

weiß grad echt nich mehr weiter

Vielen Dank im Voraus, Kiaro

[edit=Luckie]Sind in diesem Thread die Delphi-Tags kaput? Mfg, Luckie[/edit]