Android实例-ImageList与Image的应用
摘要:
procedure TForm1.Button1Click(Sender: TObject);var oSizeF: TSizeF;beginoSizeF.cx:=10;//发现这个值小了会增加马赛克,D这是要做日本电影吗?oSizeF.cy:=10;Image1.Bitmap.Assign(Ima 阅读全文
posted @ 2017-07-06 12:45 疯狂delphi 阅读(525) 评论(0) 推荐(0) 编辑