Delphi. Трюки и эффекты

Листинг 4.38. Составление списков значков и их отображение

procedure TForm1.cmbLoadIconClick(Sender: TObject);

var

i: Integer;

item: TListItem;

begin

lvwIconsLg.Clear;

lvwIconsSm.Clear;

//Загрузка значков в ImageList

ImageListLg.Clear;

ImageListSm.Clear;

LoadIcons(txtFile.Text, ImageListLg, ImageListSm);

//Создание элементов в ListView с большими и малыми значками

for i := 0 to ImageListLg.Count – 1 do

begin

item := lvwIconsLg.Items.Add();

item.Caption := \'Icon\' + IntToStr(i+1);

item.ImageIndex := i;

item := lvwIconsSm.Items.Add();

item.Caption := \'Icon\' + IntToStr(i+1);

item.ImageIndex := i;

end;

end;