tvplanit: Fix printpreview dialog not being able to show full page in preview.

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

components/tvplanit/source/vpprtprvdlg.lfm

@@ -1,13 +1,13 @@
 object frmPrintPreview: TfrmPrintPreview
   Left = 285
-  Height = 518
+  Height = 704
   Top = 142
-  Width = 477
+  Width = 539
   HorzScrollBar.Page = 476
   VertScrollBar.Page = 517
   Caption = 'Print Preview'
-  ClientHeight = 518
-  ClientWidth = 477
+  ClientHeight = 704
+  ClientWidth = 539
   Constraints.MinHeight = 200
   Constraints.MinWidth = 395
   KeyPreview = True
@@ -18,10 +18,10 @@ object frmPrintPreview: TfrmPrintPreview
     Left = 0
     Height = 62
     Top = 0
-    Width = 477
+    Width = 539
     Align = alTop
     ClientHeight = 62
-    ClientWidth = 477
+    ClientWidth = 539
     TabOrder = 0
     object cboxZoom: TComboBox
       Left = 216
@@ -55,7 +55,7 @@ object frmPrintPreview: TfrmPrintPreview
       Left = 1
       Height = 27
       Top = 1
-      Width = 475
+      Width = 537
       AutoSize = True
       ButtonHeight = 25
       ButtonWidth = 25
@@ -123,9 +123,9 @@ object frmPrintPreview: TfrmPrintPreview
   end
   object VpPrintPreview1: TVpPrintPreview
     Left = 0
-    Height = 456
+    Height = 642
     Top = 62
-    Width = 477
+    Width = 539
     CurPage = 0
     EndDate = 37355.4526088079
     StartDate = 37348.4526088079

components/tvplanit/source/vpprtprvdlg.pas

@@ -228,6 +228,7 @@ begin
     EditForm.VpPrintPreview1.ZoomFactor := ZoomFactor;
     EditForm.cboxZoom.ItemIndex := Integer (ZoomFactor);
     EditForm.VpPrintPreview1.Printer := Printer;
+    EditForm.VpPrintPreview1.ForceUpdate;
     EditForm.VpPrintPreview1.FirstPage;
     EditForm.ShowModal;
     if EditForm.ReturnCode = rtCommit then begin