diff --git a/components/tvplanit/languages/vpsr.de.po b/components/tvplanit/languages/vpsr.de.po
index 66c465706..358895be5 100644
--- a/components/tvplanit/languages/vpsr.de.po
+++ b/components/tvplanit/languages/vpsr.de.po
@@ -150,6 +150,10 @@ msgctxt "vpsr.rscalendarrevert"
 msgid "Revert"
 msgstr "Zurück"
 
+#: vpsr.rscalendarweek
+msgid "Calendar week"
+msgstr "Kalenderwoche"
+
 #: vpsr.rscalendarweekabbr
 msgid "CW"
 msgstr "KW"
@@ -1221,10 +1225,6 @@ msgstr "Aufgabenliste - "
 msgid "Text"
 msgstr "Text"
 
-#: vpsr.rsthrough
-msgid "Through"
-msgstr "Bis"
-
 #: vpsr.rsthursday
 msgid "Thursday"
 msgstr "Donnerstag"
@@ -1328,10 +1328,6 @@ msgstr "Mittwoch"
 msgid "Weekly"
 msgstr "Wöchentlich"
 
-#: vpsr.rsweekof
-msgid "Week of"
-msgstr "Woche mit"
-
 #: vpsr.rsweeks
 msgid "Weeks"
 msgstr "Wochen"
diff --git a/components/tvplanit/languages/vpsr.en.po b/components/tvplanit/languages/vpsr.en.po
index 2827fe0ba..4533c6bbc 100644
--- a/components/tvplanit/languages/vpsr.en.po
+++ b/components/tvplanit/languages/vpsr.en.po
@@ -150,6 +150,10 @@ msgctxt "vpsr.rscalendarrevert"
 msgid "Revert"
 msgstr "Revert"
 
+#: vpsr.rscalendarweek
+msgid "Calendar week"
+msgstr "Calendar week"
+
 #: vpsr.rscalendarweekabbr
 msgid "CW"
 msgstr "CW"
@@ -1205,10 +1209,6 @@ msgstr "Task list - "
 msgid "Text"
 msgstr "Text"
 
-#: vpsr.rsthrough
-msgid "Through"
-msgstr "Through"
-
 #: vpsr.rsthursday
 msgid "Thursday"
 msgstr "Thursday"
@@ -1310,10 +1310,6 @@ msgstr "Wednesday"
 msgid "Weekly"
 msgstr "Weekly"
 
-#: vpsr.rsweekof
-msgid "Week of"
-msgstr "Week of"
-
 #: vpsr.rsweeks
 msgid "Weeks"
 msgstr "Weeks"
diff --git a/components/tvplanit/languages/vpsr.fi.po b/components/tvplanit/languages/vpsr.fi.po
index cab4847c5..affab2fcc 100644
--- a/components/tvplanit/languages/vpsr.fi.po
+++ b/components/tvplanit/languages/vpsr.fi.po
@@ -140,6 +140,10 @@ msgctxt "vpsr.rscalendarrevert"
 msgid "Revert"
 msgstr ""
 
+#: vpsr.rscalendarweek
+msgid "Calendar week"
+msgstr ""
+
 #: vpsr.rscalendarweekabbr
 msgid "CW"
 msgstr ""
@@ -1212,10 +1216,6 @@ msgstr ""
 msgid "Text"
 msgstr ""
 
-#: vpsr.rsthrough
-msgid "Through"
-msgstr ""
-
 #: vpsr.rsthursday
 msgid "Thursday"
 msgstr "Torstai"
@@ -1320,10 +1320,6 @@ msgstr "Keskiviikko"
 msgid "Weekly"
 msgstr ""
 
-#: vpsr.rsweekof
-msgid "Week of"
-msgstr ""
-
 #: vpsr.rsweeks
 msgid "Weeks"
 msgstr ""
diff --git a/components/tvplanit/languages/vpsr.fr.po b/components/tvplanit/languages/vpsr.fr.po
index 72ecca34f..87dfb058e 100644
--- a/components/tvplanit/languages/vpsr.fr.po
+++ b/components/tvplanit/languages/vpsr.fr.po
@@ -156,6 +156,10 @@ msgctxt "vpsr.rscalendarrevert"
 msgid "Revert"
 msgstr "Revenir en arrière"
 
+#: vpsr.rscalendarweek
+msgid "Calendar week"
+msgstr ""
+
 #: vpsr.rscalendarweekabbr
 msgid "CW"
 msgstr ""
