Files
lazarus-ccr/applications/lazstats/source/forms/tools/calculatorunit.lfm
wp_xxyyzz 2f33dc9f7b LazStats: initial commit.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7345 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2020-03-30 18:01:44 +00:00

513 lines
11 KiB
Plaintext

object CalculatorForm: TCalculatorForm
Left = 572
Height = 498
Top = 180
Width = 364
AutoSize = True
Caption = 'Calculator'
ClientHeight = 498
ClientWidth = 364
OnShow = FormShow
Position = poMainFormCenter
LCLVersion = '2.1.0.0'
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = XEdit
AnchorSideTop.Side = asrBottom
Left = 8
Height = 223
Top = 231
Width = 256
BorderSpacing.Left = 8
BorderSpacing.Top = 16
Caption = 'KeyPad'
ChildSizing.LeftRightSpacing = 8
ChildSizing.TopBottomSpacing = 8
ChildSizing.HorizontalSpacing = 8
ChildSizing.VerticalSpacing = 8
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
ChildSizing.ShrinkVertical = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4
ClientHeight = 203
ClientWidth = 252
TabOrder = 0
object sevenbtn: TButton
Left = 8
Height = 41
Top = 8
Width = 52
Caption = '7'
OnClick = sevenbtnClick
TabOrder = 0
end
object eightbtn: TButton
Left = 68
Height = 41
Top = 8
Width = 58
Caption = '8'
OnClick = eightbtnClick
TabOrder = 2
end
object ninebtn: TButton
Left = 134
Height = 41
Top = 8
Width = 52
Caption = ' 9 '
OnClick = ninebtnClick
TabOrder = 3
end
object dividebtn: TButton
Left = 194
Height = 41
Top = 8
Width = 50
Caption = ' / '
OnClick = dividebtnClick
TabOrder = 1
end
object fourbtn: TButton
Left = 8
Height = 41
Top = 57
Width = 52
Caption = '4'
OnClick = fourbtnClick
TabOrder = 4
end
object fivebtn: TButton
Left = 68
Height = 41
Top = 57
Width = 58
Caption = '5'
OnClick = fivebtnClick
TabOrder = 5
end
object sixbtn: TButton
Left = 134
Height = 41
Top = 57
Width = 52
Caption = '6'
OnClick = sixbtnClick
TabOrder = 6
end
object multbtn: TButton
Left = 194
Height = 41
Top = 57
Width = 50
Caption = '*'
OnClick = multbtnClick
TabOrder = 7
end
object onebtn: TButton
Left = 8
Height = 41
Top = 106
Width = 52
Caption = '1'
OnClick = onebtnClick
TabOrder = 8
end
object twobtn: TButton
Left = 68
Height = 41
Top = 106
Width = 58
Caption = '2'
OnClick = twobtnClick
TabOrder = 9
end
object threebtn: TButton
Left = 134
Height = 41
Top = 106
Width = 52
Caption = '3'
OnClick = threebtnClick
TabOrder = 10
end
object subtractbtn: TButton
Left = 194
Height = 41
Top = 106
Width = 50
Caption = '-'
OnClick = subtractbtnClick
TabOrder = 11
end
object ZeroBtn: TButton
Left = 8
Height = 40
Top = 155
Width = 52
Caption = ' 0 '
OnClick = ZeroBtnClick
TabOrder = 12
end
object ChangeSignBtn: TButton
Left = 68
Height = 40
Top = 155
Width = 58
Caption = '+/-'
OnClick = ChangeSignBtnClick
TabOrder = 13
end
object PeriodBtn: TButton
Left = 134
Height = 40
Top = 155
Width = 52
Caption = '.'
OnClick = PeriodBtnClick
TabOrder = 15
end
object Addbtn: TButton
Left = 194
Height = 40
Top = 155
Width = 50
Caption = '+'
OnClick = AddbtnClick
TabOrder = 14
end
end
object GroupBox2: TGroupBox
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox1
AnchorSideBottom.Control = GroupBox1
AnchorSideBottom.Side = asrBottom
Left = 280
Height = 222
Top = 231
Width = 71
BorderSpacing.Left = 16
BorderSpacing.Right = 8
Caption = 'Memory'
ChildSizing.LeftRightSpacing = 8
ChildSizing.TopBottomSpacing = 8
ChildSizing.HorizontalSpacing = 8
ChildSizing.VerticalSpacing = 8
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
ChildSizing.ShrinkVertical = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 202
ClientWidth = 67
TabOrder = 1
object MemInBtn: TButton
Left = 8
Height = 41
Top = 8
Width = 51
Caption = 'X->M'
OnClick = MemInBtnClick
TabOrder = 0
end
object MemOutBtn: TButton
Left = 8
Height = 41
Top = 57
Width = 51
Caption = 'M->X'
OnClick = MemOutBtnClick
TabOrder = 1
end
object MemPlusBtn: TButton
Left = 8
Height = 41
Top = 106
Width = 51
Caption = 'M+'
OnClick = MemPlusBtnClick
TabOrder = 2
end
object EqualBtn: TButton
Left = 8
Height = 39
Top = 155
Width = 51
Caption = '='
OnClick = EqualBtnClick
TabOrder = 3
end
end
object XEdit: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = GroupBox3
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 192
Width = 348
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 24
BorderSpacing.Right = 8
OnKeyPress = XEditKeyPress
TabOrder = 2
Text = 'XEdit'
end
object GroupBox3: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 160
Top = 8
Width = 348
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'Functions'
ChildSizing.LeftRightSpacing = 4
ChildSizing.TopBottomSpacing = 4
ChildSizing.HorizontalSpacing = 4
ChildSizing.VerticalSpacing = 4
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 5
ClientHeight = 140
ClientWidth = 344
TabOrder = 3
object sinbtn: TButton
Left = 4
Height = 30
Top = 4
Width = 65
Caption = 'sin'
OnClick = sinbtnClick
TabOrder = 0
end
object cosbtn: TButton
Left = 73
Height = 30
Top = 4
Width = 60
Caption = 'cos'
OnClick = cosbtnClick
TabOrder = 1
end
object tanbtn: TButton
Left = 137
Height = 30
Top = 4
Width = 78
Caption = 'tan'
OnClick = tanbtnClick
TabOrder = 2
end
object Combobtn: TButton
Left = 219
Height = 30
Top = 4
Width = 55
Caption = 'nCr'
OnClick = CombobtnClick
TabOrder = 3
end
object ClearEntryBtn: TButton
Left = 278
Height = 30
Top = 4
Width = 62
Caption = 'CE'
OnClick = ClearEntryBtnClick
TabOrder = 4
end
object MeanBtn: TButton
Left = 4
Height = 30
Top = 38
Width = 65
Caption = 'Mean'
OnClick = MeanBtnClick
TabOrder = 5
end
object VarBtn: TButton
Left = 73
Height = 30
Top = 38
Width = 60
Caption = 'VAR.'
OnClick = VarBtnClick
TabOrder = 6
end
object StdDevBtn: TButton
Left = 137
Height = 30
Top = 38
Width = 78
Caption = 'Std.Dev.'
OnClick = StdDevBtnClick
TabOrder = 7
end
object natlogbtn: TButton
Left = 219
Height = 30
Top = 38
Width = 55
Caption = 'ln'
OnClick = natlogbtnClick
TabOrder = 8
end
object log10btn: TButton
Left = 278
Height = 30
Top = 38
Width = 62
Caption = 'log10'
OnClick = log10btnClick
TabOrder = 9
end
object sqrbtn: TButton
Left = 4
Height = 30
Top = 72
Width = 65
Caption = 'x^2'
OnClick = sqrbtnClick
TabOrder = 10
end
object sqrtbtn: TButton
Left = 73
Height = 30
Top = 72
Width = 60
Caption = 'sqrt'
OnClick = sqrtbtnClick
TabOrder = 11
end
object ytopowerxbtn: TButton
Left = 137
Height = 30
Top = 72
Width = 78
Caption = 'y^x'
OnClick = ytopowerxbtnClick
TabOrder = 12
end
object etoxbtn: TButton
Left = 219
Height = 30
Top = 72
Width = 55
Caption = 'e^x'
OnClick = etoxbtnClick
TabOrder = 13
end
object tentoxbtn: TButton
Left = 278
Height = 30
Top = 72
Width = 62
Caption = '10^x'
OnClick = tentoxbtnClick
TabOrder = 14
end
object expbtn: TButton
Left = 4
Height = 30
Top = 106
Width = 65
Caption = 'exp'
OnClick = expbtnClick
TabOrder = 15
end
object absbtn: TButton
Left = 73
Height = 30
Top = 106
Width = 60
Caption = 'abs'
OnClick = absbtnClick
TabOrder = 16
end
object PiBtn: TButton
Left = 137
Height = 30
Top = 106
Width = 78
Caption = 'Pi'
OnClick = PiBtnClick
TabOrder = 17
end
object nPrbtn: TButton
Left = 219
Height = 30
Top = 106
Width = 55
Caption = 'nPr'
OnClick = nPrbtnClick
TabOrder = 18
end
object nfactorialbtn: TButton
Left = 278
Height = 30
Top = 106
Width = 62
Caption = 'n!'
OnClick = nfactorialbtnClick
TabOrder = 19
end
end
object Label1: TLabel
AnchorSideTop.Control = NEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = NEdit
Left = 54
Height = 15
Top = 467
Width = 154
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'No. in memory stack (M+) = '
ParentColor = False
end
object NEdit: TEdit
AnchorSideTop.Control = ReturnBtn
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 216
Height = 23
Top = 463
Width = 48
Anchors = [akTop, akRight]
TabOrder = 4
Text = 'NEdit'
end
object ReturnBtn: TButton
AnchorSideTop.Control = GroupBox2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 282
Height = 26
Top = 461
Width = 69
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
Caption = 'Return'
ModalResult = 1
OnClick = ReturnBtnClick
TabOrder = 5
end
end