lazarus-ccr/components/jvcllaz/examples/JvInterpreterDemos/JvInterpreterSimple/JvInterpreterSimpleExpressionFm.lfm

object Form1: TForm1
  Left = 192
  Height = 177
  Top = 66
  Width = 397
  AutoSize = True
  Caption = 'Simple Expressions in JvInterpreter'
  ClientHeight = 177
  ClientWidth = 397
  Color = clBtnFace
  Font.Color = clWindowText
  LCLVersion = '2.1.0.0'
  object Label1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Edit1
    AnchorSideTop.Side = asrCenter
    Left = 12
    Height = 15
    Top = 10
    Width = 56
    BorderSpacing.Left = 12
    Caption = 'Expression'
    ParentColor = False
  end
  object Label2: TLabel
    AnchorSideLeft.Control = Edit2
    AnchorSideTop.Control = EditA
    AnchorSideTop.Side = asrCenter
    Left = 76
    Height = 15
    Top = 64
    Width = 8
    Caption = 'A'
    ParentColor = False
  end
  object Label3: TLabel
    AnchorSideLeft.Control = Label2
    AnchorSideTop.Control = EditB
    AnchorSideTop.Side = asrCenter
    Left = 76
    Height = 15
    Top = 89
    Width = 7
    Caption = 'B'
    ParentColor = False
  end
  object Label4: TLabel
    AnchorSideLeft.Control = Label2
    AnchorSideTop.Control = EditC
    AnchorSideTop.Side = asrCenter
    Left = 76
    Height = 15
    Top = 114
    Width = 8
    Caption = 'C'
    ParentColor = False
  end
  object Label5: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = Edit2
    AnchorSideTop.Side = asrCenter
    Left = 12
    Height = 15
    Top = 34
    Width = 32
    Caption = 'Result'
    ParentColor = False
  end
  object Button1: TButton
    AnchorSideLeft.Control = Edit1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Edit1
    AnchorSideTop.Side = asrCenter
    Left = 241
    Height = 25
    Top = 5
    Width = 129
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Right = 12
    Caption = 'Evaluate Expression'
    OnClick = Button1Click
    TabOrder = 0
  end
  object Edit1: TEdit
    AnchorSideLeft.Control = Label1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 76
    Height = 22
    Top = 6
    Width = 153
    BorderSpacing.Left = 8
    BorderSpacing.Top = 6
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    ParentFont = False
    TabOrder = 1
    Text = 'A + MAX(B,C)'
  end
  object EditA: TJvValidateEdit
    AnchorSideLeft.Control = Label2
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Edit2
    AnchorSideTop.Side = asrBottom
    Left = 96
    Height = 23
    Top = 60
    Width = 73
    BorderSpacing.Left = 12
    BorderSpacing.Top = 8
    CriticalPoints.MaxValue = 0
    CriticalPoints.MinValue = 0
    CriticalPoints.MaxValueIncluded = False
    CriticalPoints.MinValueIncluded = False
    EditText = '100'
    MaxValue = 0
    MinValue = 0
    TabOrder = 2
  end
  object EditB: TJvValidateEdit
    AnchorSideLeft.Control = EditA
    AnchorSideTop.Control = EditA
    AnchorSideTop.Side = asrBottom
    Left = 96
    Height = 23
    Top = 85
    Width = 73
    BorderSpacing.Top = 2
    CriticalPoints.MaxValue = 0
    CriticalPoints.MinValue = 0
    CriticalPoints.MaxValueIncluded = False
    CriticalPoints.MinValueIncluded = False
    EditText = '50'
    MaxValue = 0
    MinValue = 0
    TabOrder = 3
  end
  object EditC: TJvValidateEdit
    AnchorSideLeft.Control = EditA
    AnchorSideTop.Control = EditB
    AnchorSideTop.Side = asrBottom
    Left = 96
    Height = 23
    Top = 110
    Width = 73
    BorderSpacing.Top = 2
    BorderSpacing.Bottom = 12
    CriticalPoints.MaxValue = 0
    CriticalPoints.MinValue = 0
    CriticalPoints.MaxValueIncluded = False
    CriticalPoints.MinValueIncluded = False
    EditText = '60'
    MaxValue = 0
    MinValue = 0
    TabOrder = 4
  end
  object Edit2: TEdit
    AnchorSideLeft.Control = Edit1
    AnchorSideTop.Control = Edit1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Edit1
    AnchorSideRight.Side = asrBottom
    Left = 76
    Height = 22
    Top = 30
    Width = 153
    BorderSpacing.Top = 2
    Color = clBtnFace
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    ParentFont = False
    ReadOnly = True
    TabOrder = 5
  end
  object JvInterpreterProgram1: TJvInterpreterProgram
    OnGetValue = JvInterpreterProgram1GetValue
    OnSetValue = JvInterpreterProgram1SetValue
    left = 280
    top = 80
  end
end