Problem beim Speichern einer mit Canvas gezeichneten Grafik

[Jens Schumann]

Hallo,
hier ein kleines Beispiel. Damit kannst Du den Inhalt der canvas als Bitmap speichern

Delphi-Quellcode:

var
  Bitmap : TBitmap;
begin
  Bitmap:=TBitmap.Create;
  Try
    Bitmap.Width:=PaintBox.ClientWidth;
    Bitmap.Height:=PaintBox.ClientHeight;
    BitBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,
           PaintBox.Canvas.Handle,0,0,SRCCOPY);
    Bitmap.SaveToFile('c:\canvas.bmp');
  Finally
    Bitmap.Free;
    end;