1st commit

2025-05-23 12:51:32 +02:00
parent 94753a720c
commit 06ec0db105
17 changed files with 6639 additions and 0 deletions
@@ -0,0 +1,121 @@
+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 = 
+      'C:\Users\Brummel\Documents\cAlgo\TickData\Pepperstone\EURUSD_201' +
+      '7.tab'
+  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