jvcllaz: some more improvement of JvValidateEdit layout

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

components/jvcllaz/examples/JvValidateEdit/MainFrm.lfm

@@ -21,14 +21,17 @@ object frmValidateEditDemo: TfrmValidateEditDemo
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
     Left = 16
-    Height = 283
+    Height = 289
     Top = 16
-    Width = 502
+    Width = 504
     AutoSize = True
     BorderSpacing.Around = 16
     Caption = 'Properties'
-    ClientHeight = 263
-    ClientWidth = 498
+    ClientHeight = 269
+    ClientWidth = 500
+    Font.Color = clWindowText
+    Font.Style = [fsBold]
+    ParentFont = False
     TabOrder = 0
     object Label1: TLabel
       AnchorSideLeft.Control = cbDisplayFormat
@@ -39,7 +42,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       Width = 82
       BorderSpacing.Top = 8
       Caption = 'Display Format:'
+      Font.Color = clWindowText
       ParentColor = False
+      ParentFont = False
     end
     object Label3: TLabel
       AnchorSideLeft.Control = cbDisplayFormat
@@ -47,23 +52,27 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       AnchorSideBottom.Control = edCheckChars
       Left = 12
       Height = 15
-      Top = 111
+      Top = 117
       Width = 69
       Anchors = [akLeft, akBottom]
       BorderSpacing.Top = 11
       BorderSpacing.Bottom = 4
       Caption = 'Check Chars:'
+      Font.Color = clWindowText
       ParentColor = False
+      ParentFont = False
     end
     object Label4: TLabel
       AnchorSideTop.Control = seDecimalPlaces
       AnchorSideTop.Side = asrCenter
       Left = 236
       Height = 15
-      Top = 108
+      Top = 112
       Width = 79
       Caption = 'Decimal Places'
+      Font.Color = clWindowText
       ParentColor = False
+      ParentFont = False
     end
     object Label6: TLabel
       AnchorSideLeft.Control = cbDisplayFormat
@@ -74,7 +83,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       Top = 58
       Width = 70
       Caption = 'Display Prefix'
+      Font.Color = clWindowText
       ParentColor = False
+      ParentFont = False
     end
     object Label7: TLabel
       AnchorSideLeft.Control = cbDisplayFormat
@@ -85,12 +96,16 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       Top = 85
       Width = 70
       Caption = 'Display Suffix'
+      Font.Color = clWindowText
       ParentColor = False
+      ParentFont = False
     end
     object cbDisplayFormat: TComboBox
       AnchorSideLeft.Control = GroupBox1
       AnchorSideTop.Control = Label1
       AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = edDisplayPrefix
+      AnchorSideRight.Side = asrBottom
       Left = 12
       Height = 23
       Top = 27
@@ -98,35 +113,41 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       BorderSpacing.Left = 12
       BorderSpacing.Top = 4
       DropDownCount = 24
+      Font.Color = clWindowText
       ItemHeight = 15
       OnChange = cbDisplayFormatChange
       OnKeyPress = cbDisplayFormatKeyPress
+      ParentFont = False
       Style = csDropDownList
       TabOrder = 0
     end
     object chkHasMaxValue: TCheckBox
       AnchorSideLeft.Control = chkZeroEmpty
-      AnchorSideTop.Control = chkZeroEmpty
-      AnchorSideTop.Side = asrBottom
+      AnchorSideTop.Control = btnSetDisplayPrefix
+      AnchorSideTop.Side = asrCenter
       Left = 221
       Height = 19
-      Top = 52
+      Top = 56
       Width = 97
       BorderSpacing.Top = 6
       Caption = 'Has Maximum'
+      Font.Color = clWindowText
       OnClick = chkHasMaxValueClick
+      ParentFont = False
       TabOrder = 1
     end
     object chkHasMinValue: TCheckBox
       AnchorSideLeft.Control = chkZeroEmpty
-      AnchorSideTop.Control = edMinValue
+      AnchorSideTop.Control = btnSetDisplaySuffix
       AnchorSideTop.Side = asrCenter
       Left = 221
       Height = 19
-      Top = 79
+      Top = 83
       Width = 96
       Caption = 'Has Minimum'
+      Font.Color = clWindowText
       OnClick = chkHasMinValueClick
+      ParentFont = False
       TabOrder = 2
     end
     object seDecimalPlaces: TSpinEdit
