tvplanit: Update VpEdFmtLst to scale correctly in the HighDpi mode of Lazarus 1.8.

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

components/tvplanit/source/vpedfmtlst.lfm

@@ -1,42 +1,55 @@
 object frmPrnFormat: TfrmPrnFormat
-  Left = 250
-  Height = 471
-  Top = 165
+  Left = 517
+  Height = 490
+  Top = 274
   Width = 694
-  HorzScrollBar.Page = 639
-  VertScrollBar.Page = 479
   ActiveControl = lbFormats
   Caption = 'Print Format Designer'
-  ClientHeight = 471
+  ClientHeight = 490
   ClientWidth = 694
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.7'
+  LCLVersion = '1.9.0.0'
   object LblFormats: TLabel
-    Left = 8
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    Left = 6
     Height = 15
-    Top = 5
+    Top = 8
     Width = 46
+    BorderSpacing.Left = 6
+    BorderSpacing.Top = 8
     Caption = '&Formats:'
     FocusControl = lbFormats
     ParentColor = False
   end
   object LblElements: TLabel
-    Left = 8
+    AnchorSideLeft.Control = LblFormats
+    AnchorSideTop.Control = Owner
+    AnchorSideTop.Side = asrCenter
+    Left = 6
     Height = 15
-    Top = 225
+    Top = 238
     Width = 51
+    BorderSpacing.Top = 8
     Caption = 'Ele&ments:'
     FocusControl = lbElements
     ParentColor = False
   end
   object btnMoveElementUp: TSpeedButton
-    Left = 305
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = LblPrintOrder
+    AnchorSideTop.Side = asrBottom
+    AnchorSideBottom.Control = btnMoveElementDn
+    Left = 336
     Height = 22
-    Top = 375
+    Top = 409
     Width = 23
