home *** CD-ROM | disk | FTP | other *** search
- inherited EvaluatorForm: TEvaluatorForm
- Left = 245
- Top = 206
- Caption = 'Expression Evaluator'
- ClientHeight = 305
- ClientWidth = 591
- ExplicitWidth = 597
- ExplicitHeight = 337
- PixelsPerInch = 96
- TextHeight = 13
- inherited ButtonOk: TButton
- Left = 346
- Top = 275
- ModalResult = 0
- TabOrder = 8
- OnClick = ButtonOkClick
- ExplicitLeft = 346
- ExplicitTop = 275
- end
- inherited ButtonCancel: TButton
- Left = 426
- Top = 275
- TabOrder = 9
- ExplicitLeft = 426
- ExplicitTop = 275
- end
- inherited ButtonHelp: THelpButton
- Left = 506
- Top = 275
- TabOrder = 10
- HelpKey = 'tool_evaluator'
- ExplicitLeft = 506
- ExplicitTop = 275
- end
- object DestinationBox: TGroupBox
- Left = 8
- Top = 128
- Width = 187
- Height = 47
- Caption = ' Destination '
- TabOrder = 1
- object Destination: TComboBox
- Left = 10
- Top = 16
- Width = 167
- Height = 21
- ItemHeight = 13
- TabOrder = 0
- OnChange = DestinationChange
- end
- end
- object SourceBox: TGroupBox
- Left = 202
- Top = 128
- Width = 187
- Height = 47
- Caption = ' Source (wave#) '
- TabOrder = 2
- object Source: TComboBox
- Left = 10
- Top = 16
- Width = 167
- Height = 21
- ItemHeight = 13
- TabOrder = 0
- OnChange = SourceChange
- end
- end
- object ExpressionBox: TGroupBox
- Left = 8
- Top = 2
- Width = 381
- Height = 124
- Caption = ' Expression '
- TabOrder = 0
- object Equation: TMemo
- Left = 10
- Top = 16
- Width = 361
- Height = 99
- ScrollBars = ssVertical
- TabOrder = 0
- WantReturns = False
- end
- end
- object PresetsBox: TGroupBox
- Left = 396
- Top = 2
- Width = 187
- Height = 267
- Caption = ' Presets '
- TabOrder = 5
- object Presets: TTreeView
- Left = 10
- Top = 16
- Width = 167
- Height = 217
- HideSelection = False
- Indent = 19
- ReadOnly = True
- SortType = stText
- TabOrder = 0
- OnChange = PresetsChange
- OnDblClick = PresetsDblClick
- end
- object AddPreset: TBitton
- Left = 70
- Top = 239
- Width = 21
- Height = 21
- Image.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 88888888888FFFF888888888887AAAF888888888887AAAF888888888887AAAF8
- 8888888FFF8AAAFFFFF8887AAAAAAAAAAAF8887AAAAAAAAAAAF8887AAAAAAAAA
- AAF88877777AAA8777888888887AAAF888888888887AAAF888888888887AAAF8
- 8888888888777788888888888888888888888888888888888888}
- FocusAllowed = True
- TransparentColour = clDefault
- Action = AddPresetAction
- Caption = 'Add Preset'
- ParentShowHint = False
- ShowHint = True
- TabStop = True
- TabOrder = 1
- end
- object RemovePreset: TBitton
- Left = 98
- Top = 239
- Width = 21
- Height = 21
- Image.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888888888888888888888888888888888888888888888888888888888888888
- 8888888FFFFFFFFFFFF888799999999999F888799999999999F8887999999999
- 99F8887777777777778888888888888888888888888888888888888888888888
- 8888888888888888888888888888888888888888888888888888}
- FocusAllowed = True
- TransparentColour = clDefault
- Action = RemovePresetAction
- Caption = 'Remove Preset'
- ParentShowHint = False
- ShowHint = True
- TabStop = True
- TabOrder = 2
- end
- end
- object IncrementedVariablesBox: TGroupBox
- Left = 8
- Top = 177
- Width = 381
- Height = 45
- Caption = ' Incremented variables '
- TabOrder = 3
- object n: TNumEdit
- Left = 93
- Top = 16
- Width = 81
- Height = 21
- Max = 100.000000000000000000
- PageChange = 10.000000000000000000
- LineChange = 1.000000000000000000
- Label = 'n'
- TabOrder = 1
- MaxLength = 20
- end
- object nLabel: TStaticText
- Left = 44
- Top = 19
- Width = 46
- Height = 17
- Caption = 'Initial n ='
- TabOrder = 0
- end
- object t: TNumEdit
- Left = 242
- Top = 16
- Width = 81
- Height = 21
- Max = 100.000000000000000000
- Decimal = -1
- PageChange = 10.000000000000000000
- LineChange = 1.000000000000000000
- Label = 't'
- Caption = '0'
- TabOrder = 3
- MaxLength = 20
- end
- object tLabel: TStaticText
- Left = 196
- Top = 19
- Width = 43
- Height = 17
- Caption = 'Initial t ='
- TabOrder = 2
- end
- end
- object UserConstantsBox: TGroupBox
- Left = 8
- Top = 224
- Width = 381
- Height = 45
- Caption = ' User constants '
- TabOrder = 4
- object x: TNumEdit
- Left = 39
- Top = 16
- Width = 81
- Height = 21
- Max = 10000.000000000000000000
- Decimal = -1
- PageChange = 10.000000000000000000
- LineChange = 1.000000000000000000
- Label = 'x'
- Caption = '0'
- TabOrder = 1
- MaxLength = 20
- end
- object xLabel: TStaticText
- Left = 17
- Top = 19
- Width = 18
- Height = 17
- Caption = 'x ='
- TabOrder = 0
- end
- object y: TNumEdit
- Left = 161
- Top = 16
- Width = 81
- Height = 21
- Max = 10000.000000000000000000
- Decimal = -1
- PageChange = 10.000000000000000000
- LineChange = 1.000000000000000000
- Label = 'y'
- Caption = '0'
- TabOrder = 3
- MaxLength = 20
- end
- object yLabel: TStaticText
- Left = 139
- Top = 19
- Width = 18
- Height = 17
- Caption = 'y ='
- TabOrder = 2
- end
- object f: TNumEdit
- Left = 282
- Top = 16
- Width = 81
- Height = 21
- Max = 500000.000000000000000000
- Decimal = -1
- PageChange = 10.000000000000000000
- LineChange = 1.000000000000000000
- Label = 'f'
- Caption = '0'
- TabOrder = 5
- MaxLength = 20
- end
- object fLabel: TStaticText
- Left = 262
- Top = 19
- Width = 16
- Height = 17
- Caption = 'f ='
- TabOrder = 4
- end
- end
- inline Preview: TPreviewFrame
- Left = 103
- Top = 269
- Width = 109
- Height = 31
- Anchors = [akRight, akBottom]
- TabOrder = 6
- TabStop = True
- ExplicitLeft = 103
- ExplicitTop = 269
- ExplicitWidth = 109
- ExplicitHeight = 31
- inherited PreviewPlay: TBitton
- Top = 9
- ExplicitTop = 9
- end
- inherited PreviewStop: TBitton
- Top = 9
- ExplicitTop = 9
- end
- inherited PreviewActionList: TActionList
- Top = 3
- inherited PreviewAction: TAction
- OnExecute = PreviewPlayClick
- OnUpdate = ExpressionExists
- end
- inherited StopAction: TAction
- OnExecute = PreviewStopClick
- end
- end
- end
- object ShowButtons: TBitton
- Left = 264
- Top = 278
- Width = 20
- Height = 20
- Image.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00887777788777
- 77808F880878F80087808F800878F80887808FFFFF88FFFFF880888888888888
- 888088777778877777808F888878F80887808F800878F88087808FFFFF88FFFF
- F880888888888888888088777778877777808F880878F80087808F808878F880
- 87808FFFFF88FFFFF8808888888888888880}
- FocusAllowed = True
- TransparentColour = clDefault
- Action = ShowButtonsAction
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- end
- object ActionList: TActionList
- Left = 8
- Top = 272
- object AddPresetAction: TAction
- Caption = 'Add'
- Enabled = False
- Hint = 'Adds a preset'
- OnExecute = AddPresetExecute
- OnUpdate = ExpressionExists
- end
- object RemovePresetAction: TAction
- Caption = 'Remove'
- Enabled = False
- Hint = 'Removes a preset'
- OnExecute = RemovePresetExecute
- OnUpdate = PresetSelected
- end
- object ShowButtonsAction: TAction
- Caption = 'Buttons'
- Hint = 'Show evaluator buttons'
- OnExecute = ShowButtonsActionExecute
- OnUpdate = ShowButtonsActionUpdate
- end
- end
- end
-