TDBTimeLineSource - display items

[Stanislav_Hruska (Stanislav Hruška)]

Can you explain the following to me?
dbplDay.ItemSource.Active = False
DataSet.Active = False

procedure TfrmPlannerRole.advcbxViewsChange(Sender: TObject);
begin
    dbplDay.ItemSource := dbtmlnsrTimeLine;
    FRolePlanner.SetPlannerProperies;
  finally
    TDBItemSource(dbplDay.ItemSource).DataSource.DataSet.Active := True;
    dbplDay.ItemSource.Active := True;

//  Without it, the display is bad
    if TViews(advcbxViews.ItemIndex) in [vwPeriod, vwHalfDayPeriod, vwTimeLine, vwActiveDayPeriod] then
      glwbtnDateTimeLine.OnClick(glwbtnDateTimeLine);
  end;
end;

procedure TfrmPlannerRole.glwbtnDatePeriodClick(Sender: TObject);
begin
//  Dates are the same
      dbtmlnsrTimeLine.StartDate := ADatePickerFrom.Date;
      dbtmlnsrTimeLine.EndDate := ADatePickerTo.Date;

  dbplDay.ItemSource.Active := False;
  dbplDay.ItemSource.Active := True;  // FI:W508
end;