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.)