Delphi-Quellcode:
procedure TForm1.SavePictureDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
begin
PictureExt:= ExtractFileExt(SavePictureDialog1.Filename);
if PictureExt = '.bmp' then
begin
ImHintergrund.Picture.Bitmap.SaveToFile(SavePictureDialog1.Filename);
end
else if PictureExt <>'.bmp' then
begin
PictureExt:='.bmp';
SavePictureDialog1.Filename:=SavePictureDialog1.Filename+PictureExt;
ImHintergrund.Picture.Bitmap.SaveToFile(SavePictureDialog1.Filename);
end;
jetzt kommen nur noch fehlermeldungen XD
("erst" 6 Monate Info in der Schule
)