前几天问了这个问题,得到了答案: 如何在图片中添加相框并插入文字?
现在,当我将 TPanel(1x 形状、1x TImage、2x TLabel)中的内容保存为 JPG 文件时,
该 JPG 文件的大小从 20kb(即 TImage 中图片的大小)增加到 620kb。
尺寸几乎相同。原始 JPG 文件 320x320,新 JPG 图片 361x440。
那么,如何减小这个尺寸呢?
这是来自@iPath 的第一个问题的答案,这就是创建新 JPG 文件的方式:
procedure TForm1.SavePanelAsImage;
var
img: TBitmap;
begin
img := TBitmap.Create;
try
img.Width := fpPanel.Width;
img.Height := fpPanel.Height;
fpPanel.PaintTo(img.Canvas, 0, 0);
img.SaveToFile(fpFileName);
finally
img.Free;
end;
end;