| | | | | |

2024年11月14日

摘要： BMP转JPG uses Vcl.Imaging.jpeg//涂磊添加 20241113 procedure TSimpleGraph.SaveAsJPEG(const Filename: String); //涂磊 BMP 转 JPG 添加20241113 var Bitmap: TBitmap; 阅读全文

posted @ 2024-11-14 08:57 涂磊阅读(3) 评论(0) 推荐(0) 编辑

SavePictureDialog对话框默认后缀名

摘要： procedure TMainForm.As1Click(Sender: TObject); //涂磊添加20241113 JPEG格式导出 begin OpenDialogFile.InitialDir := GetCurrentDir; //11]OpenDialogFile增加 *.dpr 阅读全文

posted @ 2024-11-14 08:52 涂磊阅读(3) 评论(0) 推荐(0) 编辑