The timeline remains plotted according to the previous state.
The planner does not respond to a period change.
You can verify this with the example I sent last.
The example sent is bad!
I use a code:
procedure TfrmPlannerRole.advcbxViewsChange(Sender: TObject);
begin
if Assigned(dbplDay.ItemSource) then
begin
dbplDay.ItemSource.Active := False;
TDBItemSource(dbplDay.ItemSource).DataSource.DataSet.Active := False;
end;
try
case TViews(advcbxViews.ItemIndex) of
vwMultiDay: dbplDay.ItemSource := dbdysrMultiDay;
vwPeriod: dbplDay.ItemSource := dbprsrPeriod;
vwHalfDayPeriod: dbplDay.ItemSource := dbhldyprsrHalfDayPeriod;
vwMonth: dbplDay.ItemSource := dbmnsrMonth;
vwMultiMonth: dbplDay.ItemSource := dbmlmnsrMultiMonth;
vwTimeLine: dbplDay.ItemSource := dbtmlnsrTimeLine;
vwActiveDay: dbplDay.ItemSource := dbacdysrActiveDay;
vwActiveDayPeriod: dbplDay.ItemSource := dbacdyprsrActiveDayPeriod;
end;
finally
TDBItemSource(dbplDay.ItemSource).DataSource.DataSet.Active := True;
dbplDay.ItemSource.Active := True;
end;
end;