[教学] Firemonkey TImageList 加入原寸图片
下面示范 Firemonkey TImageList 加入一张原始尺寸图片的方法: 使用代码加图 Assigned(List)
I := List.Count-
Item:==<span style="color: #008000;">//<span style="color: #008000;"> Load image
src:=<span style="color: #800000;">'<span style="color: #800000;">http://www.w3schools.com/html/pic_mountain.jpg<span style="color: #800000;">'<span style="color: #000000;">; ms:=<span style="color: #000000;"> LoadWebImage(src); <span style="color: #008000;">//<span style="color: #008000;"> Source si:=<span style="color: #000000;">ImageList.Source.Add; si.Name:= <span style="color: #800000;">'<span style="color: #800000;">Source<span style="color: #800000;">'+<span style="color: #000000;">inttostr(i); scale:=<span style="color: #800080;">1<span style="color: #000000;">; W:=si.MultiResBitmap.Bitmaps[scale].Width; <span style="color: #008000;">//<span style="color: #008000;">Get width from scale <span style="color: #008000;">//<span style="color: #008000;"> Destination Item.ImageIndex :=<span style="color: #000000;"> i; <span style="color: #0000ff;">end<span style="color: #000000;">;
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |