Paintbox-Inhalt in Bilddatei speichern

[turboPASCAL]

Delphi-Quellcode:

procedure TForm1.Save...
var
  Bitmap: TBitmap;
begin
  Bitmap:=TBitmap.Create;
  Bitmap.PixelFormat := pf32bit;  // 16Mio Farben   siehe Hilfe: PixelFormat
  Bitmap.Width:=PaintBox1.Width;
  Bitmap.Height:=PaintBox1.Height;

  // zB. ein Rechteck zeichnen
  paintbox1.Canvas.Pen.Color := clred;
  paintbox1.Canvas.Rectangle(Bounds(0,0,paintbox1.Width, paintbox1.Height));

  // Bild aus PaintBox1 ins Bitmap
  Bitmap.Canvas.CopyRect(Bounds(0,0,bitmap.Width, Bitmap.Height),  
    PaintBox1.Canvas, PaintBox1.ClientRect);

  Bitmap.SaveToFile({Path +} 'Bild.bmp');
  Bitmap.Free;
end;

Solle so funktionieren an sonsten... (mal mit Paint Shop Pro öffnen )


MfG.