tvplanit: Update VpEdFmt to scale correctly in the HighDpi mode of Lazarus 1.8. Less hints.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5884 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2017-05-20 17:00:14 +00:00
parent 70be970745
commit e9103a1af1
12 changed files with 221 additions and 214 deletions
--- a/components/tvplanit/source/vpedfmt.lfm
+++ b/components/tvplanit/source/vpedfmt.lfm
@ -1,125 +1,217 @@
 object frmEditFormat: TfrmEditFormat
-  Left = 403
-  Height = 193
-  Top = 199
-  Width = 329
+  Left = 583
+  Height = 199
+  Top = 339
+  Width = 347
  HorzScrollBar.Page = 328
  VertScrollBar.Page = 188
+  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Edit Format'
-  ClientHeight = 193
-  ClientWidth = 329
+  ClientHeight = 199
+  ClientWidth = 347
  OnCreate = FormCreate
  OnShow = FormShow
  Position = poScreenCenter
-  LCLVersion = '1.7'
-  object LblIncrement: TLabel
-    Left = 16
-    Height = 15
-    Top = 72
-    Width = 80
-    Caption = 'Day Increment:'
-    FocusControl = edIncrement
-    ParentColor = False
-  end
-  object LblDescription: TLabel
-    Left = 16
-    Height = 15
-    Top = 44
-    Width = 66
-    Caption = 'Description: '
-    FocusControl = edDescription
-    ParentColor = False
-  end
-  object LblName: TLabel
-    Left = 16
-    Height = 15
-    Top = 16
-    Width = 38
-    Caption = 'Name: '
-    FocusControl = edName
-    ParentColor = False
-  end
-  object btnOk: TButton
-    Left = 157
-    Height = 25
-    Top = 160
-    Width = 75
-    Caption = 'OK'
-    Default = True
-    OnClick = btnOkClick
-    TabOrder = 5
-  end
-  object btnCancel: TButton
-    Left = 237
-    Height = 25
-    Top = 160
-    Width = 75
-    Cancel = True
-    Caption = 'Cancel'
-    OnClick = btnCancelClick
-    TabOrder = 6
-  end
-  object rgDayIncrement: TRadioGroup
-    Left = 16
-    Height = 51
-    Top = 101
-    Width = 296
-    AutoFill = True
-    Caption = ' Day Increment Unit '
-    ChildSizing.LeftRightSpacing = 6
-    ChildSizing.TopBottomSpacing = 6
-    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
-    ChildSizing.EnlargeVertical = crsHomogenousChildResize
-    ChildSizing.ShrinkHorizontal = crsScaleChilds
-    ChildSizing.ShrinkVertical = crsScaleChilds
-    ChildSizing.Layout = cclLeftToRightThenTopToBottom
-    ChildSizing.ControlsPerLine = 4
-    ClientHeight = 31
-    ClientWidth = 292
-    Columns = 4
-    ItemIndex = 0
-    Items.Strings = (
-      'Day'
-      'Week'
-      'Month'
-      'Year'
-    )
-    TabOrder = 4
-    TabStop = True
-  end
-  object edDescription: TEdit
-    Left = 88
-    Height = 23
-    Top = 40
-    Width = 224
-    TabOrder = 1
-  end
-  object edName: TEdit
-    Left = 64
-    Height = 23
-    Top = 12
-    Width = 248
+  LCLVersion = '1.6.4.0'
+  object Panel1: TPanel
+    Left = 8
+    Height = 157
+    Top = 8
+    Width = 331
+    Align = alClient
+    AutoSize = True
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 8
+    BevelOuter = bvNone
+    ClientHeight = 157
+    ClientWidth = 331
    TabOrder = 0
