diff --git a/components/tvplanit/source/vpedfmtlst.lfm b/components/tvplanit/source/vpedfmtlst.lfm
index 1bb277fa5..7716849a2 100644
--- a/components/tvplanit/source/vpedfmtlst.lfm
+++ b/components/tvplanit/source/vpedfmtlst.lfm
@@ -314,15 +314,16 @@ object frmPrnFormat: TfrmPrnFormat
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = lbElements
     AnchorSideBottom.Side = asrBottom
-    Left = 395
+    Left = 389
     Height = 430
     Top = 27
-    Width = 293
+    Width = 299
     CurPage = 0
     DrawingStyle = dsFlat
     EndDate = 37377.6447728357
     StartDate = 37370.6447728357
     Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Right = 6
     Parent = Owner
     TabStop = True
     TabOrder = 8
diff --git a/components/tvplanit/source/vpprtprv.pas b/components/tvplanit/source/vpprtprv.pas
index ddf832fe8..6fc649226 100644
--- a/components/tvplanit/source/vpprtprv.pas
+++ b/components/tvplanit/source/vpprtprv.pas
@@ -194,6 +194,7 @@ type
 
       property Anchors;
       property Align;
+      property BorderSpacing;
       property Constraints;
       property Cursor;
       property DragCursor;
diff --git a/components/tvplanit/source/vpprtprvdlg.lfm b/components/tvplanit/source/vpprtprvdlg.lfm
index d847984ca..418e3b580 100644
--- a/components/tvplanit/source/vpprtprvdlg.lfm
+++ b/components/tvplanit/source/vpprtprvdlg.lfm
@@ -16,19 +16,20 @@ object frmPrintPreview: TfrmPrintPreview
   OnShow = FormShow
   object Panel1: TPanel
     Left = 0
-    Height = 58
+    Height = 56
     Top = 0
     Width = 540
     Align = alTop
     AutoSize = True
-    ClientHeight = 58
+    BevelOuter = bvNone
+    ClientHeight = 56
     ClientWidth = 540
     TabOrder = 0
     object ToolBar1: TToolBar
-      Left = 1
+      Left = 0
       Height = 27
-      Top = 1
-      Width = 538
+      Top = 0
+      Width = 540
       AutoSize = True
       ButtonHeight = 25
       ButtonWidth = 23
@@ -47,7 +48,7 @@ object frmPrintPreview: TfrmPrintPreview
         AutoSize = True
       end
       object ToolButton3: TToolButton
-        Left = 52
+        Left = 55
         Height = 25
         Top = 0
         Caption = 'ToolButton3'
@@ -55,35 +56,35 @@ object frmPrintPreview: TfrmPrintPreview
         Style = tbsDivider
       end
       object btnFirstPage: TToolButton
-        Left = 57
+        Left = 60
         Top = 0
         Action = actFirstPage
         AutoSize = True
         ShowCaption = False
       end
       object btnPrevPage: TToolButton
-        Left = 80
+        Left = 83
         Top = 0
         Action = actPrevPage
         AutoSize = True
         ShowCaption = False
       end
       object btnNextPage: TToolButton
-        Left = 103
+        Left = 106
         Top = 0
         Action = actNextPage
         AutoSize = True
         ShowCaption = False
       end
       object btnLastPage: TToolButton
-        Left = 126
+        Left = 129
         Top = 0
         Action = actLastPage
         AutoSize = True
         ShowCaption = False
       end
       object ToolButton8: TToolButton
-        Left = 149
+        Left = 152
         Height = 25
         Top = 0
         Caption = 'ToolButton8'
@@ -91,25 +92,25 @@ object frmPrintPreview: TfrmPrintPreview
         Style = tbsDivider
       end
       object btnCancel: TToolButton
-        Left = 154
+        Left = 157
         Top = 0
         Action = actCancel
         AutoSize = True
       end
     end
     object Panel2: TPanel
-      Left = 1
+      Left = 0
       Height = 29
-      Top = 28
-      Width = 538
+      Top = 27
+      Width = 540
       Align = alTop
       AutoSize = True
       BevelOuter = bvNone
       ClientHeight = 29
-      ClientWidth = 538
+      ClientWidth = 540
       TabOrder = 1
       object cboxZoom: TComboBox
-        Left = 389
+        Left = 391
         Height = 23
         Top = 2
         Width = 145
@@ -136,7 +137,7 @@ object frmPrintPreview: TfrmPrintPreview
         Left = 4
         Height = 23
         Top = 2
-        Width = 381
+        Width = 383
         Anchors = [akTop, akLeft, akRight]
         Borderspacing.Left = 4
         Borderspacing.Top = 2
@@ -150,14 +151,17 @@ object frmPrintPreview: TfrmPrintPreview
     end
   end
   object VpPrintPreview1: TVpPrintPreview
-    Left = 0
-    Height = 760
-    Top = 58
-    Width = 540
+    Left = 4
+    Height = 758
+    Top = 56
+    Width = 532
     CurPage = 0
     EndDate = 37355.4526088079
     StartDate = 37348.4526088079
     Align = alClient
+    BorderSpacing.Left = 4
+    BorderSpacing.Right = 4
+    BorderSpacing.Bottom = 4
     Parent = Owner
     TabStop = True
     TabOrder = 1