小编Can*_*pus的帖子

这就是我需要的:为Facebook页面更快地制作有趣海报的程序.海报有文字,图片和框架(白线和黑色背景).在这种情况下,我想在海报上插入徽标(png图像).

根据图片尺寸,框架的尺寸(在这种情况下,由两种形状组成)必须自动调整图片大小.

如何从链接(2个形状组件,2个图像组件,2个标签)中保存该图像的海报作为图片？

怎么做到这一点？使用什么,从哪里开始？

我希望这个问题不会被删除.

几天前我问了这个问题并得到了答案: 如何添加相框并在图像中插入文字？

现在,当我将来自TPanel(1x形状,1x TImage,2x TLabel)的内容保存为JPG文件时,
该JPG文件的大小从20kb增加到图像大小为TIk,达到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;