93e37e8e76
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6140 8e941d3f-bd1b-0410-a28a-d453659cc2b4
478 lines
9.4 KiB
Plaintext
478 lines
9.4 KiB
Plaintext
object StDlg: TStDlg
|
|
Left = 693
|
|
Height = 270
|
|
Top = 379
|
|
Width = 462
|
|
BorderStyle = bsDialog
|
|
Caption = 'Expression Evaluator (StExpr) Example'
|
|
ClientHeight = 270
|
|
ClientWidth = 462
|
|
Color = clBtnFace
|
|
Font.Color = clWindowText
|
|
Position = poScreenCenter
|
|
LCLVersion = '1.9.0.0'
|
|
object Label1: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 16
|
|
Width = 128
|
|
Caption = 'Expression to evaluate:'
|
|
Font.Color = clWindowText
|
|
Font.Style = [fsBold]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 63
|
|
Width = 38
|
|
Caption = 'Result:'
|
|
Font.Color = clWindowText
|
|
Font.Style = [fsBold]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 204
|
|
Height = 141
|
|
Top = 112
|
|
Width = 165
|
|
BevelOuter = bvLowered
|
|
ClientHeight = 141
|
|
ClientWidth = 165
|
|
TabOrder = 4
|
|
object DivBtn: TBitBtn
|
|
Left = 123
|
|
Height = 28
|
|
Top = 9
|
|
Width = 35
|
|
Caption = '/'
|
|
Font.Color = clRed
|
|
OnClick = DivBtnClick
|
|
ParentFont = False
|
|
TabOrder = 15
|
|
end
|
|
object MulBtn: TBitBtn
|
|
Left = 123
|
|
Height = 28
|
|
Top = 42
|
|
Width = 35
|
|
Caption = '*'
|
|
Font.Color = clRed
|
|
OnClick = MulBtnClick
|
|
ParentFont = False
|
|
TabOrder = 14
|
|
end
|
|
object MinusBtn: TBitBtn
|
|
Left = 123
|
|
Height = 28
|
|
Top = 74
|
|
Width = 35
|
|
Caption = '-'
|
|
Font.Color = clRed
|
|
OnClick = MinusBtnClick
|
|
ParentFont = False
|
|
TabOrder = 13
|
|
end
|
|
object PlusBtn: TBitBtn
|
|
Left = 123
|
|
Height = 28
|
|
Top = 107
|
|
Width = 35
|
|
Caption = '+'
|
|
Font.Color = clRed
|
|
OnClick = PlusBtnClick
|
|
ParentFont = False
|
|
TabOrder = 12
|
|
end
|
|
object EBtn: TBitBtn
|
|
Left = 45
|
|
Height = 28
|
|
Top = 107
|
|
Width = 35
|
|
Caption = 'E'
|
|
Font.Color = clBlue
|
|
OnClick = EBtnClick
|
|
ParentFont = False
|
|
TabOrder = 11
|
|
end
|
|
object Nr3Btn: TBitBtn
|
|
Left = 84
|
|
Height = 28
|
|
Top = 74
|
|
Width = 35
|
|
Caption = '3'
|
|
Font.Color = clBlue
|
|
OnClick = Nr3BtnClick
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
end
|
|
object Nr6Btn: TBitBtn
|
|
Left = 84
|
|
Height = 28
|
|
Top = 42
|
|
Width = 35
|
|
Caption = '6'
|
|
Font.Color = clBlue
|
|
OnClick = Nr6BtnClick
|
|
ParentFont = False
|
|
TabOrder = 6
|
|
end
|
|
object Nr9Btn: TBitBtn
|
|
Left = 84
|
|
Height = 28
|
|
Top = 9
|
|
Width = 35
|
|
Caption = '9'
|
|
Font.Color = clBlue
|
|
OnClick = Nr9BtnClick
|
|
ParentFont = False
|
|
TabOrder = 9
|
|
end
|
|
object DotBtn: TBitBtn
|
|
Left = 84
|
|
Height = 28
|
|
Top = 107
|
|
Width = 35
|
|
Caption = '.'
|
|
Font.Color = clBlue
|
|
OnClick = DotBtnClick
|
|
ParentFont = False
|
|
TabOrder = 10
|
|
end
|
|
object Nr2Btn: TBitBtn
|
|
Left = 45
|
|
Height = 28
|
|
Top = 74
|
|
Width = 35
|
|
Caption = '2'
|
|
Font.Color = clBlue
|
|
OnClick = Nr2BtnClick
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
end
|
|
object Nr5Btn: TBitBtn
|
|
Left = 45
|
|
Height = 28
|
|
Top = 42
|
|
Width = 35
|
|
Caption = '5'
|
|
Font.Color = clBlue
|
|
OnClick = Nr5BtnClick
|
|
ParentFont = False
|
|
TabOrder = 5
|
|
end
|
|
object Nr8Btn: TBitBtn
|
|
Left = 45
|
|
Height = 28
|
|
Top = 9
|
|
Width = 35
|
|
Caption = '8'
|
|
Font.Color = clBlue
|
|
OnClick = Nr8BtnClick
|
|
ParentFont = False
|
|
TabOrder = 8
|
|
end
|
|
object Nr0Btn: TBitBtn
|
|
Left = 6
|
|
Height = 28
|
|
Top = 107
|
|
Width = 35
|
|
Caption = '0'
|
|
Font.Color = clBlue
|
|
OnClick = Nr0BtnClick
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
object Nr1Btn: TBitBtn
|
|
Left = 6
|
|
Height = 28
|
|
Top = 74
|
|
Width = 35
|
|
Caption = '1'
|
|
Font.Color = clBlue
|
|
OnClick = Nr1BtnClick
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
end
|
|
object Nr4Btn: TBitBtn
|
|
Left = 6
|
|
Height = 28
|
|
Top = 42
|
|
Width = 35
|
|
Caption = '4'
|
|
Font.Color = clBlue
|
|
OnClick = Nr4BtnClick
|
|
ParentFont = False
|
|
TabOrder = 4
|
|
end
|
|
object Nr7Btn: TBitBtn
|
|
Left = 6
|
|
Height = 28
|
|
Top = 9
|
|
Width = 35
|
|
Caption = '7'
|
|
Font.Color = clBlue
|
|
OnClick = Nr7BtnClick
|
|
ParentFont = False
|
|
TabOrder = 7
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 24
|
|
Height = 141
|
|
Top = 112
|
|
Width = 169
|
|
BevelOuter = bvLowered
|
|
ClientHeight = 141
|
|
ClientWidth = 169
|
|
TabOrder = 5
|
|
object SqrtBtn: TBitBtn
|
|
Left = 48
|
|
Height = 28
|
|
Top = 106
|
|
Width = 35
|
|
Caption = 'sqrt'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = SqrtBtnClick
|
|
ParentFont = False
|
|
TabOrder = 9
|
|
end
|
|
object PiBtn: TBitBtn
|
|
Left = 9
|
|
Height = 28
|
|
Top = 9
|
|
Width = 35
|
|
Caption = 'pi'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = PiBtnClick
|
|
ParentFont = False
|
|
TabOrder = 15
|
|
end
|
|
object ExpBtn: TBitBtn
|
|
Left = 87
|
|
Height = 28
|
|
Top = 74
|
|
Width = 35
|
|
Caption = 'Exp'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = ExpBtnClick
|
|
ParentFont = False
|
|
TabOrder = 7
|
|
end
|
|
object PowerBtn: TBitBtn
|
|
Left = 48
|
|
Height = 28
|
|
Top = 41
|
|
Width = 35
|
|
Caption = '^'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = PowerBtnClick
|
|
ParentFont = False
|
|
TabOrder = 11
|
|
end
|
|
object CommaBtn: TBitBtn
|
|
Left = 126
|
|
Height = 28
|
|
Top = 9
|
|
Width = 35
|
|
Caption = ','
|
|
Enabled = False
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = CommaBtnClick
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
end
|
|
object CosBtn: TBitBtn
|
|
Left = 9
|
|
Height = 28
|
|
Top = 73
|
|
Width = 35
|
|
Caption = 'cos'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = CosBtnClick
|
|
ParentFont = False
|
|
TabOrder = 13
|
|
end
|
|
object LnBtn: TBitBtn
|
|
Left = 87
|
|
Height = 28
|
|
Top = 42
|
|
Width = 35
|
|
Caption = 'ln'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = LnBtnClick
|
|
ParentFont = False
|
|
TabOrder = 8
|
|
end
|
|
object SqrBtn: TBitBtn
|
|
Left = 48
|
|
Height = 28
|
|
Top = 74
|
|
Width = 35
|
|
Caption = 'sqr'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = SqrBtnClick
|
|
ParentFont = False
|
|
TabOrder = 10
|
|
end
|
|
object RParBtn: TBitBtn
|
|
Left = 87
|
|
Height = 28
|
|
Top = 9
|
|
Width = 35
|
|
Caption = ')'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = RParBtnClick
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
end
|
|
object ArctanBtn: TBitBtn
|
|
Left = 9
|
|
Height = 28
|
|
Top = 106
|
|
Width = 35
|
|
Caption = 'arctan'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = ArctanBtnClick
|
|
ParentFont = False
|
|
TabOrder = 12
|
|
end
|
|
object IntBtn: TBitBtn
|
|
Left = 126
|
|
Height = 28
|
|
Top = 106
|
|
Width = 35
|
|
Caption = 'int'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = IntBtnClick
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
end
|
|
object SinBtn: TBitBtn
|
|
Left = 9
|
|
Height = 28
|
|
Top = 41
|
|
Width = 35
|
|
Caption = 'sin'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = SinBtnClick
|
|
ParentFont = False
|
|
TabOrder = 14
|
|
end
|
|
object LParBtn: TBitBtn
|
|
Left = 48
|
|
Height = 28
|
|
Top = 9
|
|
Width = 35
|
|
Caption = '('
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = LParBtnClick
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
object AbsBtn: TBitBtn
|
|
Left = 87
|
|
Height = 28
|
|
Top = 106
|
|
Width = 35
|
|
Caption = 'abs'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = AbsBtnClick
|
|
ParentFont = False
|
|
TabOrder = 6
|
|
end
|
|
object FracBtn: TBitBtn
|
|
Left = 126
|
|
Height = 28
|
|
Top = 74
|
|
Width = 35
|
|
Caption = 'frac'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = FracBtnClick
|
|
ParentFont = False
|
|
TabOrder = 4
|
|
end
|
|
object RoundBtn: TBitBtn
|
|
Left = 126
|
|
Height = 28
|
|
Top = 41
|
|
Width = 35
|
|
Caption = 'round'
|
|
Font.Color = clFuchsia
|
|
Font.Height = -11
|
|
OnClick = RoundBtnClick
|
|
ParentFont = False
|
|
TabOrder = 5
|
|
end
|
|
end
|
|
object ResultEdit: TEdit
|
|
Left = 16
|
|
Height = 23
|
|
Top = 79
|
|
Width = 432
|
|
Color = clBtnFace
|
|
ReadOnly = True
|
|
TabStop = False
|
|
TabOrder = 6
|
|
end
|
|
object EvaluateBtn: TBitBtn
|
|
Left = 380
|
|
Height = 25
|
|
Top = 116
|
|
Width = 65
|
|
Caption = 'Evaluate'
|
|
Default = True
|
|
Font.Color = clMaroon
|
|
OnClick = EvaluateBtnClick
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
end
|
|
object ClearBtn: TBitBtn
|
|
Left = 380
|
|
Height = 25
|
|
Top = 148
|
|
Width = 65
|
|
Caption = 'Clear'
|
|
Font.Color = clMaroon
|
|
OnClick = ClearBtnClick
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
end
|
|
object ExprEdit: TStExpressionEdit
|
|
Left = 16
|
|
Height = 23
|
|
Top = 32
|
|
Width = 433
|
|
TabOrder = 0
|
|
OnError = ExprEditError
|
|
end
|
|
object BSBtn: TBitBtn
|
|
Left = 380
|
|
Height = 25
|
|
Top = 180
|
|
Width = 65
|
|
Caption = 'Backspace'
|
|
Font.Color = clMaroon
|
|
OnClick = BSBtnClick
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
end
|
|
end
|