@@ -135,26 +156,31 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       AnchorSideTop.Side = asrBottom
       Left = 330
       Height = 23
-      Top = 104
+      Top = 108
       Width = 49
       BorderSpacing.Top = 4
+      Font.Color = clWindowText
       MaxValue = 0
       OnChange = seDecimalPlacesChange
+      ParentFont = False
       TabOrder = 3
       Value = 2
     end
     object chkZeroEmpty: TCheckBox
       AnchorSideLeft.Control = cbDisplayFormat
       AnchorSideLeft.Side = asrBottom
-      AnchorSideTop.Control = GroupBox1
+      AnchorSideTop.Control = cbDisplayFormat
+      AnchorSideTop.Side = asrCenter
       Left = 221
       Height = 19
-      Top = 27
+      Top = 29
       Width = 96
       BorderSpacing.Left = 16
       BorderSpacing.Top = 27
       Caption = 'Empty if Zero?'
+      Font.Color = clWindowText
       OnClick = chkZeroEmptyClick
+      ParentFont = False
       TabOrder = 4
     end
     object edCheckChars: TEdit
@@ -164,24 +190,32 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       AnchorSideRight.Control = btnCheckChars
       Left = 12
       Height = 23
-      Top = 130
+      Top = 136
       Width = 310
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Right = 8
       BorderSpacing.Bottom = 8
+      Font.Color = clWindowText
+      ParentFont = False
       TabOrder = 5
     end
     object btnCheckChars: TButton
       AnchorSideLeft.Control = edMaxValue
       AnchorSideTop.Control = seDecimalPlaces
       AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = seDecimalPlaces
+      AnchorSideRight.Side = asrBottom
       Left = 330
-      Height = 21
-      Top = 131
+      Height = 25
+      Top = 135
       Width = 49
+      Anchors = [akTop, akLeft, akRight]
+      AutoSize = True
       BorderSpacing.Top = 4
       Caption = 'Set'
+      Font.Color = clWindowText
       OnClick = btnCheckCharsClick
+      ParentFont = False
       TabOrder = 6
     end
     object edDisplayPrefix: TEdit
@@ -195,6 +229,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       Width = 57
       BorderSpacing.Left = 16
       BorderSpacing.Top = 4
+      Font.Color = clWindowText
+      ParentFont = False
       TabOrder = 7
     end
     object edDisplaySuffix: TEdit
@@ -206,6 +242,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       Top = 81
       Width = 57
       BorderSpacing.Top = 4
+      Font.Color = clWindowText
+      ParentFont = False
       TabOrder = 8
     end
     object btnSetDisplayPrefix: TButton
@@ -214,13 +252,16 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       AnchorSideTop.Control = edDisplayPrefix
       AnchorSideTop.Side = asrCenter
       Left = 163
-      Height = 21
-      Top = 55
-      Width = 47
+      Height = 25
+      Top = 53
+      Width = 42
+      AutoSize = True
       BorderSpacing.Left = 8
       BorderSpacing.Top = 4
       Caption = 'Set'
+      Font.Color = clWindowText
       OnClick = btnSetDisplayPrefixClick
+      ParentFont = False
       TabOrder = 9
     end
     object btnSetDisplaySuffix: TButton
@@ -228,12 +269,15 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       AnchorSideTop.Control = edDisplaySuffix
       AnchorSideTop.Side = asrCenter
       Left = 163
-      Height = 21
-      Top = 82
-      Width = 47
+      Height = 25
+      Top = 80
+      Width = 42
+      AutoSize = True
       BorderSpacing.Top = 3
       Caption = 'Set'
+      Font.Color = clWindowText
       OnClick = btnSetDisplaySuffixClick
+      ParentFont = False
       TabOrder = 10
     end
     object edMaxValue: TEdit
@@ -243,10 +287,12 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       AnchorSideTop.Side = asrCenter
       Left = 330
       Height = 23
-      Top = 50
+      Top = 54
       Width = 49
       BorderSpacing.Left = 12
+      Font.Color = clWindowText
       OnExit = edMaxValueExit
+      ParentFont = False
       TabOrder = 11
     end
     object edMinValue: TEdit
@@ -255,10 +301,12 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       AnchorSideTop.Side = asrBottom
       Left = 330
       Height = 23
-      Top = 77
+      Top = 81
       Width = 49
       BorderSpacing.Top = 4
