From 70e0a8a6ff2e95f8453462af99cf1ef38dc8e678 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sat, 25 May 2019 14:31:57 +0000 Subject: [PATCH] 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 --- .../examples/JvValidateEdit/MainFrm.lfm | 171 ++++++++++++++---- 1 file changed, 132 insertions(+), 39 deletions(-) diff --git a/components/jvcllaz/examples/JvValidateEdit/MainFrm.lfm b/components/jvcllaz/examples/JvValidateEdit/MainFrm.lfm index 51cec7d69..7a84cd36a 100644 --- a/components/jvcllaz/examples/JvValidateEdit/MainFrm.lfm +++ b/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