@@ -1229,10 +1233,6 @@ msgstr "Liste des tâches -"
 msgid "Text"
 msgstr ""
 
-#: vpsr.rsthrough
-msgid "Through"
-msgstr "Par"
-
 #: vpsr.rsthursday
 msgid "Thursday"
 msgstr "Jeudi"
@@ -1336,10 +1336,6 @@ msgstr "Mercredi"
 msgid "Weekly"
 msgstr "Hebdomadaire"
 
-#: vpsr.rsweekof
-msgid "Week of"
-msgstr "Semaine du"
-
 #: vpsr.rsweeks
 msgid "Weeks"
 msgstr ""
diff --git a/components/tvplanit/languages/vpsr.nl.po b/components/tvplanit/languages/vpsr.nl.po
index 5cb031efa..60ded8800 100644
--- a/components/tvplanit/languages/vpsr.nl.po
+++ b/components/tvplanit/languages/vpsr.nl.po
@@ -150,6 +150,10 @@ msgctxt "vpsr.rscalendarrevert"
 msgid "Revert"
 msgstr "Terug"
 
+#: vpsr.rscalendarweek
+msgid "Calendar week"
+msgstr ""
+
 #: vpsr.rscalendarweekabbr
 msgid "CW"
 msgstr "KW"
@@ -1223,10 +1227,6 @@ msgstr "Taaklijst - "
 msgid "Text"
 msgstr ""
 
-#: vpsr.rsthrough
-msgid "Through"
-msgstr "t/m"
-
 #: vpsr.rsthursday
 msgid "Thursday"
 msgstr "Donderdag"
@@ -1330,10 +1330,6 @@ msgstr "Woensdag"
 msgid "Weekly"
 msgstr "Wekelijks"
 
-#: vpsr.rsweekof
-msgid "Week of"
-msgstr "Week van"
-
 #: vpsr.rsweeks
 msgid "Weeks"
 msgstr ""
diff --git a/components/tvplanit/languages/vpsr.pl.po b/components/tvplanit/languages/vpsr.pl.po
index 9436ac92c..0dd1aef5a 100644
--- a/components/tvplanit/languages/vpsr.pl.po
+++ b/components/tvplanit/languages/vpsr.pl.po
@@ -150,6 +150,10 @@ msgctxt "vpsr.rscalendarrevert"
 msgid "Revert"
 msgstr "Cofnij"
 
+#: vpsr.rscalendarweek
+msgid "Calendar week"
+msgstr ""
+
 #: vpsr.rscalendarweekabbr
 msgid "CW"
 msgstr "TR"
@@ -1221,10 +1225,6 @@ msgstr "Lista zadań - "
 msgid "Text"
 msgstr "Tekst"
 
-#: vpsr.rsthrough
-msgid "Through"
-msgstr "do"
-
 #: vpsr.rsthursday
 msgid "Thursday"
 msgstr "Czwartek"
@@ -1328,10 +1328,6 @@ msgstr "Środa"
 msgid "Weekly"
 msgstr "Tygodniowo"
 
-#: vpsr.rsweekof
-msgid "Week of"
-msgstr "Tydzień od:"
-
 #: vpsr.rsweeks
 msgid "Weeks"
 msgstr "Tygodnie"
diff --git a/components/tvplanit/languages/vpsr.pot b/components/tvplanit/languages/vpsr.pot
index 24a50563f..491db9b65 100644
--- a/components/tvplanit/languages/vpsr.pot
+++ b/components/tvplanit/languages/vpsr.pot
@@ -140,6 +140,10 @@ msgctxt "vpsr.rscalendarrevert"
 msgid "Revert"
 msgstr ""
 
+#: vpsr.rscalendarweek
+msgid "Calendar week"
+msgstr ""
+
 #: vpsr.rscalendarweekabbr
 msgid "CW"
 msgstr ""
@@ -1195,10 +1199,6 @@ msgstr ""
 msgid "Text"
 msgstr ""
 
-#: vpsr.rsthrough
-msgid "Through"
-msgstr ""
-
 #: vpsr.rsthursday
 msgid "Thursday"
 msgstr ""
@@ -1300,10 +1300,6 @@ msgstr ""
 msgid "Weekly"
 msgstr ""
 
-#: vpsr.rsweekof
-msgid "Week of"
-msgstr ""
-
 #: vpsr.rsweeks
 msgid "Weeks"
 msgstr ""
