Planner Start Date?

VCL TMS VCL UI Pack
1
Hi,

I have gone through the developers' guide several times and can't find the answer to this.

I have a TDBPlannerCalendar on a form, along with a page control that has 3 tabs. The first 2 tabs have a TDBPlanner each to display day view and week view respectively.  The 3rd tab has a TDBPlannerMonthView.

How do I programmatically set the start date for each of the planners?  For example, I want to set the day view to today's date, and the week view to start from the first day of whatever week is selected.

For the month planner I'm doing it like this:

procedure TfrmMain.CalendarDaySelect(Sender: TObject; SelDate: TDateTime);
begin
    DayPlanner.Caption.Title := FormatDateTime(FFormatSettings.LongDateFormat, SelDate);
    MonthPlanner.Day := DayOf(SelDate);
    MonthPlanner.Month := MonthOf(SelDate);
    MonthPlanner.Year := YearOf(SelDate);
end;

Thanks.

= Steve
2

I assume your TDBPlanner instances are connected to a TDBxxxSource component.

As such, the viewed time axis on the TDBPlanner is controlled by the TDBxxxSource component settings.
For TDBPlannerMonthView, this is controlled by TDBPlannerMonthView.Month / TDBPlannerMonthView.Year
3
Hi Bruno,

Thanks for the quick reply.

Should I be using TDBDaySource for the day view and TDBWeekSource for the week view, or should I be using TDBPeriodSource?

Thanks.

= Steve

4

If you want a hour/minute based time-axis during a day, the TDBDaySource should be used.

Not sure what exact time-axis view you expect for the other modes.
5
This is what I'm trying to do:

770×1306 221 KB


6

The first two look like a multiday/multiresource variations both to be handled with a TDBDaySource.

7
Ok, thanks Bruno. I'll give that a try.

= Steve