home *** CD-ROM | disk | FTP | other *** search
- object SimpleDemoForm: TSimpleDemoForm
- Left = 337
- Top = 262
- Width = 315
- Height = 196
- Caption = 'Simple Parser10 Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 8
- Width = 81
- Height = 13
- Caption = 'Enter expression:'
- end
- object Label2: TLabel
- Left = 232
- Top = 8
- Width = 30
- Height = 13
- Caption = 'Result'
- end
- object ExpressionEdit: TEdit
- Left = 8
- Top = 24
- Width = 121
- Height = 21
- TabOrder = 0
- Text = 'Sqrt(pi)*4+5-3/5'
- end
- object ResultEdit: TEdit
- Left = 232
- Top = 24
- Width = 65
- Height = 21
- TabOrder = 1
- end
- object CalcBtn: TButton
- Left = 144
- Top = 24
- Width = 75
- Height = 25
- Caption = '&Calc!'
- TabOrder = 2
- OnClick = CalcBtnClick
- end
- object DefineFuncsBtn: TButton
- Left = 8
- Top = 64
- Width = 137
- Height = 25
- Caption = 'Define User &Functions'
- TabOrder = 3
- OnClick = DefineFuncsBtnClick
- end
- object DefineVarBtn: TButton
- Left = 8
- Top = 128
- Width = 137
- Height = 25
- Caption = 'Define User &Variable'
- TabOrder = 4
- OnClick = DefineVarBtnClick
- end
- object RemoveFuncsBtn: TButton
- Left = 8
- Top = 96
- Width = 137
- Height = 25
- Caption = '&Remove User Functions'
- TabOrder = 5
- OnClick = RemoveFuncsBtnClick
- end
- object Parser: TParser
- Left = 160
- Top = 64
- end
- end
-