pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Adjust layout of JvFormatEditDemo to Linux.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6942 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-25 14:22:16 +00:00
parent 16c71930a6
commit 894c443424
3 changed files with 115 additions and 239 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/jvcllaz/examples/JvValidateEdit/JvFormatEditDemo.lpi
View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="11"/> <Version Value="12"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="JvFormatEditDemo"/> <Title Value="JvFormatEditDemo"/>
<Scaled Value="True"/> <Scaled Value="True"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
@ -13,7 +15,6 @@
<XPManifest> <XPManifest>
<DpiAware Value="True"/> <DpiAware Value="True"/>
</XPManifest> </XPManifest>
<Icon Value="0"/>
</General> </General>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="Default" Default="True"/> <Item1 Name="Default" Default="True"/>

2
components/jvcllaz/examples/JvValidateEdit/JvFormatEditDemo.lpr
View File

@ -4,7 +4,7 @@ uses
Forms, Interfaces, Forms, Interfaces,
MainFrm in 'MainFrm.pas' {frmValidateEditDemo}; MainFrm in 'MainFrm.pas' {frmValidateEditDemo};
{$R *.RES} {$R *.res}
begin begin
Application.Scaled:=True; Application.Scaled:=True;

345
components/jvcllaz/examples/JvValidateEdit/MainFrm.lfm
View File

