SavePictureDialog对话框默认后缀名

procedure TMainForm.As1Click(Sender: TObject);      //涂磊 添加20241113 JPEG格式导出
begin
 OpenDialogFile.InitialDir := GetCurrentDir;   //11]OpenDialogFile增加  *.dpr  过滤  
SavePictureDialog.Filter := GraphicFilter(TJPEGImage);
  SavePictureDialog.DefaultExt := GraphicExtension(TJPEGImage);
  SavePictureDialog.FileName := ChangeFileExt(SaveDialog.FileName, SavePictureDialog.DefaultExt);
  if SavePictureDialog.Execute then
    SimpleGraph.SaveAsJPEG(SavePictureDialog.FileName);
end;