tvplanit: Redo control alignment in element editor dialog.

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

components/tvplanit/source/vpedelem.lfm

@@ -1,133 +1,34 @@
 object frmEditElement: TfrmEditElement
   Left = 691
-  Height = 453
+  Height = 503
   Top = 226
-  Width = 413
+  Width = 489
   HorzScrollBar.Page = 378
   VertScrollBar.Page = 444
   BorderStyle = bsDialog
   Caption = 'Edit Element'
-  ClientHeight = 453
-  ClientWidth = 413
+  ClientHeight = 503
+  ClientWidth = 489
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poScreenCenter
   LCLVersion = '1.7'
-  object lblName: TLabel
-    Left = 12
-    Height = 15
-    Top = 16
-    Width = 38
-    Caption = 'Name: '
-    ParentColor = False
-  end
-  object rgItemType: TRadioGroup
-    Left = 12
-    Height = 81
-    Top = 44
-    Width = 388
-    AutoFill = True
-    Caption = 'Item Type '
-    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 = 61
-    ClientWidth = 384
-    Columns = 4
-    ItemIndex = 0
-    Items.Strings = (
-      'DayView'
-      'WeekView'
-      'MonthView'
-      'Calendar'
-      'Shape'
-      'Caption'
-      'Tasks'
-      'Contacts'
-    )
-    OnClick = rgItemTypeClick
-    TabOrder = 1
-  end
-  object rgDayOffsetUnit: TRadioGroup
-    Left = 116
-    Height = 56
-    Top = 136
-    Width = 284
-    AutoFill = True
-    Caption = ' Day Offset 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 = 36
-    ClientWidth = 280
-    Columns = 4
-    ItemIndex = 0
-    Items.Strings = (
-      'Day'
-      'Week'
-      'Month'
-      'Year'
-    )
-    TabOrder = 3
-  end
-  object btnOk: TButton
-    Left = 240
-    Height = 25
-    Top = 416
-    Width = 75
-    Caption = 'OK'
-    Default = True
-    OnClick = btnOkClick
-    TabOrder = 7
-  end
-  object btnCancel: TButton
-    Left = 325
-    Height = 25
-    Top = 416
-    Width = 75
-    Cancel = True
-    Caption = 'Cancel'
-    OnClick = btnCancelClick
-    TabOrder = 8
-  end
-  object edName: TEdit
-    Left = 56
-    Height = 23
-    Top = 12
-    Width = 344
-    TabOrder = 0
-  end
-  object btnShape: TButton
-    Left = 12
-    Height = 25
-    Top = 416
-    Width = 75
-    Caption = 'Shape...'
-    Enabled = False
-    OnClick = btnShapeClick
-    TabOrder = 6
-  end
   object gbVisual: TGroupBox
     Left = 12
-    Height = 129
-    Top = 208
-    Width = 388
+    Height = 148
+    Top = 181
+    Width = 465
+    Align = alTop
+    AutoSize = True
+    BorderSpacing.Left = 12
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 12
     Caption = ' Visual '
-    ClientHeight = 109
-    ClientWidth = 384
-    TabOrder = 4
+    ClientHeight = 128
+    ClientWidth = 461
+    TabOrder = 0
     object LblTop: TLabel
-      Left = 172
+      Left = 224
       Height = 15
       Top = 20
       Width = 23
@@ -136,7 +37,7 @@ object frmEditElement: TfrmEditElement
       ParentColor = False
     end
     object LblLeft: TLabel
-      Left = 172
+      Left = 224
       Height = 15
       Top = 48
       Width = 23
@@ -145,29 +46,36 @@ object frmEditElement: TfrmEditElement
       ParentColor = False
     end
     object LblHeight: TLabel
-      Left = 276
+      Left = 352
       Height = 15
       Top = 20
       Width = 39
+      BorderSpacing.Right = 4
       Caption = 'Height:'
       FocusControl = edHeight
       ParentColor = False
     end
     object LblWidth: TLabel
-      Left = 280
+      Left = 357
       Height = 15
       Top = 48
       Width = 35
+      BorderSpacing.Right = 4
       Caption = 'Width:'
       FocusControl = edWidth
       ParentColor = False
     end
     object rgMeasurement: TRadioGroup