+    Anchors = [akLeft, akBottom]
+    BorderSpacing.Top = 4
     Glyph.Data = {
       76010000424D7601000000000000760000002800000020000000100000000100
       0400000000000001000000000000000000001000000010000000000000000000
@@ -55,10 +68,18 @@ object frmPrnFormat: TfrmPrnFormat
     OnClick = btnMoveElementUpClick
   end
   object btnMoveElementDn: TSpeedButton
-    Left = 304
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = btnMoveElementUp
+    AnchorSideTop.Side = asrBottom
+    AnchorSideBottom.Control = lbElements
+    AnchorSideBottom.Side = asrBottom
+    Left = 336
     Height = 22
-    Top = 403
+    Top = 435
     Width = 23
+    Anchors = [akLeft, akBottom]
+    BorderSpacing.Top = 4
     Glyph.Data = {
       76010000424D7601000000000000760000002800000020000000100000000100
       0400000000000001000000000000000000001000000010000000000000000000
@@ -77,101 +98,110 @@ object frmPrnFormat: TfrmPrnFormat
     OnClick = btnMoveElementDnClick
   end
   object LblPrintOrder: TLabel
-    Left = 289
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideBottom.Control = btnMoveElementUp
+    Left = 318
     Height = 15
-    Top = 355
+    Top = 390
     Width = 58
+    Alignment = taCenter
+    Anchors = [akLeft, akBottom]
     Caption = 'Print Order'
     ParentColor = False
+    WordWrap = True
   end
   object btnNewFormat: TButton
-    Left = 280
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = lbFormats
+    Left = 310
     Height = 25
-    Top = 25
+    Top = 27
     Width = 75
     Caption = '&New'
     Enabled = False
     OnClick = btnNewFormatClick
     TabOrder = 1
   end
-  object PrintPreviewPanel: TPanel
-    Left = 368
-    Height = 430
-    Top = 0
-    Width = 320
-    Align = alRight
-    BevelOuter = bvNone
-    ClientHeight = 430
-    ClientWidth = 320
-    TabOrder = 8
-    object PrintPreview: TVpPrintPreview
-      Left = 0
-      Height = 401
-      Top = 21
-      Width = 320
-      CurPage = 0
-      DrawingStyle = dsFlat
-      EndDate = 37377.6447728357
-      StartDate = 37370.6447728357
-      Parent = PrintPreviewPanel
-      TabOrder = 0
-    end
-    object LblPrintPreview: TLabel
-      Left = 1
-      Height = 15
-      Top = 2
-      Width = 44
-      Caption = 'Preview:'
-      ParentColor = False
-    end
-  end
   object lbFormats: TListBox
-    Left = 8
-    Height = 191
-    Top = 25
-    Width = 257
+    AnchorSideLeft.Control = LblFormats
+    AnchorSideTop.Control = LblFormats
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = btnNewFormat
+    AnchorSideBottom.Control = LblElements
+    Left = 6
+    Height = 203
+    Top = 27
+    Width = 300
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Top = 4
+    BorderSpacing.Right = 4
     Columns = 1
     ItemHeight = 0
     OnClick = lbFormatsClick
+    Options = [lboDrawFocusRect]
     Sorted = True
     TabOrder = 0
   end
   object lbElements: TListBox
-    Left = 8
-    Height = 179
-    Top = 246
-    Width = 257
+    AnchorSideLeft.Control = LblFormats
+    AnchorSideTop.Control = LblElements
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = lbFormats
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = ButtonPanel
+    Left = 6
+    Height = 200
+    Top = 257
+    Width = 300
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Top = 4
     ItemHeight = 0
     OnClick = lbElementsClick
     OnDragDrop = lbElementsDragDrop
     OnDragOver = lbElementsDragOver
     OnMouseDown = lbElementsMouseDown
+    Options = [lboDrawFocusRect]
     TabOrder = 4
   end
   object btnEditFormat: TButton
-    Left = 280
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = btnNewFormat
+    AnchorSideTop.Side = asrBottom
+    Left = 310
     Height = 25
     Top = 56
     Width = 75
+    BorderSpacing.Top = 4
     Caption = '&Edit'
     Enabled = False
     OnClick = btnEditFormatClick
     TabOrder = 2
   end
   object btnDeleteFormat: TButton
-    Left = 280
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = btnEditFormat
+    AnchorSideTop.Side = asrBottom
+    Left = 310
     Height = 25
-    Top = 88
+    Top = 85
     Width = 75
+    BorderSpacing.Top = 4
     Caption = '&Delete'
     Enabled = False
     OnClick = btnDeleteFormatClick
     TabOrder = 3
   end
   object btnNewElement: TButton
-    Left = 280
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = lbElements
+    Left = 310
     Height = 25
-    Top = 246
+    Top = 257
     Width = 75
     Caption = 'Ne&w'
     Enabled = False
@@ -179,20 +209,30 @@ object frmPrnFormat: TfrmPrnFormat
     TabOrder = 5
   end
   object btnEditElement: TButton
-    Left = 280
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = btnNewElement
+    AnchorSideTop.Side = asrBottom
+    Left = 310
     Height = 25
-    Top = 280
+    Top = 286
     Width = 75
+    BorderSpacing.Top = 4
     Caption = 'E&dit'
     Enabled = False
     OnClick = btnEditElementClick
     TabOrder = 6
   end
   object btnDeleteElement: TButton
-    Left = 280
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = btnEditElement
+    AnchorSideTop.Side = asrBottom
+    Left = 310
     Height = 25
-    Top = 312
+    Top = 315
     Width = 75
+    BorderSpacing.Top = 4
     Caption = 'De&lete'
     Enabled = False
     OnClick = btnDeleteElementClick
@@ -200,47 +240,77 @@ object frmPrnFormat: TfrmPrnFormat
   end
   object ButtonPanel: TPanel
     Left = 0
-    Height = 41
-    Top = 430
+    Height = 33
+    Top = 457
     Width = 694
     Align = alBottom
+    AutoSize = True
     BevelOuter = bvNone
-    ClientHeight = 41
+    ClientHeight = 33
     ClientWidth = 694
-    TabOrder = 9
+    TabOrder = 8
     object btnLoadFile: TButton
-      Left = 88
+      AnchorSideLeft.Control = btnNewFile
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = btnOk
+      AnchorSideBottom.Control = btnOk
+      AnchorSideBottom.Side = asrBottom
+      Left = 81
       Height = 25
-      Top = 8
-      Width = 75
+      Top = 4
+      Width = 82
+      Anchors = [akTop, akLeft, akBottom]
+      AutoSize = True
+      BorderSpacing.Left = 4
       Caption = 'L&oad File...'
       OnClick = btnLoadFileClick
       TabOrder = 1
     end
     object btnSaveFile: TButton
-      Left = 168
+      AnchorSideLeft.Control = btnLoadFile
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = btnOk
+      AnchorSideBottom.Control = btnOk
+      AnchorSideBottom.Side = asrBottom
+      Left = 167
       Height = 25
-      Top = 8
-      Width = 75
+      Top = 4
+      Width = 80
+      Anchors = [akTop, akLeft, akBottom]
+      AutoSize = True
+      BorderSpacing.Left = 4
       Caption = '&Save File...'
       OnClick = btnSaveFileClick
       TabOrder = 2
     end
     object btnNewFile: TButton
-      Left = 8
+      AnchorSideLeft.Control = ButtonPanel
+      AnchorSideTop.Control = btnOk
+      AnchorSideBottom.Control = btnOk
+      AnchorSideBottom.Side = asrBottom
+      Left = 6
       Height = 25
-      Top = 8
-      Width = 75
+      Top = 4
+      Width = 71
+      Anchors = [akTop, akLeft, akBottom]
+      AutoSize = True
+      BorderSpacing.Left = 6
       Caption = 'New &File'
       OnClick = btnNewFileClick
       TabOrder = 0
     end
     object btnOk: TButton
-      Left = 610
+      AnchorSideRight.Control = ButtonPanel
+      AnchorSideRight.Side = asrBottom
+      Left = 646
       Height = 25
-      Top = 8
-      Width = 75
+      Top = 4
+      Width = 42
       Anchors = [akTop, akRight]
+      AutoSize = True
+      BorderSpacing.Top = 4
+      BorderSpacing.Right = 6
+      BorderSpacing.Bottom = 4
       Caption = 'OK'
       Default = True
       OnClick = btnOkClick
@@ -249,12 +319,44 @@ object frmPrnFormat: TfrmPrnFormat
   end
   object Bevel1: TBevel
     Left = 688
-    Height = 430
+    Height = 457
     Top = 0
     Width = 6
     Align = alRight
     Shape = bsSpacer
   end
+  object LblPrintPreview: TLabel
+    AnchorSideLeft.Control = btnNewFormat
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = LblFormats
+    Left = 389
+    Height = 15
+    Top = 8
+    Width = 44
+    BorderSpacing.Left = 4
+    Caption = 'Preview:'
+    ParentColor = False
+  end
+  object PrintPreview: TVpPrintPreview
+    AnchorSideLeft.Control = LblPrintPreview
+    AnchorSideTop.Control = lbFormats
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = lbElements
+    AnchorSideBottom.Side = asrBottom
+    Left = 389
+    Height = 430
+    Top = 27
+    Width = 305
+    CurPage = 0
+    DrawingStyle = dsFlat
+    EndDate = 37377.6447728357
+    StartDate = 37370.6447728357
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    Parent = Owner
+    TabStop = True
+    TabOrder = 9
+  end
   object OpenDialog1: TOpenDialog
     Title = 'Open filter file'
     DefaultExt = '.xml'