Michael Schimmel
279 lines
8.6 KiB
Plaintext
279 lines
8.6 KiB
Plaintext
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
|