diff --git a/components/tvplanit/examples/demo/demomain.lfm b/components/tvplanit/examples/demo/demomain.lfm
index 9134a3e82..0d07f4b3c 100644
--- a/components/tvplanit/examples/demo/demomain.lfm
+++ b/components/tvplanit/examples/demo/demomain.lfm
@@ -25,9 +25,9 @@ object MainForm: TMainForm
       Height = 532
       Top = 48
       Width = 780
-      ActivePage = TabEvents
+      ActivePage = TabTasks
       Align = alClient
-      TabIndex = 0
+      TabIndex = 1
       TabOrder = 0
       object TabEvents: TTabSheet
         Caption = 'Events'
@@ -146,6 +146,7 @@ object MainForm: TMainForm
               Max = 7
               Min = 1
               OnChange = DaysTrackBarChange
+              PageSize = 1
               Position = 1
               TabOrder = 0
             end
@@ -446,6 +447,7 @@ object MainForm: TMainForm
         Top = 8
         Width = 84
         Caption = 'TitleLbl'
+        Font.Color = clWhite
         Font.Height = -24
         Font.Style = [fsBold]
         ParentColor = False
diff --git a/components/tvplanit/examples/demo/demomain.pas b/components/tvplanit/examples/demo/demomain.pas
index 814f26536..3e8f53343 100644
--- a/components/tvplanit/examples/demo/demomain.pas
+++ b/components/tvplanit/examples/demo/demomain.pas
@@ -413,11 +413,21 @@ begin
 
     CbTimeFormat.ItemIndex := ini.ReadInteger('Settings', 'TimeFormat', ord(VpDayView1.TimeFormat));
     CbTimeFormatChange(nil);
+
     CbGranularity.ItemIndex := ini.ReadInteger('Settings', 'Granularity', ord(VpDayView1.Granularity));
     CbGranularityChange(nil);
+
     CbFirstDayOfWeek.ItemIndex := ini.ReadInteger('Settings', 'FirstDayOfWeek', ord(VpWeekView1.WeekStartsOn));
     CbFirstDayOfWeekChange(nil);
 
+    if ini.ReadBool('Settings', 'AllTasks', VpTaskList1.DisplayOptions.ShowAll) then
+      RbAllTasks.Checked := true else
+      RbHideCompletedTasks.Checked := true;
+    RbAllTasksChange(nil);
+
+    DaysTrackbar.Position := ini.ReadInteger('Settings', 'VisibleDays', DaysTrackbar.Position);
+    DaysTrackbarChange(nil);
+
   finally
     ini.Free;
   end;
@@ -442,6 +452,8 @@ begin
     ini.WriteInteger('Settings', 'TimeFormat', ord(VpDayView1.TimeFormat));
     ini.WriteInteger('Settings', 'Granularity', ord(VpDayView1.Granularity));
     ini.WriteInteger('Settings', 'FirstDayOfWeek', ord(VpWeekView1.WeekStartsOn));
+    ini.WriteInteger('Settings', 'VisibleDays', VpDayView1.NumDays);
+    ini.WriteBool('Settings', 'AllTasks', VpTaskList1.DisplayOptions.ShowAll);
   finally
     ini.Free;
   end;