[教学] 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;">;
si.MultiResBitmap. LoadItemFromStream(ms,scale);

W:=si.MultiResBitmap.Bitmaps[scale].Width; <span style="color: #008000;">//<span style="color: #008000;">Get width from scale
H:=si.MultiResBitmap.Bitmaps[scale].Height; <span style="color: #008000;">//<span style="color: #008000;">Get height from scale

<span style="color: #008000;">//<span style="color: #008000;"> Destination
d:=<span style="color: #000000;">imageList.Destination.Add;
Layer :=<span style="color: #000000;"> d.Layers.Add;
Layer.SourceRect.Rect := TRectF.<span style="color: #0000ff;">Create(<span style="color: #800080;">0,<span style="color: #800080;">0,W,H); <span style="color: #008000;">//<span style="color: #008000;"> Create rect W x H
Layer.Name :=<span style="color: #000000;"> si.name;

Item.ImageIndex :=<span style="color: #000000;"> i;

<span style="color: #0000ff;">end<span style="color: #000000;">;
<span style="color: #0000ff;">end;