tvplanit: Translate element editor, auto-place controls

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

components/tvplanit/source/vpedelem.lfm

@@ -1,27 +1,19 @@
 object frmEditElement: TfrmEditElement
-  Left = 376
-  Height = 427
-  Top = 163
+  Left = 691
+  Height = 479
+  Top = 226
   Width = 413
   HorzScrollBar.Page = 378
   VertScrollBar.Page = 444
   BorderStyle = bsDialog
   Caption = 'Edit Element'
-  ClientHeight = 427
+  ClientHeight = 479
   ClientWidth = 413
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poScreenCenter
   LCLVersion = '1.7'
-  object Label1: TLabel
-    Left = 20
-    Height = 15
-    Top = 136
-    Width = 58
-    Caption = 'Day Offset:'
-    ParentColor = False
-  end
-  object Label2: TLabel
+  object lblName: TLabel
     Left = 12
     Height = 15
     Top = 16
@@ -61,9 +53,9 @@ object frmEditElement: TfrmEditElement
     OnClick = rgItemTypeClick
     TabOrder = 1
   end
-  object rgDayOffset: TRadioGroup
+  object rgDayOffsetUnit: TRadioGroup
     Left = 116
-    Height = 43
+    Height = 56
     Top = 136
     Width = 284
     AutoFill = True
@@ -76,7 +68,7 @@ object frmEditElement: TfrmEditElement
     ChildSizing.ShrinkVertical = crsScaleChilds
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 4
-    ClientHeight = 23
+    ClientHeight = 36
     ClientWidth = 280
     Columns = 4
     ItemIndex = 0
@@ -91,22 +83,22 @@ object frmEditElement: TfrmEditElement
   object btnOk: TButton
     Left = 240
     Height = 25
-    Top = 392
+    Top = 440
     Width = 75
     Caption = 'OK'
     Default = True
     OnClick = btnOkClick
-    TabOrder = 8
+    TabOrder = 7
   end
   object btnCancel: TButton
     Left = 320
     Height = 25
-    Top = 392
+    Top = 440
     Width = 75
     Cancel = True
     Caption = 'Cancel'
     OnClick = btnCancelClick
-    TabOrder = 9
+    TabOrder = 8
   end
   object edName: TEdit
     Left = 56
@@ -118,52 +110,56 @@ object frmEditElement: TfrmEditElement
   object btnShape: TButton
     Left = 12
     Height = 25
-    Top = 392
+    Top = 440
     Width = 75
     Caption = 'Shape...'
     Enabled = False
     OnClick = btnShapeClick
-    TabOrder = 7
+    TabOrder = 6
   end
   object gbVisual: TGroupBox
     Left = 12
     Height = 129
-    Top = 184
+    Top = 208
     Width = 388
     Caption = ' Visual '
     ClientHeight = 109
     ClientWidth = 384
-    TabOrder = 5
-    object Label3: TLabel
+    TabOrder = 4
+    object LblTop: TLabel
       Left = 172
       Height = 15
       Top = 20
       Width = 23
       Caption = 'Top:'
+      FocusControl = edTop
       ParentColor = False
     end
-    object Label4: TLabel
+    object LblLeft: TLabel
       Left = 172
       Height = 15
       Top = 48
       Width = 23
       Caption = 'Left:'
+      FocusControl = edLeft
       ParentColor = False
     end
-    object Label5: TLabel
+    object LblHeight: TLabel
       Left = 276
       Height = 15
       Top = 20
       Width = 39
       Caption = 'Height:'
+      FocusControl = edHeight
       ParentColor = False
     end
-    object Label6: TLabel
+    object LblWidth: TLabel
       Left = 280
       Height = 15
       Top = 48
       Width = 35
       Caption = 'Width:'
+      FocusControl = edWidth
       ParentColor = False
     end
     object rgMeasurement: TRadioGroup
@@ -222,7 +218,7 @@ object frmEditElement: TfrmEditElement
       Left = 208
       Height = 23
       Top = 16
-      Width = 40
+      Width = 48
       OnEnter = PosEditEnter
       OnExit = PosEditExit
       TabOrder = 2
@@ -232,7 +228,7 @@ object frmEditElement: TfrmEditElement
       Left = 208
       Height = 23
       Top = 44
-      Width = 40
+      Width = 48
       OnEnter = PosEditEnter
       OnExit = PosEditExit
       TabOrder = 4
@@ -259,7 +255,7 @@ object frmEditElement: TfrmEditElement
       Text = '0.00'
     end
     object chkVisible: TCheckBox
-      Left = 228
+      Left = 208
       Height = 19
       Top = 80
       Width = 54
@@ -267,7 +263,7 @@ object frmEditElement: TfrmEditElement
       TabOrder = 10
     end
     object udTop: TUpDown
-      Left = 248
+      Left = 256
       Height = 23
       Top = 16
       Width = 12
@@ -279,7 +275,7 @@ object frmEditElement: TfrmEditElement
       Wrap = False
     end
     object udLeft: TUpDown
-      Left = 248
+      Left = 256
       Height = 23
       Top = 44
       Width = 12
@@ -318,24 +314,25 @@ object frmEditElement: TfrmEditElement
   object gbCaption: TGroupBox
     Left = 12
     Height = 69
-    Top = 316
+    Top = 352
     Width = 388
     Caption = ' Caption '
     ClientHeight = 49
     ClientWidth = 384
-    TabOrder = 6
-    object lbCaptionText: TLabel
+    TabOrder = 5
+    object lblCaptionText: TLabel
       Left = 16
       Height = 15
       Top = 12
       Width = 27
       Caption = 'Text: '
+      FocusControl = edCaptionText
       ParentColor = False
     end
     object btnCaptionFont: TButton
       Left = 312
       Height = 25
-      Top = 6
+      Top = 7
       Width = 67
       Caption = 'Font...'
       OnClick = btnCaptionFontClick
@@ -350,24 +347,34 @@ object frmEditElement: TfrmEditElement
       TabOrder = 0
     end
   end
-  object edOffset: TEdit
-    Left = 20
-    Height = 23
-    Top = 156
-    Width = 54
+  object gbDayOffset: TGroupBox
+    Left = 12
+    Height = 56
+    Top = 136
+    Width = 92
+    Caption = 'Day Offset'
+    ClientHeight = 36
+    ClientWidth = 88
     TabOrder = 2
-    Text = '0'
-  end
-  object udOffset: TUpDown
-    Left = 74
-    Height = 23
-    Top = 156
-    Width = 11
-    Associate = edOffset
-    Min = 0
-    Position = 0
-    TabOrder = 4
-    Wrap = False
+    object edOffset: TEdit
+      Left = 8
+      Height = 23
+      Top = 6
+      Width = 54
+      TabOrder = 0
+      Text = '0'
+    end
+    object udOffset: TUpDown
+      Left = 62
+      Height = 23
+      Top = 6
+      Width = 11
+      Associate = edOffset
+      Min = 0
+      Position = 0
+      TabOrder = 1
+      Wrap = False
+    end
   end
   object FontDialog1: TFontDialog
     Font.Height = -11
@@ -375,6 +382,6 @@ object frmEditElement: TfrmEditElement
     MinFontSize = 0
     MaxFontSize = 0
     left = 176
-    top = 296
+    top = 288
   end
 end