TDBPlannerMonthView - first view always without items

VCL TMS VCL UI Pack
1

This is fine with the following views. I did not find anything that would help: Update, Refresh, Table.Refresh...

  TfrmPlannerRole = class(TBMainForm)
    dbplDay: TDBPlanner;
    dbplWeek: TDBPlanner;
    dbpmwMonth: TDBPlannerMonthView;

procedure TfrmPlannerRole.offpgrPlannerChange(Sender: TObject);
begin
  DeActivateAllSource;

  case TPage(offpgrPlanner.ActivePageIndex) of
    TPage.Day: advcbxViews.OnChange(advcbxViews);
    TPage.Week:
    begin
      dbwksrWeek.Active := True;

      if dbwksrWeek.Month <> advcbxMonthWeek.ItemIndex + 1 then
        dbwksrWeek.Month := advcbxMonthWeek.ItemIndex + 1;

      if dbwksrWeek.Year <> advsedYearWeek.Value then
        dbwksrWeek.Year := advsedYearWeek.Value;

      dbplWeek.Update;
    end;
    TPage.Month:
    begin
      dbpmwMonth.Month := advcbxMonthViewMonth.ItemIndex + 1;
      dbpmwMonth.Update;
    end;
  end;
end;
2
  • I did not find any mention of PDF conversion
3

And your question? your problem? is exactly what?

4

Nevertheless, that these elements could be seen even at the first display :blush:
I see that it is not enough to define a problem in the topic name. I will arrange myself accordingly.

5

First view

2021 11 27 14 36 01
2021 11 27 14 36 011969×1071 41.3 KB

Second view
2021 11 27 14 36 13
2021 11 27 14 36 131970×1073 45.6 KB

I just switched Tab to TAdvOfficePager. That's why I entered the code here (above).

6

I have just given this pig solution - OnCreateForm. Of course I don't want him. I consider this problem to be a TDBPlannerMonthView error.
If I create a form with an active page with TDBPlannerMonthView, that's fine.

  if offpgrPlanner.ActivePageIndex < MonthView then
  begin
    Idx := offpgrPlanner.ActivePageIndex;
    offpgrPlanner.ActivePageIndex := MonthView;
    offpgrPlanner.OnChange(offpgrPlanner);
    offpgrPlanner.ActivePageIndex := Idx;
    offpgrPlanner.OnChange(offpgrPlanner);
  end;