From 9fc76923f9c70c30e5dd7ae2d5d4d35185246fda Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 2 Jul 2016 21:13:54 +0000
Subject: [PATCH] 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 | 18 +++++++++---------
 components/tvplanit/source/vpprtprvdlg.pas |  1 +
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/components/tvplanit/source/vpprtprvdlg.lfm b/components/tvplanit/source/vpprtprvdlg.lfm
index ff050208e..198ce8126 100644
--- a/components/tvplanit/source/vpprtprvdlg.lfm
+++ b/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
diff --git a/components/tvplanit/source/vpprtprvdlg.pas b/components/tvplanit/source/vpprtprvdlg.pas
index 918e6d426..f044f1a08 100644
--- a/components/tvplanit/source/vpprtprvdlg.pas
+++ b/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