Практическое работа

Создадим проект, который демонстрирует режимы показа элементов в списке ListView. Список наполняем программно пиктограммами и текстом.

На форме расположите компоненты ListView, ImageList (контейнер картинок, содержащий пиктограммы), ComboBox (содержит стили показа элементов) и CheckBox (для показа независимых переключателей рядом с элементами списка).

Опишем обработчик события OnCreate для формы:

procedure TForm1.FormCreate(Sender: TObject);

Var

k:integer;

l:TListItem;

Begin

with listview1 do

Begin

//Указываем источник изображений

smallImages:=ImageList1;

LargeImages:=Imagelist1;

// Наполняем ListView пиктограммами и текстом

for k:=0 to imageList1.Count-1 do

Begin

L:=Items.Add;//Добавляем элемент в ListView

L.imageindex:=k;//Указываем индекс изображения из ImageList

L.caption:='Рисунок'+inttostr(k);//Вставляем надпись с номером

Columns.Add;//Создаем колонку для режима vsReport

columns[0].Caption:='Колонка1' ;

columns[0].Width:=80;

end

//Наполняе список ComboBox доступными стилями ListView

Combobox1.Items.AddObject('vsIcon',TObject(vsIcon));

Combobox1.Items.AddObject('vsList',TObject(vsList));

Combobox1.Items.AddObject('vsReport',TObject(vsReport));

Combobox1.Items.AddObject('vsSmallIcon',TObject(vsSmallIcon));

end;

end;

Событие выбора пункта ComboBox:

procedure TForm1.ComboBox1Change(Sender: TObject);

Begin

with combobox1 do

ListView1.ViewStyle:=TViewStyle (Items.Objects[ItemIndex] );

end;

Установка переключателей рядом с элементами списка:

procedure TForm1.CheckBox1Click(Sender: TObject);

Begin

ListView1.Checkboxes:=checkbox1.Checked;

end;