@ -13,8 +13,6 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Constraints.MinWidth = 325 Constraints.MinWidth = 325
DefaultMonitor = dmDesktop DefaultMonitor = dmDesktop
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.1.0.0' LCLVersion = '2.1.0.0'
@ -23,115 +21,86 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 16 Left = 16
Height = 269 Height = 283
Top = 16 Top = 16
Width = 487 Width = 502
AutoSize = True AutoSize = True
BorderSpacing.Around = 16 BorderSpacing.Around = 16
Caption = 'Properties' Caption = 'Properties'
ClientHeight = 251 ClientHeight = 263
ClientWidth = 483 ClientWidth = 498
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = cbDisplayFormat AnchorSideLeft.Control = cbDisplayFormat
AnchorSideTop.Control = GroupBox1 AnchorSideTop.Control = GroupBox1
Left = 12 Left = 12
Height = 13 Height = 15
Top = 8 Top = 8
Width = 75 Width = 82
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'Display Format:' Caption = 'Display Format:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentColor = False ParentColor = False
ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
AnchorSideLeft.Control = cbDisplayFormat AnchorSideLeft.Control = cbDisplayFormat
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = edCheckChars AnchorSideBottom.Control = edCheckChars
Left = 12 Left = 12
Height = 13 Height = 15
Top = 109 Top = 111
Width = 64 Width = 69
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Top = 11 BorderSpacing.Top = 11
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
Caption = 'Check Chars:' Caption = 'Check Chars:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentColor = False ParentColor = False
ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
AnchorSideTop.Control = seDecimalPlaces AnchorSideTop.Control = seDecimalPlaces
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 236 Left = 236
Height = 13 Height = 15
Top = 105 Top = 108
Width = 69 Width = 79
Caption = 'Decimal Places' Caption = 'Decimal Places'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentColor = False ParentColor = False
ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
AnchorSideLeft.Control = cbDisplayFormat AnchorSideLeft.Control = cbDisplayFormat
AnchorSideTop.Control = edDisplayPrefix AnchorSideTop.Control = edDisplayPrefix
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
Height = 13 Height = 15
Top = 54 Top = 58
Width = 65 Width = 70
Caption = 'Display Prefix' Caption = 'Display Prefix'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentColor = False ParentColor = False
ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
AnchorSideLeft.Control = cbDisplayFormat AnchorSideLeft.Control = cbDisplayFormat
AnchorSideTop.Control = edDisplaySuffix AnchorSideTop.Control = edDisplaySuffix
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
Height = 13 Height = 15
Top = 79 Top = 85
Width = 65 Width = 70
Caption = 'Display Suffix' Caption = 'Display Suffix'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentColor = False ParentColor = False
ParentFont = False
end end
object cbDisplayFormat: TComboBox object cbDisplayFormat: TComboBox
AnchorSideLeft.Control = GroupBox1 AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 21 Height = 23
Top = 25 Top = 27
Width = 193 Width = 193
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Top = 4 BorderSpacing.Top = 4
DropDownCount = 24 DropDownCount = 24
Font.Color = clWindowText ItemHeight = 15
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ItemHeight = 13
OnChange = cbDisplayFormatChange OnChange = cbDisplayFormatChange
OnKeyPress = cbDisplayFormatKeyPress OnKeyPress = cbDisplayFormatKeyPress
ParentFont = False
Style = csDropDownList Style = csDropDownList
TabOrder = 0 TabOrder = 0
end end
@ -142,14 +111,10 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Left = 221 Left = 221
Height = 19 Height = 19
Top = 52 Top = 52
Width = 85 Width = 97
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Has Maximum' Caption = 'Has Maximum'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
OnClick = chkHasMaxValueClick OnClick = chkHasMaxValueClick
ParentFont = False
TabOrder = 1 TabOrder = 1
end end
object chkHasMinValue: TCheckBox object chkHasMinValue: TCheckBox
@ -158,31 +123,23 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 221 Left = 221
Height = 19 Height = 19
Top = 77 Top = 79
Width = 81 Width = 96
Caption = 'Has Minimum' Caption = 'Has Minimum'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
OnClick = chkHasMinValueClick OnClick = chkHasMinValueClick
ParentFont = False
TabOrder = 2 TabOrder = 2
end end
object seDecimalPlaces: TSpinEdit object seDecimalPlaces: TSpinEdit
AnchorSideLeft.Control = edMaxValue AnchorSideLeft.Control = edMaxValue
AnchorSideTop.Control = edMinValue AnchorSideTop.Control = edMinValue
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 318 Left = 330
Height = 21 Height = 23
Top = 101 Top = 104
Width = 49 Width = 49
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
MaxValue = 0 MaxValue = 0
OnChange = seDecimalPlacesChange OnChange = seDecimalPlacesChange
ParentFont = False
TabOrder = 3 TabOrder = 3
Value = 2 Value = 2
end end
@ -193,15 +150,11 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Left = 221 Left = 221
Height = 19 Height = 19
Top = 27 Top = 27
Width = 89 Width = 96
BorderSpacing.Left = 16 BorderSpacing.Left = 16
BorderSpacing.Top = 27 BorderSpacing.Top = 27
Caption = 'Empty if Zero?' Caption = 'Empty if Zero?'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
OnClick = chkZeroEmptyClick OnClick = chkZeroEmptyClick
ParentFont = False
TabOrder = 4 TabOrder = 4
end end
object edCheckChars: TEdit object edCheckChars: TEdit
@ -210,33 +163,25 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnCheckChars AnchorSideRight.Control = btnCheckChars
Left = 12 Left = 12
Height = 21 Height = 23
Top = 126 Top = 130
Width = 298 Width = 310
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentFont = False
TabOrder = 5 TabOrder = 5
end end
object btnCheckChars: TButton object btnCheckChars: TButton
AnchorSideLeft.Control = edMaxValue AnchorSideLeft.Control = edMaxValue
AnchorSideTop.Control = seDecimalPlaces AnchorSideTop.Control = seDecimalPlaces
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 318 Left = 330
Height = 21 Height = 21
Top = 126 Top = 131
Width = 49 Width = 49
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Set' Caption = 'Set'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
OnClick = btnCheckCharsClick OnClick = btnCheckCharsClick
ParentFont = False
TabOrder = 6 TabOrder = 6
end end
object edDisplayPrefix: TEdit object edDisplayPrefix: TEdit
@ -244,31 +189,23 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbDisplayFormat AnchorSideTop.Control = cbDisplayFormat
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 93 Left = 98
Height = 21 Height = 23
Top = 50 Top = 54
Width = 57 Width = 57
BorderSpacing.Left = 16 BorderSpacing.Left = 16
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentFont = False
TabOrder = 7 TabOrder = 7
end end
object edDisplaySuffix: TEdit object edDisplaySuffix: TEdit
AnchorSideLeft.Control = edDisplayPrefix AnchorSideLeft.Control = edDisplayPrefix
AnchorSideTop.Control = edDisplayPrefix AnchorSideTop.Control = edDisplayPrefix
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 93 Left = 98
Height = 21 Height = 23
Top = 75 Top = 81
Width = 57 Width = 57
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentFont = False
TabOrder = 8 TabOrder = 8
end end
object btnSetDisplayPrefix: TButton object btnSetDisplayPrefix: TButton
@ -276,35 +213,27 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edDisplayPrefix AnchorSideTop.Control = edDisplayPrefix
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 158 Left = 163
Height = 21 Height = 21
Top = 50 Top = 55
Width = 47 Width = 47
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Set' Caption = 'Set'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
OnClick = btnSetDisplayPrefixClick OnClick = btnSetDisplayPrefixClick
ParentFont = False
TabOrder = 9 TabOrder = 9
end end
object btnSetDisplaySuffix: TButton object btnSetDisplaySuffix: TButton
AnchorSideLeft.Control = btnSetDisplayPrefix AnchorSideLeft.Control = btnSetDisplayPrefix
AnchorSideTop.Control = edDisplaySuffix AnchorSideTop.Control = edDisplaySuffix
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 158 Left = 163
Height = 21 Height = 21
Top = 75 Top = 82
Width = 47 Width = 47
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'Set' Caption = 'Set'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
OnClick = btnSetDisplaySuffixClick OnClick = btnSetDisplaySuffixClick
ParentFont = False
TabOrder = 10 TabOrder = 10
end end
object edMaxValue: TEdit object edMaxValue: TEdit
@ -312,60 +241,48 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = chkHasMaxValue AnchorSideTop.Control = chkHasMaxValue
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 318 Left = 330
Height = 21 Height = 23
Top = 51 Top = 50
Width = 49 Width = 49
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
OnExit = edMaxValueExit OnExit = edMaxValueExit
ParentFont = False
TabOrder = 11 TabOrder = 11
end end
object edMinValue: TEdit object edMinValue: TEdit
AnchorSideLeft.Control = edMaxValue AnchorSideLeft.Control = edMaxValue
AnchorSideTop.Control = edMaxValue AnchorSideTop.Control = edMaxValue
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 318 Left = 330
Height = 21 Height = 23
Top = 76 Top = 77
Width = 49 Width = 49
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
OnExit = edMinValueExit OnExit = edMinValueExit
ParentFont = False
TabOrder = 12 TabOrder = 12
end end
object GroupBox3: TGroupBox object GroupBox3: TGroupBox
AnchorSideTop.Control = edCheckChars AnchorSideTop.Control = edCheckChars
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 80 Height = 86
Top = 159 Top = 165
Width = 459 Width = 474
AutoSize = True AutoSize = True
BorderSpacing.Around = 12 BorderSpacing.Around = 12
Caption = 'Critical Points' Caption = 'Critical Points'
ClientHeight = 62 ClientHeight = 66
ClientWidth = 455 ClientWidth = 470
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentFont = False
TabOrder = 13 TabOrder = 13
object Label9: TLabel object Label9: TLabel
AnchorSideLeft.Control = edCPMaxValue AnchorSideLeft.Control = edCPMaxValue
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = colCPAbove AnchorSideTop.Control = colCPAbove
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 307 Left = 317
Height = 13 Height = 15
Top = 8 Top = 8
Width = 31 Width = 36
BorderSpacing.Left = 16 BorderSpacing.Left = 16
Caption = 'Colour' Caption = 'Colour'
ParentColor = False ParentColor = False
@ -374,10 +291,10 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Control = Label9 AnchorSideLeft.Control = Label9
AnchorSideTop.Control = colCPBelow AnchorSideTop.Control = colCPBelow
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 307 Left = 317
Height = 13 Height = 15
Top = 34 Top = 35
Width = 31 Width = 36
Caption = 'Colour' Caption = 'Colour'
ParentColor = False ParentColor = False
end end
@ -385,9 +302,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Control = cbCPCheckPoints AnchorSideLeft.Control = cbCPCheckPoints
AnchorSideBottom.Control = cbCPCheckPoints AnchorSideBottom.Control = cbCPCheckPoints
Left = 12 Left = 12
Height = 13 Height = 15
Top = 12 Top = 12
Width = 65 Width = 72
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
Caption = 'Check Points:' Caption = 'Check Points:'
@ -397,8 +314,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Control = chkMaxValueIncluded AnchorSideLeft.Control = chkMaxValueIncluded
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox3 AnchorSideTop.Control = GroupBox3
Left = 242 Left = 252
Height = 21 Height = 23
Top = 4 Top = 4
Width = 49 Width = 49
BorderSpacing.Left = 16 BorderSpacing.Left = 16
@ -412,9 +329,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edCPMaxValue AnchorSideTop.Control = edCPMaxValue
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 342 Left = 357
Height = 22 Height = 22
Top = 3 Top = 4
Width = 105 Width = 105
BorderSpacing.Left = 4 BorderSpacing.Left = 4
ItemHeight = 16 ItemHeight = 16
@ -424,9 +341,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Control = edCPMaxValue AnchorSideLeft.Control = edCPMaxValue
AnchorSideTop.Control = edCPMaxValue AnchorSideTop.Control = edCPMaxValue
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 242 Left = 252
Height = 21 Height = 23
Top = 29 Top = 31
Width = 49 Width = 49
BorderSpacing.Top = 4 BorderSpacing.Top = 4
OnExit = edCPMinValueExit OnExit = edCPMinValueExit
@ -436,9 +353,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
object colCPBelow: TColorBox object colCPBelow: TColorBox
AnchorSideLeft.Control = colCPAbove AnchorSideLeft.Control = colCPAbove
AnchorSideTop.Control = edCPMinValue AnchorSideTop.Control = edCPMinValue
Left = 342 Left = 357
Height = 22 Height = 22
Top = 29 Top = 31
Width = 105 Width = 105
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
@ -450,13 +367,13 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideTop.Control = edCPMinValue AnchorSideTop.Control = edCPMinValue
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
Height = 21 Height = 23
Top = 29 Top = 31
Width = 89 Width = 89
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
DropDownCount = 24 DropDownCount = 24
ItemHeight = 13 ItemHeight = 15
OnChange = cbCPCheckPointsChange OnChange = cbCPCheckPointsChange
Style = csDropDownList Style = csDropDownList
TabOrder = 4 TabOrder = 4
@ -467,8 +384,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 113 Left = 113
Height = 19 Height = 19
Top = 5 Top = 6
Width = 113 Width = 123
Caption = 'Max Value Included' Caption = 'Max Value Included'
OnClick = chkMaxValueIncludedClick OnClick = chkMaxValueIncludedClick
TabOrder = 5 TabOrder = 5
@ -480,8 +397,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 113 Left = 113
Height = 19 Height = 19
Top = 30 Top = 33
Width = 109 Width = 122
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Min Value Included' Caption = 'Min Value Included'
OnClick = chkMinValueIncludedClick OnClick = chkMinValueIncludedClick
@ -496,51 +413,38 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideRight.Control = GroupBox1 AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 16 Left = 16
Height = 124 Height = 130
Top = 395 Top = 413
Width = 487 Width = 502
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Bottom = 16 BorderSpacing.Bottom = 16
Caption = 'Set To' Caption = 'Set To'
ClientHeight = 106 ClientHeight = 110
ClientWidth = 483 ClientWidth = 498
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1 TabOrder = 1
object Label5: TLabel object Label5: TLabel
AnchorSideLeft.Control = GroupBox2 AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = edSetTo AnchorSideTop.Control = edSetTo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
Height = 13 Height = 15
Top = 12 Top = 12
Width = 26 Width = 28
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Value' Caption = 'Value'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentColor = False ParentColor = False
ParentFont = False
end end
object edSetTo: TEdit object edSetTo: TEdit
AnchorSideLeft.Control = Label5 AnchorSideLeft.Control = Label5
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox2 AnchorSideTop.Control = GroupBox2
Left = 46 Left = 48
Height = 21 Height = 23
Top = 8 Top = 8
Width = 121 Width = 121
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentFont = False
TabOrder = 0 TabOrder = 0
end end
object rgSetToType: TRadioGroup object rgSetToType: TRadioGroup
@ -549,9 +453,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 12 Left = 12
Height = 49 Height = 51
Top = 41 Top = 43
Width = 258 Width = 265
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
BorderSpacing.Top = 12 BorderSpacing.Top = 12
@ -567,11 +471,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4 ChildSizing.ControlsPerLine = 4
ClientHeight = 31 ClientHeight = 31
ClientWidth = 254 ClientWidth = 261
Columns = 4 Columns = 4
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ItemIndex = 3 ItemIndex = 3
Items.Strings = ( Items.Strings = (
'Currency' 'Currency'
@ -579,7 +480,6 @@ object frmValidateEditDemo: TfrmValidateEditDemo
'Integer' 'Integer'
'Text' 'Text'
) )
ParentFont = False
TabOrder = 1 TabOrder = 1
end end
object btnSetTo: TButton object btnSetTo: TButton
@ -587,19 +487,15 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edSetTo AnchorSideTop.Control = edSetTo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 171 Left = 173
Height = 23 Height = 25
Top = 7 Top = 7
Width = 42 Width = 42
AutoSize = True AutoSize = True
BorderSpacing.Left = 4 BorderSpacing.Left = 4
Caption = 'Set' Caption = 'Set'
Default = True Default = True
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
OnClick = btnSetToClick OnClick = btnSetToClick
ParentFont = False
TabOrder = 2 TabOrder = 2
end end
object chkAsVariant: TCheckBox object chkAsVariant: TCheckBox
@ -607,16 +503,12 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edSetTo AnchorSideTop.Control = edSetTo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 229 Left = 231
Height = 19 Height = 19
Top = 9 Top = 10
Width = 68 Width = 71
BorderSpacing.Left = 16 BorderSpacing.Left = 16
Caption = 'as Variant' Caption = 'as Variant'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentFont = False
TabOrder = 3 TabOrder = 3
end end
object btnSetToPI: TButton object btnSetToPI: TButton
@ -624,18 +516,14 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edSetTo AnchorSideTop.Control = edSetTo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 313 Left = 318
Height = 23 Height = 25
Top = 7 Top = 7
Width = 66 Width = 69
AutoSize = True AutoSize = True
BorderSpacing.Left = 16 BorderSpacing.Left = 16
Caption = 'Set to pi' Caption = 'Set to pi'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
OnClick = btnSetToPIClick OnClick = btnSetToPIClick
ParentFont = False
TabOrder = 4 TabOrder = 4
end end
end end
@ -646,20 +534,15 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideRight.Control = GroupBox1 AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 16 Left = 16
Height = 78 Height = 82
Top = 301 Top = 315
Width = 487 Width = 502
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Bottom = 16 BorderSpacing.Bottom = 16
Caption = 'Validate Edit' Caption = 'Validate Edit'
ClientHeight = 60 ClientHeight = 62
ClientWidth = 483 ClientWidth = 498
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2 TabOrder = 2
object chkValueChanged: TCheckBox object chkValueChanged: TCheckBox
AnchorSideTop.Control = JvValidateEdit AnchorSideTop.Control = JvValidateEdit
@ -668,18 +551,14 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = GroupBox4 AnchorSideBottom.Control = GroupBox4
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 320 Left = 322
Height = 19 Height = 19
Top = 29 Top = 31
Width = 151 Width = 164
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
Caption = 'Message on Value Change?' Caption = 'Message on Value Change?'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
ParentFont = False
TabOrder = 0 TabOrder = 0
end end
object JvValidateEdit: TJvValidateEdit object JvValidateEdit: TJvValidateEdit
@ -688,9 +567,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideRight.Control = GroupBox4 AnchorSideRight.Control = GroupBox4
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 12 Left = 12
Height = 21 Height = 23
Top = 4 Top = 4
Width = 459 Width = 474
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Top = 4 BorderSpacing.Top = 4
@ -702,12 +581,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
DisplayFormat = dfFloat DisplayFormat = dfFloat
DecimalPlaces = 2 DecimalPlaces = 2
EditText = '0' EditText = '0'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
MaxValue = 0 MaxValue = 0
MinValue = 0 MinValue = 0
ParentFont = False
TabOrder = 1 TabOrder = 1
OnCustomValidate = JvValidateEditCustomValidate OnCustomValidate = JvValidateEditCustomValidate
OnValueChanged = JvValidateEditValueChanged OnValueChanged = JvValidateEditValueChanged