Paintbox mit SaveDialog speichern?

[uligerhardt]

Zitat von GroZ:

procedure TForm1.Speichern1Click(Sender: TObject);
var Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.Width := Paintbox1.Width;
Bitmap.Height := Paintbox1.Height;

Bitmap.Canvas.CopyRect(Bounds(0,0,bitmap.Width, Bitmap.Height),
PaintBox1.Canvas, PaintBox1.ClientRect);
Bitmap.SaveToFile('Pfad\Test.bmp');
end;

Das wäre jetzt mit der Bitmap bloß ohne den Dialog

Genau. Und das muss jetzt in das

Delphi-Quellcode:

if SaveDialog1.Execute then
begin
  // hier <<<<<<<<<<<<<<
end;

rein, weil es nur ausgeführt werden soll, wenn der Benutzer den Dialog mit OK beendet. Dann noch SaveDialog1.Filename verwenden und gut ist's.

(Vorausgesetzt, PaintBox.Canvas enthält immer noch, was es soll. Davon bin ich nach wie vor nicht überzeugt.)