+      Font.Color = clWindowText
       OnExit = edMinValueExit
+      ParentFont = False
       TabOrder = 12
     end
     object GroupBox3: TGroupBox
@@ -266,13 +314,16 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       AnchorSideTop.Side = asrBottom
       Left = 12
       Height = 86
-      Top = 165
-      Width = 474
+      Top = 171
+      Width = 476
       AutoSize = True
       BorderSpacing.Around = 12
       Caption = 'Critical Points'
       ClientHeight = 66
-      ClientWidth = 470
+      ClientWidth = 472
+      Font.Color = clWindowText
+      Font.Style = [fsBold]
+      ParentFont = False
       TabOrder = 13
       object Label9: TLabel
         AnchorSideLeft.Control = edCPMaxValue
@@ -285,7 +336,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
         Width = 36
         BorderSpacing.Left = 16
         Caption = 'Colour'
+        Font.Color = clWindowText
         ParentColor = False
+        ParentFont = False
       end
       object Label11: TLabel
         AnchorSideLeft.Control = Label9
@@ -296,7 +349,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
         Top = 35
         Width = 36
         Caption = 'Colour'
+        Font.Color = clWindowText
         ParentColor = False
+        ParentFont = False
       end
       object Label12: TLabel
         AnchorSideLeft.Control = cbCPCheckPoints
@@ -308,7 +363,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
         Anchors = [akLeft, akBottom]
         BorderSpacing.Bottom = 4
         Caption = 'Check Points:'
+        Font.Color = clWindowText
         ParentColor = False
+        ParentFont = False
       end
       object edCPMaxValue: TEdit
         AnchorSideLeft.Control = chkMaxValueIncluded
@@ -320,7 +377,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
         Width = 49
         BorderSpacing.Left = 16
         BorderSpacing.Top = 4
+        Font.Color = clWindowText
         OnExit = edCPMaxValueExit
+        ParentFont = False
         TabOrder = 0
         Text = '10'
       end
@@ -329,12 +388,14 @@ object frmValidateEditDemo: TfrmValidateEditDemo
         AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = edCPMaxValue
         AnchorSideTop.Side = asrCenter
-        Left = 357
+        Left = 359
         Height = 22
         Top = 4
         Width = 105
-        BorderSpacing.Left = 4
+        BorderSpacing.Left = 6
+        Font.Color = clWindowText
         ItemHeight = 16
+        ParentFont = False
         TabOrder = 1
       end
       object edCPMinValue: TEdit
@@ -346,20 +407,24 @@ object frmValidateEditDemo: TfrmValidateEditDemo
         Top = 31
         Width = 49
         BorderSpacing.Top = 4
+        Font.Color = clWindowText
         OnExit = edCPMinValueExit
+        ParentFont = False
         TabOrder = 2
         Text = '-10'
       end
       object colCPBelow: TColorBox
         AnchorSideLeft.Control = colCPAbove
         AnchorSideTop.Control = edCPMinValue
-        Left = 357
+        Left = 359
         Height = 22
         Top = 31
         Width = 105
         BorderSpacing.Right = 8
         BorderSpacing.Bottom = 6
+        Font.Color = clWindowText
         ItemHeight = 16
+        ParentFont = False
         TabOrder = 3
       end
       object cbCPCheckPoints: TComboBox
@@ -373,8 +438,10 @@ object frmValidateEditDemo: TfrmValidateEditDemo
         BorderSpacing.Left = 12
         BorderSpacing.Bottom = 12
         DropDownCount = 24
+        Font.Color = clWindowText
         ItemHeight = 15
         OnChange = cbCPCheckPointsChange
+        ParentFont = False
         Style = csDropDownList
         TabOrder = 4
       end
@@ -387,7 +454,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
         Top = 6
         Width = 123
         Caption = 'Max Value Included'
+        Font.Color = clWindowText
         OnClick = chkMaxValueIncludedClick
+        ParentFont = False
         TabOrder = 5
       end
       object chkMinValueIncluded: TCheckBox
@@ -401,7 +470,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
         Width = 122
         BorderSpacing.Left = 12
         Caption = 'Min Value Included'
+        Font.Color = clWindowText
         OnClick = chkMinValueIncludedClick
+        ParentFont = False
         TabOrder = 6
       end
     end
