TListGroups

// Главная форма
frm=new TForm();
frm.Caption="JS+ - компонент TListGroups";
frm.Width =525;
frm.Height=375;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Кликайте по элементам списка";

// Метка перед списком стилей
lbl=new TLabel(frm);
lbl.Left=10;
lbl.Caption="Стиль отображения списка элементов:";

// Стили отображения списка элементов
cmb=new TComboBox(frm);
cmb.Style=csDropDownList;
cmb.Left=lbl.Left+lbl.Width+10;
cmb.Top =10;
cmb.Width=frm.ClientWidth-lbl.Width-30;
cmb.Items.Add("vsIcon");
cmb.Items.Add("vsList");
cmb.Items.Add("vsReport");
cmb.ItemIndex=0;
cmb.OnSelect=cmb_Select;

lbl.Top=cmb.Top+(cmb.Height-lbl.Height)/2;

// Список элементов
lsv=new TListView(frm);
lsv.BorderStyle=bsSingle;
lsv.GroupView=true;
lsv.GridLines=true;
lsv.Left=lbl.Left;
lsv.Top =cmb.Top+cmb.Height+10;
lsv.Width =frm.ClientWidth-lbl.Left*2;
lsv.Height=stb.Top-lsv.Top-10;
lsv.OnSelectItem=lsv_SelectItem;

// Список изображений
iml=lsv.LargeImages=new TImageList(lsv);
iml.Width=iml.Height=32;

// Столбцы для стиля отображения vsReport
for (i=0;i<4;i++) {
  lsc=new TListColumn(lsv);
  switch (i) {
    case 0 : lsc.Caption="Элементы"; break;
    default: lsc.Caption="Субэлементы "+i;
  }
  lsc.Width=lsv.TextWidth(lsc.Caption)+20;
}

// Группы элементов
for (i=0;i<3;i++) {
  lsg=new TListGroup(lsv);
  lsg.GroupID=i;
  lsg.Header="Группа "+(i+1);
}

// Элементы списка
icn=new TIcon();
for (i=0;i<5;i++) {
  icn.LoadFromFile(JSPlus.HelpDir+"IMAGE\\TListView\\"+i+".ico");
  iml.AddIcon(icn);

  // Элемент списка
  lsi=new TListItem(lsv);
  lsi.Caption="Элемент "+(i+1);
  lsi.ImageIndex=i;

  // Группа элемента
  switch (i) {
    case 0 :
    case 1 : lsi.GroupID=0; break;
    case 2 : lsi.GroupID=1; break;
    default: lsi.GroupID=2;
  }

  // Субэлементы
  for (j=0;j<3;j++)
    lsi.SubItems.Add("Субэлемент "+(i+1)+"-"+(j+1));
}
icn.Delete();

cmb_Select(cmb);
frm.ShowModal();

// Обработчик события OnSelect
function cmb_Select(cmb)
{
  lsv.ViewStyle=eval(cmb.Items[cmb.ItemIndex]);
  lsv.SetFocus();
}

// Обработчик события OnSelectItem
function lsv_SelectItem(lsv,itm,sel)
{
  stb.SimpleText=" Выбран "+itm.Caption;
}