object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 883
  ClientWidth = 1394
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnCreate = FormCreate
  DesignerMasterStyle = 0
  object Panel1: TPanel
    Align = MostLeft
    Size.Width = 129.000000000000000000
    Size.Height = 883.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 1
    object Test1Button: TButton
      Position.X = 24.000000000000000000
      Position.Y = 32.000000000000000000
      TabOrder = 1
      Text = 'Test 1'
      OnClick = Test1ButtonClick
    end
    object Test2Button: TButton
      Position.X = 24.000000000000000000
      Position.Y = 62.000000000000000000
      TabOrder = 2
      Text = 'Test 2'
      OnClick = Test2ButtonClick
    end
    object RecursionButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 92.000000000000000000
      Size.Width = 80.000000000000000000
      Size.Height = 22.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 3
      Text = 'Recursion'
      OnClick = RecursionButtonClick
    end
    object ShowScopeBox: TCheckBox
      Position.X = 24.000000000000000000
      Position.Y = 452.000000000000000000
      TabOrder = 4
      Text = 'Scope'
    end
    object FibonacciButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 122.000000000000000000
      TabOrder = 6
      Text = 'Fibonacci'
      OnClick = FibonacciButtonClick
    end
    object CrerateTriggerExampleButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 168.000000000000000000
      TabOrder = 7
      Text = 'TriggerTest'
      OnClick = CreateTriggerExampleButtonClick
    end
    object DoTriggerButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 198.000000000000000000
      TabOrder = 8
      Text = 'Trigger!'
      OnClick = DoTriggerButtonClick
      object DoTrigger2Button: TButton
        Position.Y = 30.000000000000000000
        TabOrder = 5
        Text = 'Trigger2'
        OnClick = DoTrigger2ButtonClick
      end
    end
    object ClearButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 539.000000000000000000
      Size.Width = 80.000000000000000000
      Size.Height = 22.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 9
      Text = 'Clear'
      OnClick = ClearButtonClick
    end
    object SeriesTestButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 258.000000000000000000
      Size.Width = 80.000000000000000000
      Size.Height = 22.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 11
      Text = 'Series'
      OnClick = SeriesTestButtonClick
    end
    object OHLCButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 288.000000000000000000
      TabOrder = 12
      Text = 'OHLC'
      OnClick = OHLCButtonClick
    end
    object DebugBox: TCheckBox
      Position.X = 24.000000000000000000
      Position.Y = 436.000000000000000000
      TabOrder = 13
      Text = 'Debug'
      OnChange = DebugBoxChange
    end
    object FromJSONButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 569.000000000000000000
      TabOrder = 14
      Text = 'From JSON'
      OnClick = FromJSONButtonClick
    end
    object ToJSONButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 599.000000000000000000
      TabOrder = 15
      Text = 'To JSON'
      OnClick = ToJSONButtonClick
    end
    object ExternalFuncButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 318.000000000000000000
      TabOrder = 16
      Text = 'External Func'
      OnClick = ExternalFuncButtonClick
    end
    object InnerLambdaButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 348.000000000000000000
      TabOrder = 17
      Text = 'Inner Lambda'
      OnClick = InnerLambdaButtonClick
    end
    object DumpButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 509.000000000000000000
      TabOrder = 18
      Text = 'Dump'
      OnClick = DumpButtonClick
    end
    object FailingUpvalueButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 378.000000000000000000
      TabOrder = 20
      Text = 'Upvalue'
      OnClick = FailingUpvalueButtonClick
    end
    object TailCallButten: TButton
      Position.X = 24.000000000000000000
      Position.Y = 406.000000000000000000
      TabOrder = 21
      Text = 'Tail calls'
      OnClick = TailCallButtenClick
    end
    object SaveUserLibButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 629.000000000000000000
      TabOrder = 22
      Text = 'Save Lib'
      OnClick = SaveUserLibButtonClick
    end
    object LoadUserLibButton: TButton
      Position.X = 24.000000000000000000
      Position.Y = 659.000000000000000000
      TabOrder = 23
      Text = 'LoadLib'
      OnClick = LoadUserLibButtonClick
    end
    object RTLListView: TListView
      ItemAppearanceClassName = 'TListItemAppearance'
      ItemEditAppearanceClassName = 'TListItemShowCheckAppearance'
      HeaderAppearanceClassName = 'TListHeaderObjects'
      FooterAppearanceClassName = 'TListHeaderObjects'
      Anchors = [akLeft, akBottom]
      Position.X = 8.000000000000000000
      Position.Y = 689.000000000000000000
      Size.Width = 113.000000000000000000
      Size.Height = 184.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 24
      OnChange = RTLListViewChange
    end
    object SaveTestBtn: TButton
      Position.X = 24.000000000000000000
      Position.Y = 479.000000000000000000
      TabOrder = 26
      Text = 'Save test'
    end
  end
  object Panel2: TPanel
    Align = Client
    Size.Width = 784.000000000000000000
    Size.Height = 609.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 3
    object CompilerStageBox: TComboBox
      Anchors = [akRight, akBottom]
      Items.Strings = (
        'Unbound'
        'Expanded'
        'Bound'
        'Specialized')
      ItemIndex = 3
      Position.X = 672.000000000000000000
      Position.Y = 576.000000000000000000
      Size.Width = 104.000000000000000000
      Size.Height = 25.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 0
      OnChange = CompilerStageBoxChange
    end
  end
  object Memo1: TMemo
    Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
    DataDetectorTypes = []
    StyledSettings = [Size, Style, FontColor]
    TextSettings.Font.Family = 'Consolas'
    Align = Bottom
    Position.X = 129.000000000000000000
    Position.Y = 616.000000000000000000
    Size.Width = 1265.000000000000000000
    Size.Height = 267.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 2
    Viewport.Width = 1261.000000000000000000
    Viewport.Height = 263.000000000000000000
  end
  object Splitter1: TSplitter
    Align = Bottom
    Cursor = crVSplit
    MinSize = 20.000000000000000000
    Position.X = 129.000000000000000000
    Position.Y = 609.000000000000000000
    Size.Width = 1265.000000000000000000
    Size.Height = 7.000000000000000000
    Size.PlatformDefault = False
  end
  object Splitter2: TSplitter
    Align = Right
    Cursor = crHSplit
    MinSize = 20.000000000000000000
    Position.X = 913.000000000000000000
    Size.Width = 7.000000000000000000
    Size.Height = 609.000000000000000000
    Size.PlatformDefault = False
  end
  object ScriptMemo: TMemo
    Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
    DataDetectorTypes = []
    Lines.Strings = (
      '(do'
      '  ;; Broker mit 10.000 Startkapital erstellen'
      '  (def broker (create-broker 10000.0))'
      '  '
      '  ;; Aktien kaufen: 10 St'#252'ck von "AAPL" zu 150.0'
      '  ((.Buy broker) "AAPL" 10 150.0)'
      '  ((.Buy broker) "MSFT" 5 50.0)'
      '  '
      '  ((.ListPositions broker) '
      '      (fn [symbol amount] (print symbol ": " amount)))'
      ')')
    StyledSettings = [Size, Style, FontColor]
    TextSettings.Font.Family = 'Consolas'
    OnChange = ScriptMemoChange
    OnChangeTracking = ScriptMemoChange
    Align = Right
    Position.X = 920.000000000000000000
    Size.Width = 474.000000000000000000
    Size.Height = 609.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 6
    Viewport.Width = 470.000000000000000000
    Viewport.Height = 605.000000000000000000
  end
end