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;
时间: 2024-11-06 03:54:54
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;