procedure TfrmAT_DateBook.FillListDateBookEvents(ALV: TspSkinListView; AEvents: array of TDateBookEvent);
var
  xItem: TListItem;
  i: integer;
  tmp, sdd,smm,syy: string;
begin
  ALV.Clear;
  for i:=0 to High(AEvents) do
    begin
      if AEvents[i].index <> MaxInt then
      begin
        xItem:= ALV.Items.Add;
        xItem.ImageIndex:= -1;
        xItem.Data:= Pointer(AEvents[i].Index);
        xItem.Caption:= AEvents[i].Title;

        case iDateBookType of
          0 : begin
                xItem.SubItems.Add(AEvents[i].StartTime);
                xItem.SubItems.Add(AEvents[i].al_time);
                sdd:= ''; smm:= ''; syy:= '';
                tmp:= AEvents[i].StartDate;
                smm:= ExtractStr(tmp, '-');
                sdd:= ExtractStr(tmp, '-');
                syy:= ExtractStr(tmp, '-');
                xItem.SubItems.Add(Format('%s.%s.%s',[sdd,smm,syy]));
                xItem.SubItems.Add(AEvents[i].Duration);
                case AEvents[i].repeat_ev of
                  '0' : tmp:= DateBookRepeat_1;
                  '1' : tmp:= DateBookRepeat_2;
                  '2' : tmp:= DateBookRepeat_3;
                  '3' : tmp:= DateBookRepeat_4;
                  '4' : tmp:= DateBookRepeat_5;
                  '5' : tmp:= DateBookRepeat_6;
                end;
                xItem.SubItems.Add(tmp);
                case AEvents[i].IsAlarm of
                  '0' : tmp:= DateBookEventStateOff;
                  '1' : tmp:= DateBookEventStateOn;
                end;
                xItem.SubItems.Add(tmp);
              end;
          1 : begin
                //Ячейка
                xItem.SubItems.Add(AEvents[i].Cell);
                //тип события - ваиранты
                case AEvents[i].EventType of
                  0 : tmp:= DateBookEventType_00;
                  1 : tmp:= DateBookEventType_01;
                  2 : tmp:= DateBookEventType_02;
                  3 : tmp:= DateBookEventType_03;
                  4 : tmp:= DateBookEventType_04;
                  5 : tmp:= DateBookEventType_05;
                  6 : tmp:= DateBookEventType_06;
                  7 : tmp:= DateBookEventType_07;
                  8 : tmp:= DateBookEventType_08;
                  9 : tmp:= DateBookEventType_09;
                  10 : tmp:= DateBookEventType_10;
                  11 : tmp:= DateBookEventType_11;
                  12 : tmp:= DateBookEventType_12;
                  13 : tmp:= DateBookEventType_13;
                  14 : tmp:= DateBookEventType_14;
                  15 : tmp:= DateBookEventType_15;
                end;
                xItem.SubItems.Add(tmp);
                //событие весь день - булева
                case AEvents[i].Timed of
                  '0' : tmp:= DateBookEventStateOn;  // StartTime и EndTime - время 00:00
                  '1' : tmp:= DateBookEventStateOff; // StartTime и EndTime - время нормальоне
                end;                    
                xItem.SubItems.Add(tmp);
                // время начала - время
                xItem.SubItems.Add(AEvents[i].StartTime);
                // дата начала - дата
                xItem.SubItems.Add(AEvents[i].StartDate);
                // время окончания - время
                xItem.SubItems.Add(AEvents[i].EndTime);
                // дата окончания - дата
                xItem.SubItems.Add(AEvents[i].EndDate);
                // напоминать за - время
                xItem.SubItems.Add(AEvents[i].al_time);
                //записи - текст
                xItem.SubItems.Add(AEvents[i].Records);
                //повтор - булевая
                ////xItem.SubItems.Add(AEvents[i].Remind);
                case AEvents[i].repeat_ev of
                  '0' : tmp:= DateBookRepeat_1;
                  '1' : tmp:= DateBookRepeat_2;
                  '2' : tmp:= DateBookRepeat_3;
                  '3' : tmp:= DateBookRepeat_4;
                  '4' : tmp:= DateBookRepeat_5;
                  '5' : tmp:= DateBookRepeat_6;
                  '6' : tmp:= DateBookRepeat_6;
                end;
                xItem.SubItems.Add(tmp);                
              end;
        end;
      end;
    end;
end;