Brummel/MycLib
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects 1 Releases Wiki Activity

Renaming

Browse Source
This commit is contained in:
Michael Schimmel
2025-12-08 10:55:12 +01:00
parent 7aa0056799
commit d5ec91d9b3
2 changed files with 2 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
AuraTrader/MainForm.fmx
-11
View File
@@ -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
AuraTrader/MainForm.pas
+2 -2
View File
@@ -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;