2024年11月14日

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

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