+    object LblName: TLabel
+      AnchorSideTop.Control = edName
+      AnchorSideTop.Side = asrCenter
+      AnchorSideRight.Control = edName
+      Left = 77
+      Height = 15
+      Top = 4
+      Width = 38
+      Anchors = [akTop, akRight]
+      BorderSpacing.Left = 8
+      BorderSpacing.Right = 8
+      Caption = 'Name: '
+      FocusControl = edName
+      ParentColor = False
+    end
+    object LblIncrement: TLabel
+      AnchorSideTop.Control = edIncrement
+      AnchorSideTop.Side = asrCenter
+      AnchorSideRight.Control = edIncrement
+      Left = 35
+      Height = 15
+      Top = 66
+      Width = 80
+      Anchors = [akTop, akRight]
+      BorderSpacing.Left = 8
+      BorderSpacing.Right = 8
+      Caption = 'Day Increment:'
+      FocusControl = edIncrement
+      ParentColor = False
+    end
+    object LblDescription: TLabel
+      AnchorSideTop.Control = edDescription
+      AnchorSideTop.Side = asrCenter
+      AnchorSideRight.Control = edDescription
+      Left = 49
+      Height = 15
+      Top = 35
+      Width = 66
+      Anchors = [akTop, akRight]
+      BorderSpacing.Left = 8
+      BorderSpacing.Right = 8
+      Caption = 'Description: '
+      FocusControl = edDescription
+      ParentColor = False
+    end
+    object edDescription: TEdit
+      AnchorSideLeft.Control = edName
+      AnchorSideTop.Control = edName
+      AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = Panel1
+      AnchorSideRight.Side = asrBottom
+      Left = 123
+      Height = 23
+      Top = 31
+      Width = 208
+      Anchors = [akTop, akLeft, akRight]
+      BorderSpacing.Top = 8
+      TabOrder = 0
+    end
+    object edIncrement: TEdit
+      AnchorSideLeft.Control = edName
+      AnchorSideTop.Control = edDescription
+      AnchorSideTop.Side = asrBottom
+      Left = 123
+      Height = 23
+      Top = 62
+      Width = 71
+      Alignment = taRightJustify
+      BorderSpacing.Top = 8
+      TabOrder = 1
+      Text = '0'
+    end
+    object udIncrement: TUpDown
+      AnchorSideLeft.Control = edIncrement
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = edIncrement
+      AnchorSideTop.Side = asrCenter
+      AnchorSideRight.Side = asrBottom
+      Left = 194
+      Height = 23
+      Top = 62
+      Width = 12
+      Associate = edIncrement
+      Max = 365
+      Min = 0
+      Position = 0
+      TabOrder = 2
+      Wrap = False
+    end
+    object edName: TEdit
+      AnchorSideTop.Control = Panel1
+      AnchorSideRight.Control = Panel1
+      AnchorSideRight.Side = asrBottom
+      Left = 123
+      Height = 23
+      Top = 0
+      Width = 208
+      Anchors = [akTop, akRight]
+      TabOrder = 3
+    end
+    object rgDayIncrement: TRadioGroup
+      AnchorSideLeft.Control = Panel1
+      AnchorSideTop.Control = edIncrement
+      AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = Panel1
+      AnchorSideRight.Side = asrBottom
+      Left = 0
+      Height = 51
+      Top = 93
+      Width = 331
+      Anchors = [akTop, akLeft, akRight]
+      AutoFill = True
+      AutoSize = True
+      BorderSpacing.Top = 8
+      Caption = ' Day Increment Unit '
+      ChildSizing.LeftRightSpacing = 6
+      ChildSizing.TopBottomSpacing = 6
+      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+      ChildSizing.EnlargeVertical = crsHomogenousChildResize
+      ChildSizing.ShrinkHorizontal = crsScaleChilds
+      ChildSizing.ShrinkVertical = crsScaleChilds
+      ChildSizing.Layout = cclLeftToRightThenTopToBottom
+      ChildSizing.ControlsPerLine = 4
+      ClientHeight = 31
+      ClientWidth = 327
+      Columns = 4
+      ItemIndex = 0
+      Items.Strings = (
+        'Day'
+        'Week'
+        'Month'
+        'Year'
+      )
+      TabOrder = 4
+      TabStop = True
+    end
  end
-  object udIncrement: TUpDown
-    Left = 158
-    Height = 23
-    Top = 68
-    Width = 12
-    Associate = edIncrement
-    Max = 365
-    Min = 0
-    Position = 0
-    TabOrder = 3
-    Wrap = False
-  end
-  object edIncrement: TEdit
-    Left = 104
-    Height = 23
-    Top = 68
-    Width = 54
-    TabOrder = 2
-    Text = '0'
+  object ButtonPanel: TPanel
+    Left = 0
+    Height = 34
+    Top = 165
+    Width = 347
+    Align = alBottom
+    AutoSize = True
+    BevelOuter = bvNone
+    ClientHeight = 34
+    ClientWidth = 347
+    TabOrder = 1
+    object btnOk: TButton
+      AnchorSideTop.Control = ButtonPanel
+      AnchorSideTop.Side = asrCenter
+      AnchorSideRight.Control = btnCancel
+      Left = 231
+      Height = 25
+      Top = 5
+      Width = 42
+      Anchors = [akTop, akRight]
+      AutoSize = True
+      BorderSpacing.Top = 4
+      BorderSpacing.Right = 4
+      BorderSpacing.Bottom = 4
+      Caption = 'OK'
+      Default = True
+      OnClick = btnOkClick
+      TabOrder = 0
+    end
+    object btnCancel: TButton
+      AnchorSideTop.Control = ButtonPanel
+      AnchorSideTop.Side = asrCenter
+      AnchorSideRight.Control = ButtonPanel
+      AnchorSideRight.Side = asrBottom
+      Left = 277
+      Height = 25
+      Top = 5
+      Width = 62
+      Anchors = [akTop, akRight]
+      AutoSize = True
+      BorderSpacing.Top = 4
+      BorderSpacing.Right = 8
+      BorderSpacing.Bottom = 4
+      Cancel = True
+      Caption = 'Cancel'
+      OnClick = btnCancelClick
+      TabOrder = 1
+    end
  end
 end