Danke.
Ich habe es ausprobiert.
Die datei wird gespeichert.
Trotzdem gibt es noch zwei Probleme:
1.
Die endung wird nicht automatisch hinzugefügt.
Es müsste also so aussehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap : TBitmap;
begin
if SaveDialog1.Execute then
begin
Bitmap:=TBitmap.Create;
Try
Bitmap.Width:=PaintBox1.ClientWidth;
Bitmap.Height:=PaintBox1.ClientHeight;
BitBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,
PaintBox1.Canvas.Handle,0,0,SRCCOPY);
Bitmap.SaveToFile(SaveDialog1.FileName + '.bmp');
Finally
Bitmap.Free;
end;
end;
end;
Tut es der Filter auch allein?
2.
Da das Bild auf den Hintergrund gezeichnet wird, wird, wenn ich minimiere, der Hintergrund wieder Grau.
Das Passiert auch, wenn man ein Fenster darüber zieht.
Also auch beim SaveDialog.
Kann man das irgendwie beheben?