object FormMain: TFormMain
  Left = 223
  Top = 123
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'FatExpression Demo'
  ClientHeight = 434
  ClientWidth = 667
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Courier New CE'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 16
    Top = 212
    Width = 81
    Height = 16
    Caption = 'EvaluateOrder'
  end
  object Label2: TLabel
    Left = 16
    Top = 244
    Width = 57
    Height = 16
    Caption = 'Functions'
  end
  object Label3: TLabel
    Left = 16
    Top = 72
    Width = 63
    Height = 16
    Caption = 'expression'
  end
  object Label4: TLabel
    Left = 8
    Top = 8
    Width = 149
    Height = 16
    Caption = 'TFatExpression 1.0 demo'
  end
  object Label5: TLabel
    Left = 8
    Top = 28
    Width = 136
    Height = 16
    Caption = 'gasper.kozak@email.si'
  end
  object Button1: TButton
    Left = 68
    Top = 124
    Width = 145
    Height = 37
    Caption = 'calculate'
    TabOrder = 1
    OnClick = Button1Click
  end
  object LogList: TListBox
    Left = 300
    Top = 0
    Width = 367
    Height = 434
    Align = alRight
    ItemHeight = 16
    TabOrder = 4
  end
  object FuncList: TMemo
    Left = 16
    Top = 264
    Width = 260
    Height = 157
    Lines.Strings = (
      'sqr(x)=x*x'
      'sqrt(x)=x^(1/2)'
      'n=3'
      'circle_area(radius)=pi*sqr(radius)'
      'pi=3.14')
    TabOrder = 3
  end
  object EvalOrder: TComboBox
    Left = 104
    Top = 208
    Width = 145
    Height = 24
    Style = csDropDownList
    ItemHeight = 16
    TabOrder = 2
    OnChange = EvalOrderChange
    Items.Strings = (
      'eoInternalFirst'
      'eoEventFirst')
  end
  object ExprEdit: TComboBox
    Left = 16
    Top = 88
    Width = 261
    Height = 24
    ItemHeight = 16
    TabOrder = 0
    OnKeyPress = ExprEditKeyPress
    Items.Strings = (
      'Pi'
      'sqr(n)'
      'circle_area(4)')
  end
  object FatExpression1: TFatExpression
    Info = 'TFatExpression v1.0 by gasper.kozak@email.si'
    EvaluateOrder = eoInternalFirst
    OnEvaluate = FatExpression1Evaluate
    Left = 228
    Top = 128
  end
end
