Как сохранить содержимое Canvas как jpeg файл.
OnНиже приводиться код который выполняет данное действие.//Для начала нужно прописать JPEG в USESprocedure TForm1.BitBtn2Click(Sender: TObject);//к примеруvarFJ:TJpegImage;//JPEG изображениеPattern:TBitmap;//BMP изображениеRegionD: TRect;//destination region – регион исходник для копированияRegionS: TRect;//source region – регион назначениеi:integer;begin FJ:=TJpegImage.Create;//создать изображение JPEG FJ.CompressionQuality:=100;//качество 100 — максимальное Pattern:=TBitmap.Create;//BMP создать Pattern.Width:=Image1.Width;//размеры задать -ширина…
