tvplanit: Fix preview updating issue in print preview desinger.

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

components/tvplanit/source/vpedfmtlst.lfm

@@ -2,12 +2,12 @@ object frmPrnFormat: TfrmPrnFormat
   Left = 250
   Height = 480
   Top = 165
-  Width = 640
+  Width = 693
   HorzScrollBar.Page = 639
   VertScrollBar.Page = 479
   Caption = 'Print Format Designer'
   ClientHeight = 480
-  ClientWidth = 640
+  ClientWidth = 693
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnShow = FormShow
@@ -25,16 +25,16 @@ object frmPrnFormat: TfrmPrnFormat
   object LblElements: TLabel
     Left = 8
     Height = 15
-    Top = 205
+    Top = 225
     Width = 51
     Caption = 'Ele&ments:'
     FocusControl = lbElements
     ParentColor = False
   end
   object btnMoveElementUp: TSpeedButton
-    Left = 248
+    Left = 305
     Height = 22
-    Top = 352
+    Top = 375
     Width = 23
     Glyph.Data = {
       76010000424D7601000000000000760000002800000020000000100000000100
@@ -54,9 +54,9 @@ object frmPrnFormat: TfrmPrnFormat
     OnClick = btnMoveElementUpClick
   end
   object btnMoveElementDn: TSpeedButton
-    Left = 248
+    Left = 305
     Height = 22
-    Top = 380
+    Top = 403
     Width = 23
     Glyph.Data = {
       76010000424D7601000000000000760000002800000020000000100000000100
@@ -76,17 +76,17 @@ object frmPrnFormat: TfrmPrnFormat
     OnClick = btnMoveElementDnClick
   end
   object LblPrintOrder: TLabel
-    Left = 232
+    Left = 289
     Height = 15
-    Top = 332
+    Top = 355
     Width = 58
     Caption = 'Print Order'
     ParentColor = False
   end
   object btnNewFormat: TButton
-    Left = 223
+    Left = 280
     Height = 25
-    Top = 27
+    Top = 25
     Width = 75
     Caption = '&New'
     Enabled = False
@@ -94,21 +94,21 @@ object frmPrnFormat: TfrmPrnFormat
     TabOrder = 1
   end
   object PrintPreviewPanel: TPanel
-    Left = 312
+    Left = 365
     Height = 439
     Top = 0
     Width = 320
     Align = alRight
     BorderSpacing.Right = 8
-    Caption = 'PrintPreviewPanel'
+    BevelOuter = bvNone
     ClientHeight = 439
     ClientWidth = 320
     TabOrder = 8
     object PrintPreview: TVpPrintPreview
-      Left = 1
-      Height = 437
-      Top = 1
-      Width = 318
+      Left = 0
+      Height = 439
+      Top = 0
+      Width = 320
       CurPage = 0
       EndDate = 37377.6447728357
       StartDate = 37370.6447728357
@@ -121,9 +121,10 @@ object frmPrnFormat: TfrmPrnFormat
   end
   object lbFormats: TListBox
     Left = 8
-    Height = 173
+    Height = 191
     Top = 25
-    Width = 201
+    Width = 257
+    Columns = 1
     ItemHeight = 0
     OnClick = lbFormatsClick
     Sorted = True
@@ -131,9 +132,9 @@ object frmPrnFormat: TfrmPrnFormat
   end
   object lbElements: TListBox
     Left = 8
-    Height = 180
-    Top = 225
-    Width = 201
+    Height = 193
+    Top = 246
+    Width = 257
     ItemHeight = 0
     OnClick = lbElementsClick
     OnDragDrop = lbElementsDragDrop
@@ -142,9 +143,9 @@ object frmPrnFormat: TfrmPrnFormat
     TabOrder = 4
   end
   object btnEditFormat: TButton
-    Left = 223
+    Left = 280
     Height = 25
-    Top = 63
+    Top = 61
     Width = 75
     Caption = '&Edit'
     Enabled = False
@@ -152,9 +153,9 @@ object frmPrnFormat: TfrmPrnFormat
     TabOrder = 2
   end
   object btnDeleteFormat: TButton
-    Left = 223
+    Left = 280
     Height = 25
-    Top = 99
+    Top = 97
     Width = 75
     Caption = '&Delete'
     Enabled = False
@@ -162,9 +163,9 @@ object frmPrnFormat: TfrmPrnFormat
     TabOrder = 3
   end
   object btnNewElement: TButton
-    Left = 223
+    Left = 280
     Height = 25
-    Top = 223
+    Top = 246
     Width = 75
     Caption = 'Ne&w'
     Enabled = False
@@ -172,9 +173,9 @@ object frmPrnFormat: TfrmPrnFormat
     TabOrder = 5
   end
   object btnEditElement: TButton
-    Left = 223
+    Left = 280
     Height = 25
-    Top = 259
+    Top = 282
     Width = 75
     Caption = 'E&dit'
     Enabled = False
@@ -182,23 +183,24 @@ object frmPrnFormat: TfrmPrnFormat
     TabOrder = 6
   end
   object btnDeleteElement: TButton
-    Left = 223
+    Left = 280
     Height = 25
-    Top = 295
+    Top = 318
     Width = 75
     Caption = 'De&lete'
     Enabled = False
     OnClick = btnDeleteElementClick
     TabOrder = 7
   end
-  object Panel2: TPanel
+  object ButtonPanel: TPanel
     Left = 0
     Height = 41
     Top = 439
-    Width = 640
+    Width = 693
     Align = alBottom
+    BevelOuter = bvNone
     ClientHeight = 41
-    ClientWidth = 640
+    ClientWidth = 693
     TabOrder = 9
     object btnLoadFile: TButton
       Left = 88
@@ -228,7 +230,7 @@ object frmPrnFormat: TfrmPrnFormat
       TabOrder = 0
     end
     object btnOk: TButton
-      Left = 556
+      Left = 609
       Height = 25
       Top = 8
       Width = 75