-      Left = 76
-      Height = 99
+      AnchorSideLeft.Control = rgRotation
+      AnchorSideLeft.Side = asrBottom
+      Left = 103
+      Height = 108
       Top = 0
-      Width = 89
+      Width = 98
       AutoFill = True
+      AutoSize = True
+      BorderSpacing.Left = 7
+      BorderSpacing.Bottom = 8
       Caption = ' Measurement '
       ChildSizing.LeftRightSpacing = 6
       ChildSizing.TopBottomSpacing = 6
@@ -177,8 +85,8 @@ object frmEditElement: TfrmEditElement
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 79
-      ClientWidth = 85
+      ClientHeight = 88
+      ClientWidth = 94
       ItemIndex = 1
       Items.Strings = (
         'Pixels'
@@ -190,11 +98,17 @@ object frmEditElement: TfrmEditElement
       TabOrder = 1
     end
     object rgRotation: TRadioGroup
+      AnchorSideTop.Control = rgMeasurement
+      AnchorSideBottom.Control = rgMeasurement
+      AnchorSideBottom.Side = asrBottom
       Left = 8
-      Height = 99
+      Height = 120
       Top = 0
-      Width = 61
+      Width = 88
       AutoFill = True
+      BorderSpacing.Left = 8
+      BorderSpacing.Bottom = 8
+      BorderSpacing.InnerBorder = 8
       Caption = ' Rotation '
       ChildSizing.LeftRightSpacing = 6
       ChildSizing.TopBottomSpacing = 6
@@ -204,8 +118,8 @@ object frmEditElement: TfrmEditElement
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 79
-      ClientWidth = 57
+      ClientHeight = 100
+      ClientWidth = 84
       ItemIndex = 0
       Items.Strings = (
         '0'
@@ -216,7 +130,7 @@ object frmEditElement: TfrmEditElement
       TabOrder = 0
     end
     object edTop: TEdit
-      Left = 208
+      Left = 260
       Height = 23
       Top = 16
       Width = 48
@@ -226,7 +140,7 @@ object frmEditElement: TfrmEditElement
       Text = '0.00'
     end
     object edLeft: TEdit
-      Left = 208
+      Left = 260
       Height = 23
       Top = 44
       Width = 48
@@ -236,7 +150,7 @@ object frmEditElement: TfrmEditElement
       Text = '0.00'
     end
     object edHeight: TEdit
-      Left = 321
+      Left = 399
       Height = 23
       Top = 16
       Width = 40
@@ -246,7 +160,7 @@ object frmEditElement: TfrmEditElement
       Text = '0.00'
     end
     object edWidth: TEdit
-      Left = 321
+      Left = 399
       Height = 23
       Top = 44
       Width = 40
@@ -256,7 +170,7 @@ object frmEditElement: TfrmEditElement
       Text = '0.00'
     end
     object chkVisible: TCheckBox
-      Left = 208
+      Left = 260
       Height = 19
       Top = 80
       Width = 54
@@ -264,7 +178,7 @@ object frmEditElement: TfrmEditElement
       TabOrder = 10
     end
     object udTop: TUpDown
-      Left = 256
+      Left = 308
       Height = 23
       Top = 16
       Width = 12
@@ -276,7 +190,7 @@ object frmEditElement: TfrmEditElement
       Wrap = False
     end
     object udLeft: TUpDown
-      Left = 256
+      Left = 308
       Height = 23
       Top = 44
       Width = 12
@@ -288,11 +202,13 @@ object frmEditElement: TfrmEditElement
       Wrap = False
     end
     object udHeight: TUpDown
-      Left = 361
+      AnchorSideRight.Side = asrBottom
+      Left = 439
       Height = 23
       Top = 16
       Width = 12
       Associate = edHeight
+      BorderSpacing.Right = 8
       Min = 0
       OnClick = UpDownClick
       Position = 0
@@ -300,11 +216,13 @@ object frmEditElement: TfrmEditElement
       Wrap = False
     end
     object udWidth: TUpDown
-      Left = 361
+      AnchorSideRight.Side = asrBottom
+      Left = 439
       Height = 23
       Top = 44
       Width = 12
       Associate = edWidth
+      BorderSpacing.Right = 8
       Min = 0
       OnClick = UpDownClick
       Position = 0
@@ -314,67 +232,282 @@ object frmEditElement: TfrmEditElement
   end
   object gbCaption: TGroupBox
     Left = 12
-    Height = 56
-    Top = 352
-    Width = 388
+    Height = 54
+    Top = 337
+    Width = 465
+    Align = alTop
+    AutoSize = True
+    BorderSpacing.Left = 12
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 12
     Caption = ' Caption '
-    ClientHeight = 36
-    ClientWidth = 384
-    TabOrder = 5
+    ClientHeight = 34
+    ClientWidth = 461
+    TabOrder = 1
     object lblCaptionText: TLabel
-      Left = 16
+      AnchorSideLeft.Control = gbCaption
+      AnchorSideTop.Control = edCaptionText
+      AnchorSideTop.Side = asrCenter
+      Left = 8
       Height = 15
-      Top = 10
+      Top = 6
       Width = 27
+      BorderSpacing.Left = 8
       Caption = 'Text: '
       FocusControl = edCaptionText
       ParentColor = False
     end
     object btnCaptionFont: TButton
-      Left = 312
+      AnchorSideTop.Control = edCaptionText
+      AnchorSideTop.Side = asrCenter
+      AnchorSideRight.Control = gbCaption
+      AnchorSideRight.Side = asrBottom
+      Left = 386
       Height = 25
-      Top = 5
+      Top = 1
       Width = 67
+      Anchors = [akTop, akRight]
+      BorderSpacing.Right = 8
+      BorderSpacing.Bottom = 8
       Caption = 'Font...'
       OnClick = btnCaptionFontClick
       TabOrder = 1
     end
     object edCaptionText: TEdit
-      Left = 52
+      AnchorSideLeft.Control = lblCaptionText
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideRight.Control = btnCaptionFont
+      Left = 39
       Height = 23
-      Top = 6
-      Width = 253
+      Top = 2
+      Width = 343
+      Anchors = [akTop, akLeft, akRight]
+      BorderSpacing.Left = 4
+      BorderSpacing.Top = 2
+      BorderSpacing.Right = 4
+      BorderSpacing.Bottom = 8
       OnChange = edCaptionTextChange
       TabOrder = 0
     end
   end
-  object gbDayOffset: TGroupBox
+  object Panel1: TPanel
+    Left = 12
+    Height = 23
+    Top = 8
+    Width = 465
+    Align = alTop
+    AutoSize = True
+    BorderSpacing.Left = 12
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 12
+    BorderSpacing.Bottom = 8
+    BevelOuter = bvNone
+    ClientHeight = 23
+    ClientWidth = 465
+    TabOrder = 2
+    object lblName: TLabel
+      AnchorSideTop.Control = edName
+      AnchorSideTop.Side = asrCenter
+      Left = 0
+      Height = 15
+      Top = 4
+      Width = 38
+      Caption = 'Name: '
+      ParentColor = False
+    end
+    object edName: TEdit
+      AnchorSideLeft.Control = lblName
+      AnchorSideLeft.Side = asrBottom
+      Left = 42
+      Height = 23
+      Top = 0
+      Width = 423
+      Align = alRight
+      Anchors = [akTop, akLeft, akRight, akBottom]
+      BorderSpacing.Left = 4
+      TabOrder = 0
+    end
+  end
+  object Panel2: TPanel
     Left = 12
     Height = 56
-    Top = 136
-    Width = 92
-    Caption = 'Day Offset'
-    ClientHeight = 36
-    ClientWidth = 88
-    TabOrder = 2
-    object edOffset: TEdit
-      Left = 8
-      Height = 23
-      Top = 6
-      Width = 54
+    Top = 117
+    Width = 467
+    Align = alTop
+    AutoSize = True
+    BorderSpacing.Left = 12
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 10
+    BevelOuter = bvNone
+    ClientHeight = 56
+    ClientWidth = 467
+    TabOrder = 3
+    object gbDayOffset: TGroupBox
+      Left = 0
+      Height = 56
+      Top = 0
+      Width = 98
+      Caption = 'Day Offset'
+      ClientHeight = 36
+      ClientWidth = 94
       TabOrder = 0
-      Text = '0'
+      object edOffset: TEdit
+        Left = 8
+        Height = 23
+        Top = 2
+        Width = 64
+        BorderSpacing.Left = 8
+        BorderSpacing.Bottom = 8
+        TabOrder = 0
+        Text = '0'
+      end
+      object udOffset: TUpDown
+        Left = 72
+        Height = 23
+        Top = 2
+        Width = 12
+        Associate = edOffset
+        BorderSpacing.Right = 8
+        Min = 0
+        Position = 0
+        TabOrder = 1
+        Wrap = False
+      end
     end
-    object udOffset: TUpDown
-      Left = 62
-      Height = 23
-      Top = 6
-      Width = 12
-      Associate = edOffset
-      Min = 0
-      Position = 0
+    object rgDayOffsetUnit: TRadioGroup
+      AnchorSideLeft.Control = gbDayOffset
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideRight.Control = Panel2
+      AnchorSideRight.Side = asrBottom
+      Left = 106
+      Height = 51
+      Top = 0
+      Width = 361
+      Anchors = [akTop, akLeft, akRight]
+      AutoFill = True
+      AutoSize = True
+      BorderSpacing.Left = 8
+      Caption = ' Day Offset 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 = 357
+      Columns = 4
+      ItemIndex = 0
+      Items.Strings = (
+        'Day'
+        'Week'
+        'Month'
+        'Year'
+      )
       TabOrder = 1
-      Wrap = False
+    end
+  end
+  object ButtonPanel: TPanel
+    Left = 12
+    Height = 25
+    Top = 399
+    Width = 465
+    Align = alTop
+    AutoSize = True
+    BorderSpacing.Left = 12
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 12
+    BorderSpacing.Bottom = 9
+    BevelOuter = bvNone
+    ClientHeight = 25
+    ClientWidth = 465
+    TabOrder = 4
+    object btnShape: TButton
+      AnchorSideLeft.Control = ButtonPanel
+      Left = 0
+      Height = 25
+      Top = 0
+      Width = 75
+      Caption = 'Shape...'
+      Enabled = False
+      OnClick = btnShapeClick
+      TabOrder = 0
+    end
+    object btnOk: TButton
+      AnchorSideRight.Control = btnCancel
+      Left = 309
+      Height = 25
+      Top = 0
+      Width = 75
+      Anchors = [akTop, akRight]
+      BorderSpacing.Right = 7
+      Caption = 'OK'
+      Default = True
+      OnClick = btnOkClick
+      TabOrder = 1
+    end
+    object btnCancel: TButton
+      AnchorSideRight.Control = ButtonPanel
+      AnchorSideRight.Side = asrBottom
+      Left = 391
+      Height = 25
+      Top = 0
+      Width = 74
+      Anchors = [akTop, akRight]
+      Cancel = True
+      Caption = 'Cancel'
+      OnClick = btnCancelClick
+      TabOrder = 2
+    end
+  end
+  object ItemTypePanel: TPanel
+    Left = 12
+    Height = 70
+    Top = 39
+    Width = 467
+    Align = alTop
+    AutoSize = True
+    BorderSpacing.Left = 12
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 10
+    BevelOuter = bvNone
+    ClientHeight = 70
+    ClientWidth = 467
+    TabOrder = 5
+    object rgItemType: TRadioGroup
+      Left = 0
+      Height = 70
+      Top = 0
+      Width = 303
+      AutoFill = True
+      AutoSize = True
+      Caption = 'Item Type '
+      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 = 50
+      ClientWidth = 299
+      Columns = 4
+      ItemIndex = 0
+      Items.Strings = (
+        'DayView'
+        'WeekView'
+        'MonthView'
+        'Calendar'
+        'Shape'
+        'Caption'
+        'Tasks'
+        'Contacts'
+      )
+      OnClick = rgItemTypeClick
+      TabOrder = 0
     end
   end
   object FontDialog1: TFontDialog
@@ -382,7 +515,7 @@ object frmEditElement: TfrmEditElement
     Font.Name = 'MS Sans Serif'
     MinFontSize = 0
     MaxFontSize = 0
-    left = 144
-    top = 432
+    left = 224
+    top = 352
   end
 end