New visualizer
This commit is contained in:
+13
-20
@@ -89,96 +89,89 @@ object Form1: TForm1
|
||||
Text = 'Clear'
|
||||
OnClick = ClearButtonClick
|
||||
end
|
||||
object FlowOnlyBox: TCheckBox
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 8.000000000000000000
|
||||
TabOrder = 11
|
||||
Text = 'Flow only'
|
||||
OnChange = FlowOnlyBoxChange
|
||||
end
|
||||
object SeriesTestButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 258.000000000000000000
|
||||
Size.Width = 80.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 13
|
||||
TabOrder = 12
|
||||
Text = 'Series'
|
||||
OnClick = SeriesTestButtonClick
|
||||
end
|
||||
object OHLCButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 288.000000000000000000
|
||||
TabOrder = 14
|
||||
TabOrder = 13
|
||||
Text = 'OHLC'
|
||||
OnClick = OHLCButtonClick
|
||||
end
|
||||
object DebugBox: TCheckBox
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 439.000000000000000000
|
||||
TabOrder = 15
|
||||
TabOrder = 14
|
||||
Text = 'Debug'
|
||||
end
|
||||
object FromJSONButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 569.000000000000000000
|
||||
TabOrder = 16
|
||||
TabOrder = 15
|
||||
Text = 'From JSON'
|
||||
OnClick = FromJSONButtonClick
|
||||
end
|
||||
object ToJSONButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 599.000000000000000000
|
||||
TabOrder = 17
|
||||
TabOrder = 16
|
||||
Text = 'To JSON'
|
||||
OnClick = ToJSONButtonClick
|
||||
end
|
||||
object ExternalFuncButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 318.000000000000000000
|
||||
TabOrder = 18
|
||||
TabOrder = 17
|
||||
Text = 'External Func'
|
||||
OnClick = ExternalFuncButtonClick
|
||||
end
|
||||
object InnerLambdaButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 348.000000000000000000
|
||||
TabOrder = 19
|
||||
TabOrder = 18
|
||||
Text = 'Inner Lambda'
|
||||
OnClick = InnerLambdaButtonClick
|
||||
end
|
||||
object DumpButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 509.000000000000000000
|
||||
TabOrder = 20
|
||||
TabOrder = 19
|
||||
Text = 'Dump'
|
||||
OnClick = DumpButtonClick
|
||||
end
|
||||
object FailingUpvalueButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 378.000000000000000000
|
||||
TabOrder = 22
|
||||
TabOrder = 21
|
||||
Text = 'Upvalue'
|
||||
OnClick = FailingUpvalueButtonClick
|
||||
end
|
||||
object TailCallButten: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 406.000000000000000000
|
||||
TabOrder = 23
|
||||
TabOrder = 22
|
||||
Text = 'Tail calls'
|
||||
OnClick = TailCallButtenClick
|
||||
end
|
||||
object SaveUserLibButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 629.000000000000000000
|
||||
TabOrder = 24
|
||||
TabOrder = 23
|
||||
Text = 'Save Lib'
|
||||
OnClick = SaveUserLibButtonClick
|
||||
end
|
||||
object LoadUserLibButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 659.000000000000000000
|
||||
TabOrder = 25
|
||||
TabOrder = 24
|
||||
Text = 'LoadLib'
|
||||
OnClick = LoadUserLibButtonClick
|
||||
end
|
||||
@@ -193,7 +186,7 @@ object Form1: TForm1
|
||||
Size.Width = 113.000000000000000000
|
||||
Size.Height = 184.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 26
|
||||
TabOrder = 25
|
||||
OnChange = RTLListViewChange
|
||||
end
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user