mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 05:07:53 +02:00
103 lines
2.4 KiB
Plaintext
103 lines
2.4 KiB
Plaintext
inherited Form2: TForm2
|
|
Left = 635
|
|
Height = 280
|
|
Top = 148
|
|
Width = 288
|
|
Caption = 'Second Form'
|
|
ClientHeight = 280
|
|
ClientWidth = 288
|
|
OnCreate = FormCreate
|
|
object LblTodayIs: TLabel[0]
|
|
Left = 16
|
|
Height = 15
|
|
Top = 16
|
|
Width = 57
|
|
Caption = 'LblTodayIs'
|
|
Color = clDefault
|
|
ParentColor = False
|
|
end
|
|
object LblMoney: TLabel[1]
|
|
Left = 16
|
|
Height = 15
|
|
Top = 40
|
|
Width = 53
|
|
Caption = 'LblMoney'
|
|
Color = clDefault
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object GroupBox1: TGroupBox[2]
|
|
Left = 16
|
|
Height = 160
|
|
Top = 72
|
|
Width = 256
|
|
Caption = 'Please select'
|
|
ClientHeight = 142
|
|
ClientWidth = 252
|
|
TabOrder = 0
|
|
object RadioGroup: TRadioGroup
|
|
Left = 7
|
|
Height = 90
|
|
Top = 9
|
|
Width = 111
|
|
AutoFill = True
|
|
Caption = 'Single item'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 72
|
|
ClientWidth = 107
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'one'
|
|
'two'
|
|
'three'
|
|
)
|
|
OnSelectionChanged = RadioGroupSelectionChanged
|
|
TabOrder = 0
|
|
end
|
|
object CheckGroup: TCheckGroup
|
|
Left = 134
|
|
Height = 90
|
|
Top = 9
|
|
Width = 104
|
|
AutoFill = True
|
|
Caption = 'Several items'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 72
|
|
ClientWidth = 100
|
|
Items.Strings = (
|
|
'one'
|
|
'two'
|
|
'three'
|
|
)
|
|
OnItemClick = CheckGroupItemClick
|
|
TabOrder = 1
|
|
Data = {
|
|
03000000020202
|
|
}
|
|
end
|
|
object LblSum: TLabel
|
|
Left = 7
|
|
Height = 15
|
|
Top = 112
|
|
Width = 231
|
|
AutoSize = False
|
|
Caption = 'LblSum'
|
|
Color = clDefault
|
|
ParentColor = False
|
|
end
|
|
end
|
|
end
|