You've already forked lazarus-ccr
b24bcfec2b
- disallow setting values that are not in original DigitsPPossible set - disallow clearing the set entirely git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7250 8e941d3f-bd1b-0410-a28a-d453659cc2b4
67 lines
1.5 KiB
Plaintext
67 lines
1.5 KiB
Plaintext
object DigitSetEditorForm: TDigitSetEditorForm
|
|
Left = 668
|
|
Height = 240
|
|
Top = 144
|
|
Width = 320
|
|
BorderStyle = bsDialog
|
|
Caption = 'DigitSetEditorForm'
|
|
ClientHeight = 240
|
|
ClientWidth = 320
|
|
KeyPreview = True
|
|
OnActivate = FormActivate
|
|
OnKeyPress = FormKeyPress
|
|
OnShow = FormShow
|
|
LCLVersion = '2.1.0.0'
|
|
object DigitCG: TCheckGroup
|
|
Left = 16
|
|
Height = 89
|
|
Top = 16
|
|
Width = 136
|
|
AutoFill = True
|
|
Caption = 'Digits'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.VerticalSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsScaleChilds
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 3
|
|
ClientHeight = 69
|
|
ClientWidth = 132
|
|
Columns = 3
|
|
Items.Strings = (
|
|
'1'
|
|
'2'
|
|
'3'
|
|
'4'
|
|
'5'
|
|
'6'
|
|
'7'
|
|
'8'
|
|
'9'
|
|
)
|
|
OnItemClick = DigitCGItemClick
|
|
ParentBiDiMode = False
|
|
TabOrder = 0
|
|
Data = {
|
|
09000000020202020202020202
|
|
}
|
|
end
|
|
object btnOK: TButton
|
|
AnchorSideLeft.Control = DigitCG
|
|
AnchorSideRight.Control = DigitCG
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 16
|
|
Height = 25
|
|
Top = 112
|
|
Width = 136
|
|
Anchors = [akTop, akLeft, akRight]
|
|
Caption = '&Ok'
|
|
Default = True
|
|
ModalResult = 1
|
|
TabOrder = 1
|
|
end
|
|
end
|