diff --git a/components/tvplanit/examples/demo/demomain.lfm b/components/tvplanit/examples/demo/demomain.lfm
index 897001200..adeabfc74 100644
--- a/components/tvplanit/examples/demo/demomain.lfm
+++ b/components/tvplanit/examples/demo/demomain.lfm
@@ -135,6 +135,7 @@ object MainForm: TMainForm
           DataStore = VpBufDSDataStore1
           ControlLink = VpControlLink1
           Color = clWindow
+          ParentShowHint = False
           Align = alClient
           ReadOnly = False
           TabStop = True
@@ -148,7 +149,7 @@ object MainForm: TMainForm
           TimeSlotColors.Inactive = 8454143
           TimeSlotColors.Holiday = 16744703
           TimeSlotColors.Weekday = clWhite
-          TimeSlotColors.Weekend = 16777088
+          TimeSlotColors.Weekend = 14737632
           TimeSlotColors.ActiveRange.RangeBegin = h_00
           TimeSlotColors.ActiveRange.RangeEnd = h_00
           HeadAttributes.Font.Height = -13
@@ -317,7 +318,7 @@ object MainForm: TMainForm
     Height = 652
     Top = 34
     Width = 120
-    ActiveFolder = 3
+    ActiveFolder = 0
     AllowRearrange = True
     BackgroundColor = clInactiveCaption
     BackgroundMethod = bmNormal
diff --git a/components/tvplanit/examples/demo/demomain.pas b/components/tvplanit/examples/demo/demomain.pas
index a1513ba8b..8827df108 100644
--- a/components/tvplanit/examples/demo/demomain.pas
+++ b/components/tvplanit/examples/demo/demomain.pas
@@ -327,6 +327,9 @@ begin
     SetDefaultLang(FLang, langdir);
     TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.' + FLang + '.po');
   end;
+  VpDayView1.LoadLanguage;
+  VpWeekView1.LoadLanguage;
+  VpMonthView1.LoadLanguage;
 
   // Select language in language combobox.
   if ALang = '' then ALang := 'en';
diff --git a/components/tvplanit/languages/vpsr.de.po b/components/tvplanit/languages/vpsr.de.po
index 5a69e96db..5eb0add64 100644
--- a/components/tvplanit/languages/vpsr.de.po
+++ b/components/tvplanit/languages/vpsr.de.po
@@ -509,14 +509,22 @@ msgstr "Von Ihrem Zeitplan?"
 msgid "from your task list?"
 msgstr "Von Ihrer Aufgabenliste?"
 
+#: vpsr.rshintnextday
+msgid "Next day"
+msgstr "Nächster Tag"
+
 #: vpsr.rshintnextweek
 msgctxt "vpsr.rshintnextweek"
-msgid "Next Week"
+msgid "Next week"
 msgstr "Nächste Woche"
 
+#: vpsr.rshintprevday
+msgid "Previous day"
+msgstr "Voriger Tag"
+
 #: vpsr.rshintprevweek
 msgctxt "vpsr.rshintprevweek"
-msgid "Previous Week"
+msgid "Previous week"
 msgstr "Vorige Woche"
 
 #: vpsr.rshinttoday
diff --git a/components/tvplanit/languages/vpsr.po b/components/tvplanit/languages/vpsr.po
index a69a6e5fa..8320c97e5 100644
--- a/components/tvplanit/languages/vpsr.po
+++ b/components/tvplanit/languages/vpsr.po
@@ -499,14 +499,22 @@ msgstr ""
 msgid "from your task list?"
 msgstr ""
 
+#: vpsr.rshintnextday
+msgid "Next day"
+msgstr ""
+
 #: vpsr.rshintnextweek
 msgctxt "vpsr.rshintnextweek"
-msgid "Next Week"
+msgid "Next week"
+msgstr ""
+
+#: vpsr.rshintprevday
+msgid "Previous day"
 msgstr ""
 
 #: vpsr.rshintprevweek
 msgctxt "vpsr.rshintprevweek"
-msgid "Previous Week"
+msgid "Previous week"
 msgstr ""
 
 #: vpsr.rshinttoday
diff --git a/components/tvplanit/source/vpdayview.pas b/components/tvplanit/source/vpdayview.pas
index d88b6e17a..47c5f0eac 100644
--- a/components/tvplanit/source/vpdayview.pas
+++ b/components/tvplanit/source/vpdayview.pas
@@ -66,7 +66,7 @@ interface
 
 uses
   {$IFDEF LCL}
-  LMessages,LCLProc,LCLType,LCLIntf,
+  LMessages, LCLProc, LCLType, LCLIntf,
   {$ELSE}
   Windows,
   {$ENDIF}
@@ -859,11 +859,11 @@ end;
 
 procedure TVpDayView.LoadLanguage;
 begin
-  dvDayUpBtn.Hint                := rsHintTomorrow;
-  dvDayDownBtn.Hint              := rsHintYesterday;
-  dvTodayBtn.Hint                := rsHintToday;
-  dvWeekUpBtn.Hint               := rsHintNextWeek;
-  dvWeekDownBtn.Hint             := rsHintPrevWeek;
+  dvDayUpBtn.Hint                := RSHintNextDay; //rsHintTomorrow;
+  dvDayDownBtn.Hint              := RSHintPrevDay; //rsHintYesterday;
+  dvTodayBtn.Hint                := RSHintToday;
+  dvWeekUpBtn.Hint               := RSHintNextWeek;
+  dvWeekDownBtn.Hint             := RSHintPrevWeek;
   FDefaultPopup.Items.Clear;
   InitializeDefaultPopup;
 end;
diff --git a/components/tvplanit/source/vpsr.inc b/components/tvplanit/source/vpsr.inc
index db171b90b..9da641126 100644
--- a/components/tvplanit/source/vpsr.inc
+++ b/components/tvplanit/source/vpsr.inc
@@ -190,8 +190,10 @@ resourcestring
   RSHintToday               = 'Today';                                   {!!.01}
   RSHintTomorrow            = 'Tomorrow';                                {!!.01}
   RSHintYesterday           = 'Yesterday';                               {!!.01}
-  RSHintNextWeek            = 'Next Week';                               {!!.01}
-  RSHintPrevWeek            = 'Previous Week';                           {!!.01}
+  RSHintNextWeek            = 'Next week';                               {!!.01}
+  RSHintPrevWeek            = 'Previous week';                           {!!.01}
+  RSHintPrevDay             = 'Previous day';
+  RsHintNextDay             = 'Next day';
 
   { field names }
   RSPosition                = 'Position';