Chart panels

2025-07-13 16:57:58 +02:00
parent 6e5c0de876
commit 840904e42d
9 changed files with 358 additions and 250 deletions
@@ -0,0 +1,43 @@
+unit Myc.Trade.Types;
+
+interface
+
+type
+    // A data record for an Ask/Bid price pair.
+    TAskBidItem = packed record
+        Ask: Double;
+        Bid: Double;
+        constructor Create(AAsk, ABid: Double);
+    end;
+
+    TOhlcItem = record
+        Open: Double;
+        High: Double;
+        Low: Double;
+        Close: Double;
+        Volume: Double;
+        constructor Create(AOpen, AHigh, ALow, AClose, AVolume: Double);
+    end;
+
+implementation
+
+{ TAskBidItem }
+
+constructor TAskBidItem.Create(AAsk, ABid: Double);
+begin
+    Ask := AAsk;
+    Bid := ABid;
+end;
+
+{ TOhlcItem }
+
+constructor TOhlcItem.Create(AOpen, AHigh, ALow, AClose, AVolume: Double);
+begin
+    Open := AOpen;
+    High := AHigh;
+    Low := ALow;
+    Close := AClose;
+    Volume := AVolume;
+end;
+
+end.