1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| ImageList.Clear;
for k:=0 to pred(FileListBoxImage.Count) do
begin
ImgJpeg:= TJpegImage.Create;
try
ImgJpeg.LoadFromFile(FileListBoxImage.Directory+'\'+FileListBoxImage.Items[k]);
ABitmap:=TBitmap.Create;
ABitmap.Assign(ImgJpeg);
ImageList.AddMasked(ABitmap, clFuchsia);
ABitmap.Free;
finally
ImgJpeg.Free;
end;
end;
ListView.Clear;
ListView.LargeImages:= ImageList;
for k:=0 to ListView.LargeImages.Count - 1 do
begin
ListItem :=ListView.Items.Add;
Listitem.Caption := 'Image'+IntToStr(k) ;
ListItem.ImageIndex := k ;
end; |
Partager