From d5ec91d9b3b209580f3f0a74e4745bc2c54089f7 Mon Sep 17 00:00:00 2001 From: Michael Schimmel Date: Mon, 8 Dec 2025 10:55:12 +0100 Subject: [PATCH] Renaming --- AuraTrader/MainForm.fmx | 11 ----------- AuraTrader/MainForm.pas | 4 ++-- 2 files changed, 2 insertions(+), 13 deletions(-) diff --git a/AuraTrader/MainForm.fmx b/AuraTrader/MainForm.fmx index 5dc149b..2b5b9f6 100644 --- a/AuraTrader/MainForm.fmx +++ b/AuraTrader/MainForm.fmx @@ -53,7 +53,6 @@ object Form1: TForm1 Size.Height = 34.000000000000000000 Size.PlatformDefault = False Text = 'Add' - TextSettings.Trimming = None end object TestButton: TSpeedButton Action = TestAction @@ -63,7 +62,6 @@ object Form1: TForm1 Size.Width = 123.636322021484400000 Size.Height = 34.000000000000000000 Size.PlatformDefault = False - TextSettings.Trimming = None object TestPopup: TPopup PlacementTarget = TestButton Size.Width = 400.000000000000000000 @@ -90,21 +88,18 @@ object Form1: TForm1 Size.PlatformDefault = False TabOrder = 4 Text = 'Load' - TextSettings.Trimming = None end object RandomButton: TButton Anchors = [akTop, akRight] Position.Y = 41.000000000000000000 TabOrder = 2 Text = 'Random' - TextSettings.Trimming = None end object ChartButton: TButton Anchors = [akTop, akRight] Position.Y = 63.000000000000000000 TabOrder = 6 Text = 'ChartButton' - TextSettings.Trimming = None end end end @@ -116,7 +111,6 @@ object Form1: TForm1 Size.Height = 34.000000000000000000 Size.PlatformDefault = False Text = 'Strategy' - TextSettings.Trimming = None OnClick = StrategyButtonClick end object SymbolsComboBox: TComboBox @@ -143,7 +137,6 @@ object Form1: TForm1 Size.PlatformDefault = False TabOrder = 7 Text = 'StopButton' - TextSettings.Trimming = None OnClick = StopButtonClick end object Strat2Button: TSpeedButton @@ -153,7 +146,6 @@ object Form1: TForm1 Size.Height = 34.000000000000000000 Size.PlatformDefault = False Text = 'Strat 2' - TextSettings.Trimming = None OnClick = Strat2ButtonClick end end @@ -179,7 +171,6 @@ object Form1: TForm1 CustomIcon = < item end> - TextSettings.Trimming = None IsSelected = True Size.Width = 66.000000000000000000 Size.Height = 26.000000000000000000 @@ -204,7 +195,6 @@ object Form1: TForm1 Position.Y = 72.000000000000000000 TabOrder = 0 Text = 'Button1' - TextSettings.Trimming = None OnClick = Button1Click end object Button2: TButton @@ -212,7 +202,6 @@ object Form1: TForm1 Position.Y = 112.000000000000000000 TabOrder = 1 Text = 'Button2' - TextSettings.Trimming = None OnClick = Button2Click end end diff --git a/AuraTrader/MainForm.pas b/AuraTrader/MainForm.pas index c5f4b89..a3b017a 100644 --- a/AuraTrader/MainForm.pas +++ b/AuraTrader/MainForm.pas @@ -226,9 +226,9 @@ begin // Create an instance of the TAuraTABFileServer. The server can be reused for multiple stream creations. [364] {$ifdef TICKDATA} - FServer := TAuraTABFileServer.Create('\\COFFEE\TickData\Pepperstone'); + FServer := TAskBidFileServer.Create('\\COFFEE\TickData\Pepperstone'); {$else} - FServer := TAuraM1FileServer.Create('\\COFFEE\TickData\Pepperstone'); + FServer := TM1FileServer.Create('\\COFFEE\TickData\Pepperstone'); {$endif} SymbolsComboBox.Enabled := false;