1
0
lazarus-tutorials/numberediting/numeditmain.lfm

67 lines
1.2 KiB
Plaintext
Raw Normal View History

2021-10-12 15:20:49 -04:00
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