procedure TForm1.Button1Click(Sender: TObject);
var
  oSizeF: TSizeF;
begin
oSizeF.cx:=10;//发现这个值小了会增加马赛克,D这是要做日本电影吗?
oSizeF.cy:=10;
Image1.Bitmap.Assign(ImageList1.Bitmap(oSizeF, StrToInt(Edit1.Text)));
end;

相关文章:

  • 2021-12-15
  • 2021-05-13
  • 2021-12-04
  • 2021-08-19
  • 2021-07-16
  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
猜你喜欢
  • 2022-12-23
  • 2022-12-23
  • 2021-04-09
  • 2021-08-02
  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
相关资源
相似解决方案