diff --git a/components/tvplanit/languages/vpsr.ru.po b/components/tvplanit/languages/vpsr.ru.po
index 0fd5e93d5..1bbebb09f 100644
--- a/components/tvplanit/languages/vpsr.ru.po
+++ b/components/tvplanit/languages/vpsr.ru.po
@@ -150,6 +150,10 @@ msgctxt "vpsr.rscalendarrevert"
 msgid "Revert"
 msgstr "Возврат"
 
+#: vpsr.rscalendarweek
+msgid "Calendar week"
+msgstr ""
+
 #: vpsr.rscalendarweekabbr
 msgid "CW"
 msgstr "Номер недели:"
@@ -1221,10 +1225,6 @@ msgstr "Список задач - "
 msgid "Text"
 msgstr ""
 
-#: vpsr.rsthrough
-msgid "Through"
-msgstr "Через"
-
 #: vpsr.rsthursday
 msgid "Thursday"
 msgstr "Четверг"
@@ -1328,10 +1328,6 @@ msgstr "Среда"
 msgid "Weekly"
 msgstr "Еженедельно"
 
-#: vpsr.rsweekof
-msgid "Week of"
-msgstr "Неделя"
-
 #: vpsr.rsweeks
 msgid "Weeks"
 msgstr ""
diff --git a/components/tvplanit/source/include/vpsr.inc b/components/tvplanit/source/include/vpsr.inc
index 293f5ed7f..2da81774f 100644
--- a/components/tvplanit/source/include/vpsr.inc
+++ b/components/tvplanit/source/include/vpsr.inc
@@ -103,8 +103,6 @@ resourcestring
   RSNormal                  = 'Normal';
   RSHigh                    = 'High';
 
-  RSWeekOf                  = 'Week of';
-  RSThrough                 = 'Through';
   RSSunday                  = 'Sunday';
   RSMonday                  = 'Monday';
   RSTuesday                 = 'Tuesday';
@@ -140,6 +138,7 @@ resourcestring
   RSWeeks                   = 'Weeks';
   RSMonths                  = 'Months';
   RSYears                   = 'Years';
+  RSCalendarWeek            = 'Calendar week';
   RSCalendarWeekAbbr        = 'CW';   // Abbreviation of "calendar week"
 
   RSToday                   = 'Today';
@@ -289,7 +288,7 @@ resourcestring
   RSHomeAddress             = 'Home address';
 
   { Print Preview dialog captions }
-  RSDlgPrintPreview        = 'Print preview';
+  RSDlgPrintPreview         = 'Print preview';
 
   { Task Edit Dialog Captions }
   RSDlgTaskEdit             = 'Task';
diff --git a/components/tvplanit/source/vpweekviewpainter.pas b/components/tvplanit/source/vpweekviewpainter.pas
index 400bd7287..cabda4232 100644
--- a/components/tvplanit/source/vpweekviewpainter.pas
+++ b/components/tvplanit/source/vpweekviewpainter.pas
@@ -587,6 +587,7 @@ var
   HeadStr: string = '';
   HeadStrLen: Integer;
   weekNo: Integer;
+  startStr, endStr: String;
 begin
   RenderCanvas.Brush.Color := RealHeadAttrColor;
   RenderCanvas.Font.Assign(TFont(FWeekView.HeadAttributes.Font));
@@ -609,17 +610,16 @@ begin
       BevelDarkShadow
     );
   end else begin
-//  if FWeekView.DrawingStyle = dsFlat then begin
-//    { draw simple border rectangle }
+    { draw simple border rectangle }
     HeadRect := Rect(RealLeft, RealTop, RealRight, RealTop + TVpWeekViewOpener(FWeekView).wvHeaderHeight + 2);
     TPSFillRect(RenderCanvas, Angle, RenderIn, HeadRect);
   end;
 
   { build header caption }
   weekNo := GetWeekOfYear(StartDate);
-  HeadStr := HeadStr + Format('%s %s (%s %d)', [
-    RSWeekOf, FormatDateTime(FWeekView.DateLabelFormat, StartDate), RSCalendarWeekAbbr, weekNo
-  ]);
+  startStr := FormatDateTime(FWeekView.DateLabelFormat, StartDate);
+  endStr := FormatDateTime(FWeekView.DateLabelFormat, StartDate+6);
+  HeadStr := Format('%s %d (%s - %s)', [RSCalendarWeek, weekNo, startStr, endStr]);
 
   { draw the text }
   if DisplayOnly and (RenderCanvas.TextWidth(HeadStr) >= WidthOf(RenderIn)) then