Michael Schimmel
120 lines
2.6 KiB
ObjectPascal
120 lines
2.6 KiB
ObjectPascal
object ChartForm: TChartForm
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'ChartForm'
|
|
ClientHeight = 835
|
|
ClientWidth = 900
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = []
|
|
OnCreate = FormCreate
|
|
OnMouseWheel = FormMouseWheel
|
|
DesignSize = (
|
|
900
|
|
835)
|
|
TextHeight = 15
|
|
object FileSelectButton: TSpeedButton
|
|
Left = 647
|
|
Top = 17
|
|
Width = 23
|
|
Height = 22
|
|
Anchors = [akTop, akRight]
|
|
Caption = '...'
|
|
OnClick = FileSelectButtonClick
|
|
end
|
|
object MouseHoverDataLabel: TLabel
|
|
Left = 32
|
|
Top = 565
|
|
Width = 593
|
|
Height = 15
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
ExplicitTop = 359
|
|
end
|
|
object FileNameEdit: TEdit
|
|
Left = 32
|
|
Top = 17
|
|
Width = 609
|
|
Height = 23
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 0
|
|
Text = '\\COFFEE\TickData\Pepperstone\EURUSD_2017_02.tab_zip'
|
|
end
|
|
object LoadButton: TButton
|
|
Left = 686
|
|
Top = 16
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Load'
|
|
TabOrder = 1
|
|
OnClick = LoadButtonClick
|
|
end
|
|
object Memo: TMemo
|
|
Left = 32
|
|
Top = 606
|
|
Width = 817
|
|
Height = 221
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
ScrollBars = ssVertical
|
|
TabOrder = 2
|
|
end
|
|
object RefreshButton: TButton
|
|
Left = 774
|
|
Top = 16
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Refresh'
|
|
TabOrder = 3
|
|
OnClick = RefreshButtonClick
|
|
end
|
|
object TimeframeComboBox: TComboBox
|
|
Left = 649
|
|
Top = 562
|
|
Width = 145
|
|
Height = 23
|
|
Anchors = [akRight, akBottom]
|
|
TabOrder = 4
|
|
OnChange = TimeframeComboBoxChange
|
|
end
|
|
object GoToCurrentButton: TButton
|
|
Left = 800
|
|
Top = 561
|
|
Width = 49
|
|
Height = 25
|
|
Anchors = [akRight, akBottom]
|
|
Caption = '-->'
|
|
TabOrder = 5
|
|
OnClick = GoToCurrentButtonClick
|
|
end
|
|
object ChartScrollBox: TScrollBox
|
|
Left = 33
|
|
Top = 47
|
|
Width = 815
|
|
Height = 496
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
DoubleBuffered = True
|
|
ParentDoubleBuffered = False
|
|
TabOrder = 6
|
|
object PaintBox: TPaintBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 811
|
|
Height = 492
|
|
Align = alClient
|
|
OnMouseDown = PaintBoxMouseDown
|
|
OnMouseMove = PaintBoxMouseMove
|
|
OnMouseUp = PaintBoxMouseUp
|
|
OnPaint = PaintBoxPaint
|
|
ExplicitLeft = 32
|
|
ExplicitTop = 34
|
|
ExplicitWidth = 377
|
|
ExplicitHeight = 97
|
|
end
|
|
end
|
|
end
|