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;

最新文章

  1. vs打开项目出现“尚未配置为Web项目XXXX指定的本地IIS URL HTTP://localhost:…… .要打开此项目,需要配置虚拟目录……”提示
  2. MSSQL订阅库索引对齐
  3. 红字差评系列3.abcd
  4. 程序设计入门—Java语言 第六周编程题 1 单词长度(4分)
  5. 20145235 学号 《Java程序设计》第2周学习总结
  6. Android修改system只读权限
  7. xcode6.4 7.2下载地址
  8. 从Python传递JSON到JavaScript
  9. params数据来源和参数传递的一点小理解
  10. python第一步
  11. C/C++基础笔试题1.1.2(十问解决方案运营商)
  12. aws部署从无到有
  13. MAC上配置asp.net core开发环境
  14. 快速搭建一个vue开发环境
  15. Linux驱动之LCD驱动编写
  16. Java岗 面试考点精讲(基础篇01期)
  17. 【iCore4 双核心板_uC/OS-II】例程十:信号量集
  18. git 常用命令收集
  19. java基础-day22
  20. apache2.4.33伪静态配置入门教程(1)

热门文章

  1. 读源码 | metisMenu侧边栏插件
  2. 生成CFree 5.0 注册码
  3. 微信小程序-自定义底部导航
  4. Java API 各个包的内容解释
  5. JavaScript的技巧和最佳实践
  6. Linux查看GPU信息和使用情况
  7. jquery ajax例子
  8. 获取网站资源 getResourceAsStream
  9. poj-----Ultra-QuickSort(离散化+树状数组)
  10. PAT 1085 Perfect Sequence