procedure TfrmAT_DateBook.CreateListView(ADateBookType: integer);
var
  xColumn: TListColumn;
begin
  spSkinListView1.Visible:= false;
  spSkinListView1.Clear;
  spSkinListView1.Columns.BeginUpdate;
  spSkinListView1.Columns.Clear;

  try
    case ADateBookType of
      0 : begin
            {0}
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= at_pb_col01;
            xColumn.Width:= 250;
            {1}
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= at_pb_col02;
            xColumn.Width:= 80;
            {2}
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= at_pb_col03;
            xColumn.Width:= 80;
            {3}
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= at_pb_col04;
            xColumn.Width:= 100;
            {4}
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= at_pb_col05;
            xColumn.Width:= 70;
            {5}
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= at_pb_col06;
            xColumn.Width:= 120;
            {6}
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= at_pb_col07;
            xColumn.Width:= 50;
          end;
      1 : begin
            {0} //тема - текст
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= 'Тема';
            xColumn.Width:= 180;
            {1} //ячейка - текст
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= 'Ячейка';
            xColumn.Width:= 180;
            {2} //тип события - ваиранты
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= 'Тип события';
            xColumn.Width:= 120;
            {3} //событие весь день - булева
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= 'событие весь день';
            xColumn.Width:= 100;
            {4} // время начала - время
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= 'время начала';
            xColumn.Width:= 70;
            {5} // дата начала - дата
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= 'дата начала';
            xColumn.Width:= 70;
            {6} // время окончания - время
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= 'время окончания';
            xColumn.Width:= 70;
            {7} // дата окончания - дата
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= 'дата окончания';
            xColumn.Width:= 70;
            {8} // напоминать - время
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= 'напоминать';
            xColumn.Width:= 120;
            {9} //записи - текст
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= 'записи';
            xColumn.Width:= 50;
            {10} //повтор - булевая
            xColumn:= spSkinListView1.Columns.Add;
            xColumn.Caption:= 'повтор';
            xColumn.Width:= 50;
          end;
     end;
  finally
    spSkinListView1.Columns.EndUpdate;
    spSkinListView1.Visible:= true;
  end;          
end;