main.dfm

ArtFormula package contains two nonvisual Delphi component for symbolic expression parsing and evalu

        ParentCtl3D = False
        TabOrder = 5
      end
      object TestCB: TCheckBox
        Left = 8
        Top = 112
        Width = 97
        Height = 17
        Caption = 'Test used vars'
        TabOrder = 6
      end
      object CaseCB: TCheckBox
        Left = 8
        Top = 128
        Width = 97
        Height = 17
        Caption = 'Case sensitive'
        TabOrder = 7
      end
      object Button2: TButton
        Left = 433
        Top = 152
        Width = 33
        Height = 25
        Anchors = [akTop, akRight]
        Caption = '-'
        TabOrder = 8
        OnClick = Button2Click
      end
      object Button1: TButton
        Left = 433
        Top = 120
        Width = 33
        Height = 25
        Anchors = [akTop, akRight]
        Caption = '+'
        TabOrder = 9
        OnClick = Button1Click
      end
      object NI: TEdit
        Left = 112
        Top = 220
        Width = 113
        Height = 21
        TabOrder = 10
        Text = '1000000'
      end
      object BM: TStringGrid
        Left = 0
        Top = 248
        Width = 460
        Height = 124
        Anchors = [akLeft, akTop, akRight, akBottom]
        ColCount = 4
        Ctl3D = True
        DefaultColWidth = 110
        DefaultRowHeight = 18
        FixedColor = 15790320
        RowCount = 1
        FixedRows = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
        ParentCtl3D = False
        TabOrder = 11
      end
      object R: TButton
        Left = 233
        Top = 218
        Width = 75
        Height = 25
        Caption = 'Run'
        TabOrder = 12
        OnClick = RClick
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Spreadsheet'
      ImageIndex = 5
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 473
        Height = 57
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        DesignSize = (
          473
          57)
        object Label18: TLabel
          Left = 0
          Top = 0
          Width = 465
          Height = 26
          Anchors = [akLeft, akTop, akRight]
          AutoSize = False
          Caption = 
            'This example  shows how to use ExternGetVar, GetVarsCount and Ge' +
            'tVarValue '#13#10'to evaluate external variables.'
        end
        object ftext: TComboBox
          Left = 0
          Top = 32
          Width = 473
          Height = 21
          Anchors = [akLeft, akTop, akRight]
          ItemHeight = 13
          TabOrder = 0
          OnKeyPress = ftextKeyPress
          Items.Strings = (
            '=avg('
            '=concat('
            '=count('
            '=max('
            '=min('
            '=sum('
            '=sumofsquares('
            '=stddev('
            '=stddevp('
            '=variance('
            '=variancep('
            '')
        end
      end
      object Sheet: TStringGrid
        Left = 0
        Top = 57
        Width = 473
        Height = 334
        Align = alClient
        ColCount = 27
        DefaultRowHeight = 20
        FixedColor = 15790320
        RowCount = 65
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing]
        TabOrder = 1
        OnClick = SheetClick
        OnDblClick = SheetDblClick
        OnDrawCell = SheetDrawCell
        OnKeyDown = SheetKeyDown
        OnKeyPress = SheetKeyPress
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Programming'
      ImageIndex = 1
      DesignSize = (
        473
        391)
      object Label16: TLabel
        Left = 8
        Top = 20
        Width = 61
        Height = 13
        Caption = 'Select script:'
      end
      object Label17: TLabel
        Left = 8
        Top = 240
        Width = 33
        Height = 13
        Caption = 'Result:'
      end
      object Sel: TComboBox
        Left = 72
        Top = 16
        Width = 393
        Height = 21
        Style = csDropDownList
        Anchors = [akLeft, akTop, akRight]
        ItemHeight = 13
        TabOrder = 0
        OnChange = SelChange
        Items.Strings = (
          'Just endless loop :)'
          'Wait 5 secons'
          'Centigrade to farenheight temperature table'
          'Use File module to open and print contents of file'
          'Solve linear equation'
          'Find prime numbers')
      end
      object Script: TMemo
        Left = 8
        Top = 48
        Width = 457
        Height = 169
        Anchors = [akLeft, akTop, akRight]
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        Lines.Strings = (
          'begin'
          ' msg('#39'Hello World!'#39','#39'TArtFormula Demo'#39',$20); '
          ' print("Hello World!")'
          'end')
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 1
        WantTabs = True
      end
      object BRun: TButton
        Left = 201
        Top = 224
        Width = 75
        Height = 25
        Anchors = [akTop]
        Caption = 'Run'
        TabOrder = 2
        OnClick = BRunClick
      end
      object SRes: TMemo
        Left = 8
        Top = 256
        Width = 457
        Height = 124
        Anchors = [akLeft, akTop, akRight, akBottom]
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 3
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Modules'
      ImageIndex = 2
      OnShow = TabSheet3Show
      object Editor: TRichEdit
        Left = 0
        Top = 88
        Width = 473
        Height = 303
        Align = alClient
        HideSelection = False
        PopupMenu = PopupMenu1
        ScrollBars = ssBoth
        TabOrder = 0
        WantTabs = True
        OnSelectionChange = SelectionChange
      end
      object ToolBar1: TToolBar
        Left = 0
        Top = 0
        Width = 473
        Height = 62
        AutoSize = True
        BorderWidth = 2
        Color = clBtnFace
        Flat = True
        Images = ToolbarImages
        Indent = 4
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        object ToolButton1: TToolButton
          Left = 4
          Top = 0
          Action = FileNewCmd
        end
        object OpenButton: TToolButton
          Left = 27
          Top = 0
          Hint = 'Open'
          ImageIndex = 1
          OnClick = FileOpen
        end
        object SaveButton: TToolButton
          Left = 50
          Top = 0
          Action = FileSaveCmd
        end
        object ToolButton7: TToolButton
          Left = 73
          Top = 0
          Action = FileSaveAsCmd
        end
        object PrintButton: TToolButton
          Left = 96
          Top = 0
          Action = FilePrintCmd
        end
        object ToolButton2: TToolButton
          Left = 119
          Top = 0
          Width = 8
          Caption = 'ToolButton2'
          ImageIndex = 16
          Style = tbsSeparator
        end
        object CutButton: TToolButton
          Left = 127
          Top = 0
          Action = EditCutCmd
        end
        object CopyButton: TToolButton
          Left = 150
          Top = 0
          Action = EditCopyCmd
        end
        object PasteButton: TToolButton
          Left = 173
          Top = 0