1. 程式人生 > >Android實例-ImageList與Image的應用

Android實例-ImageList與Image的應用

rto var bit .text ssi 電影 begin 日本 sign

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;

Android實例-ImageList與Image的應用