67 lines
1.2 KiB
Plaintext
67 lines
1.2 KiB
Plaintext
|
object Form1: TForm1
|
||
|
|
Left = 800
|
||
|
|
Height = 240
|
||
|
|
Top = 281
|
||
|
|
Width = 320
|
||
|
|
Caption = 'SpinEdit example'
|
||
|
|
ClientHeight = 240
|
||
|
|
ClientWidth = 320
|
||
|
|
OnActivate = FormActivate
|
||
|
|
LCLVersion = '2.0.12.0'
|
||
|
|
object lblA: TLabel
|
||
|
|
Left = 56
|
||
|
|
Height = 16
|
||
|
|
Top = 17
|
||
|
|
Width = 55
|
||
|
|
Caption = 'integer A'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object lblB: TLabel
|
||
|
|
Left = 200
|
||
|
|
Height = 16
|
||
|
|
Top = 17
|
||
|
|
Width = 55
|
||
|
|
Caption = 'integer B'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object seA: TSpinEdit
|
||
|
|
Left = 23
|
||
|
|
Height = 21
|
||
|
|
Top = 40
|
||
|
|
Width = 129
|
||
|
|
MaxValue = 10000
|
||
|
|
MinValue = -10000
|
||
|
|
OnChange = ChangeAorB
|
||
|
|
TabOrder = 0
|
||
|
|
Value = 10
|
||
|
|
end
|
||
|
|
object seB: TSpinEdit
|
||
|
|
Left = 160
|
||
|
|
Height = 21
|
||
|
|
Top = 40
|
||
|
|
Width = 136
|
||
|
|
MaxValue = 10000
|
||
|
|
MinValue = -10000
|
||
|
|
OnChange = ChangeAorB
|
||
|
|
TabOrder = 1
|
||
|
|
Value = 10
|
||
|
|
end
|
||
|
|
object DividerBevel1: TDividerBevel
|
||
|
|
Left = 23
|
||
|
|
Height = 16
|
||
|
|
Top = 80
|
||
|
|
Width = 273
|
||
|
|
Caption = 'calculated results'
|
||
|
|
Font.Style = [fsBold]
|
||
|
|
ParentFont = False
|
||
|
|
end
|
||
|
|
object lbResults: TListBox
|
||
|
|
Left = 23
|
||
|
|
Height = 120
|
||
|
|
Top = 104
|
||
|
|
Width = 273
|
||
|
|
ItemHeight = 0
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
end
|