tvplanit: Fix operation of navigation buttons in Preview dialog for weekview.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8533 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/examples/fulldemo/demomain.lfm

@@ -347,9 +347,12 @@ object MainForm: TMainForm
           Width = 834
           PopupMenu = VpTaskList1.default
           ControlLink = VpControlLink1
+          Font.Height = -12
+          ParentFont = False
           Align = alClient
           TabOrder = 1
           DrawingStyle = dsFlat
+          TaskHeadAttributes.Font.Height = -12
           TaskHeadAttributes.Font.Style = [fsItalic]
         end
       end
@@ -831,7 +834,7 @@ object MainForm: TMainForm
             Top = 0
             Width = 100
           end>
-        FormatName = 'Events of current week (dayview)'
+        FormatName = 'Events of current week (Day view)'
       end    
       item
         Version = 'v1.0.7'
@@ -890,6 +893,25 @@ object MainForm: TMainForm
             Width = 100
           end>
         FormatName = 'Tasks of current week (landscape)'
+      end    
+      item
+        Version = 'v1.0.7'
+        DayInc = 1
+        DayIncUnits = duWeek
+        Elements = <        
+          item
+            Version = 'v1.0.7'
+            DayOffset = 0
+            DayOffsetUnits = duDay
+            ElementName = 'WeekView'
+            Height = 100
+            ItemType = itWeekView
+            Left = 0
+            Shape.Shape = ustRectangle
+            Top = 0
+            Width = 100
+          end>
+        FormatName = 'Events of current and next week (Week view)'
       end>
     Printer.RightMargin = 5
     Printer.TopMargin = 5
@@ -1269,17 +1291,6 @@ object MainForm: TMainForm
     Top = 296
     object MenuItem1: TMenuItem
       Caption = 'File'
-      object MnuEditPrintFormats: TMenuItem
-        Caption = 'Edit print formats...'
-        OnClick = MnuEditPrintFormatsClick
-      end
-      object MnuLoadPrintFormats: TMenuItem
-        Caption = 'Load print formats...'
-        OnClick = MnuLoadPrintFormatsClick
-      end
-      object MenuItem4: TMenuItem
-        Caption = '-'
-      end
       object MnuPrintPreview: TMenuItem
         Caption = 'Print preview...'
         OnClick = MnuPrintPreviewClick
@@ -1288,6 +1299,17 @@ object MainForm: TMainForm
         Caption = 'Print...'
         OnClick = MnuPrintClick
       end
+      object MenuItem4: TMenuItem
+        Caption = '-'
+      end
+      object MnuEditPrintFormats: TMenuItem
+        Caption = 'Edit print formats...'
+        OnClick = MnuEditPrintFormatsClick
+      end
+      object MnuLoadPrintFormats: TMenuItem
+        Caption = 'Load print formats...'
+        OnClick = MnuLoadPrintFormatsClick
+      end
       object MenuItem3: TMenuItem
         Caption = '-'
       end