Demo16 - DB Access. Skipping days and small improvements

VCL TMS VCL UI Pack
1

Issue
Immediately after launch. Skipping days.
procedure TForm1.DBPlanner1PlannerNext(Sender: TObject);
Next: Day - 03.03.2001
procedure TForm1.DBPlanner1PlannerPrev(Sender: TObject);
Previuos: Day - 28.2.2001

Suggestion
procedure TForm1.FormCreate(Sender: TObject);
begin
// DBDaySource1.Day := Now - 3;
DBDaySource1.Day := EncodeDate(2001, MonthMarch, 1);
DBDaySource2.Day := EncodeDate(2001, MonthMarch, 1);

// Demo26 MultiSource
Suggestion
procedure TForm1.FormCreate(Sender: TObject);
// DateTimePicker1.Date := Now;
DateTimePicker1.Date := EncodeDate(2011, 10, 11);

// Demo5 TDBPlanner TDBDaySource
Unreasonably double condition

procedure TForm1.Button1Click(Sender: TObject);
...
if not (DBPlanner1.Items.HasItem(sib, sie, sip) or DBPlanner1.Items.HasItem(sib, sie, sip)) then

2

It is a bit strange to show a calendar with days of 20 years ago.
We'd rather fill the dataset with current dates so a current time axis is displayed.

3

It's an example, so those old dates don't matter. It bothers skipping days.

4

We improved the demo.