@@ -414,14 +485,17 @@ object frmValidateEditDemo: TfrmValidateEditDemo
     AnchorSideRight.Side = asrBottom
     Left = 16
     Height = 130
-    Top = 413
-    Width = 502
+    Top = 419
+    Width = 504
     Anchors = [akTop, akLeft, akRight]
     AutoSize = True
     BorderSpacing.Bottom = 16
     Caption = 'Set To'
     ClientHeight = 110
-    ClientWidth = 498
+    ClientWidth = 500
+    Font.Color = clWindowText
+    Font.Style = [fsBold]
+    ParentFont = False
     TabOrder = 1
     object Label5: TLabel
       AnchorSideLeft.Control = GroupBox2
@@ -433,7 +507,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       Width = 28
       BorderSpacing.Left = 12
       Caption = 'Value'
+      Font.Color = clWindowText
       ParentColor = False
+      ParentFont = False
     end
     object edSetTo: TEdit
       AnchorSideLeft.Control = Label5
@@ -445,6 +521,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       Width = 121
       BorderSpacing.Left = 8
       BorderSpacing.Top = 8
+      Font.Color = clWindowText
+      ParentFont = False
       TabOrder = 0
     end
     object rgSetToType: TRadioGroup
@@ -473,6 +551,7 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       ClientHeight = 31
       ClientWidth = 261
       Columns = 4
+      Font.Color = clWindowText
       ItemIndex = 3
       Items.Strings = (
         'Currency'
@@ -480,6 +559,7 @@ object frmValidateEditDemo: TfrmValidateEditDemo
         'Integer'
         'Text'
       )
+      ParentFont = False
       TabOrder = 1
     end
     object btnSetTo: TButton
@@ -495,7 +575,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       BorderSpacing.Left = 4
       Caption = 'Set'
       Default = True
+      Font.Color = clWindowText
       OnClick = btnSetToClick
+      ParentFont = False
       TabOrder = 2
     end
     object chkAsVariant: TCheckBox
@@ -509,6 +591,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       Width = 71
       BorderSpacing.Left = 16
       Caption = 'as Variant'
+      Font.Color = clWindowText
+      ParentFont = False
       TabOrder = 3
     end
     object btnSetToPI: TButton
@@ -523,7 +607,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       AutoSize = True
       BorderSpacing.Left = 16
       Caption = 'Set to pi'
+      Font.Color = clWindowText
       OnClick = btnSetToPIClick
+      ParentFont = False
       TabOrder = 4
     end
   end
@@ -535,14 +621,17 @@ object frmValidateEditDemo: TfrmValidateEditDemo
     AnchorSideRight.Side = asrBottom
     Left = 16
     Height = 82
-    Top = 315
-    Width = 502
+    Top = 321
+    Width = 504
     Anchors = [akTop, akLeft, akRight]
     AutoSize = True
     BorderSpacing.Bottom = 16
     Caption = 'Validate Edit'
     ClientHeight = 62
-    ClientWidth = 498
+    ClientWidth = 500
+    Font.Color = clWindowText
+    Font.Style = [fsBold]
+    ParentFont = False
     TabOrder = 2
     object chkValueChanged: TCheckBox
       AnchorSideTop.Control = JvValidateEdit
@@ -551,7 +640,7 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Control = GroupBox4
       AnchorSideBottom.Side = asrBottom
-      Left = 322
+      Left = 324
       Height = 19
       Top = 31
       Width = 164
@@ -559,6 +648,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       BorderSpacing.Top = 4
       BorderSpacing.Bottom = 12
       Caption = 'Message on Value Change?'
+      Font.Color = clWindowText
+      ParentFont = False
       TabOrder = 0
     end
     object JvValidateEdit: TJvValidateEdit
@@ -569,7 +660,7 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       Left = 12
       Height = 23
       Top = 4
-      Width = 474
+      Width = 476
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Left = 12
       BorderSpacing.Top = 4
@@ -581,8 +672,10 @@ object frmValidateEditDemo: TfrmValidateEditDemo
       DisplayFormat = dfFloat
       DecimalPlaces = 2
       EditText = '0'
+      Font.Color = clWindowText
       MaxValue = 0
       MinValue = 0
+      ParentFont = False
       TabOrder = 1
       OnCustomValidate = JvValidateEditCustomValidate
       OnValueChanged = JvValidateEditValueChanged