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

Process.Update for synchronization

Browse Source
This commit is contained in:
Michael Schimmel
2025-07-12 12:11:16 +02:00
parent cf17e06e32
commit 4727db1a01
5 changed files with 89 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files
AuraTrader/MainForm.fmx
+50 -50
View File
@@ -12,45 +12,45 @@ object Form1: TForm1
DesignerMasterStyle = 0
object MainPanel: TPanel
Align = Client
Size.Width = 796.00000000000000000
Size.Height = 712.00000000000000000
Size.Width = 796.000000000000000000
Size.Height = 712.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object Splitter1: TSplitter
Align = Left
Cursor = crHSplit
MinSize = 20.00000000000000000
Position.X = 169.00000000000000000
Size.Width = 8.00000000000000000
Size.Height = 712.00000000000000000
MinSize = 20.000000000000000000
Position.X = 169.000000000000000000
Size.Width = 8.000000000000000000
Size.Height = 712.000000000000000000
Size.PlatformDefault = False
end
object WorkspacePanel: TPanel
Align = Client
Size.Width = 619.00000000000000000
Size.Height = 712.00000000000000000
Size.Width = 619.000000000000000000
Size.Height = 712.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
object TabControl: TTabControl
Align = Client
Size.Width = 619.00000000000000000
Size.Height = 672.00000000000000000
Size.Width = 619.000000000000000000
Size.Height = 672.000000000000000000
Size.PlatformDefault = False
TabIndex = 0
TabOrder = 10
TabPosition = PlatformDefault
end
object ToolBar: TToolBar
Size.Width = 619.00000000000000000
Size.Height = 40.00000000000000000
Size.Width = 619.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
object AddWorkspaceButton: TSpeedButton
Action = AddWorkspaceAction
Align = FitLeft
ImageIndex = -1
Size.Width = 145.45458984375000000
Size.Height = 40.00000000000000000
Size.Width = 145.454589843750000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
Text = 'Add'
TextSettings.Trimming = None
@@ -59,20 +59,20 @@ object Form1: TForm1
Action = TestAction
Align = FitLeft
ImageIndex = -1
Position.X = 145.45458984375000000
Size.Width = 145.45454406738280000
Size.Height = 40.00000000000000000
Position.X = 145.454589843750000000
Size.Width = 145.454544067382800000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
TextSettings.Trimming = None
object TestPopup: TPopup
PlacementTarget = TestButton
Size.Width = 400.00000000000000000
Size.Height = 400.00000000000000000
Size.Width = 400.000000000000000000
Size.Height = 400.000000000000000000
Size.PlatformDefault = False
TabOrder = 7
object FlowLayout: TFlowLayout
Position.X = 224.00000000000000000
Position.Y = 167.00000000000000000
Position.X = 224.000000000000000000
Position.Y = 167.000000000000000000
TabOrder = 4
Justify = Left
JustifyLastLine = Left
@@ -84,9 +84,9 @@ object Form1: TForm1
end
object LoadButton: TButton
Anchors = [akTop, akRight]
Position.Y = 19.00000000000000000
Size.Width = 47.00000000000000000
Size.Height = 22.00000000000000000
Position.Y = 19.000000000000000000
Size.Width = 47.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 5
Text = 'Load'
@@ -95,7 +95,7 @@ object Form1: TForm1
end
object RandomButton: TButton
Anchors = [akTop, akRight]
Position.Y = 41.00000000000000000
Position.Y = 41.000000000000000000
TabOrder = 2
Text = 'Random'
TextSettings.Trimming = None
@@ -103,7 +103,7 @@ object Form1: TForm1
end
object StopButton: TButton
Anchors = [akTop, akRight]
Position.Y = 63.00000000000000000
Position.Y = 63.000000000000000000
TabOrder = 8
Text = 'StopButton'
TextSettings.Trimming = None
@@ -111,7 +111,7 @@ object Form1: TForm1
end
object ChartButton: TButton
Anchors = [akTop, akRight]
Position.Y = 85.00000000000000000
Position.Y = 85.000000000000000000
TabOrder = 7
Text = 'ChartButton'
TextSettings.Trimming = None
@@ -119,9 +119,9 @@ object Form1: TForm1
end
object SymbolsComboBox: TComboBox
Anchors = [akTop, akRight]
Position.Y = 107.00000000000000000
Size.Width = 177.00000000000000000
Size.Height = 22.00000000000000000
Position.Y = 107.000000000000000000
Size.Width = 177.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
end
@@ -130,9 +130,9 @@ object Form1: TForm1
end
object StrategyButton: TSpeedButton
Align = FitLeft
Position.X = 290.90911865234370000
Size.Width = 145.45446777343750000
Size.Height = 40.00000000000000000
Position.X = 290.909118652343800000
Size.Width = 145.454467773437500000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
Text = 'Strategy'
TextSettings.Trimming = None
@@ -142,14 +142,14 @@ object Form1: TForm1
end
object ObjectsPanel: TPanel
Align = Left
Size.Width = 169.00000000000000000
Size.Height = 712.00000000000000000
Size.Width = 169.000000000000000000
Size.Height = 712.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
object ObjectsTabControl: TTabControl
Align = Client
Size.Width = 169.00000000000000000
Size.Height = 712.00000000000000000
Size.Width = 169.000000000000000000
Size.Height = 712.000000000000000000
Size.PlatformDefault = False
TabIndex = 0
TabOrder = 0
@@ -163,24 +163,24 @@ object Form1: TForm1
end>
TextSettings.Trimming = None
IsSelected = True
Size.Width = 66.00000000000000000
Size.Height = 26.00000000000000000
Size.Width = 66.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = 'Modules'
ExplicitSize.cx = 66.00000000000000000
ExplicitSize.cy = 26.00000000000000000
ExplicitSize.cx = 66.000000000000000000
ExplicitSize.cy = 26.000000000000000000
object TreeView: TTreeView
Align = Client
Size.Width = 169.00000000000000000
Size.Height = 686.00000000000000000
Size.Width = 169.000000000000000000
Size.Height = 686.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
OnDblClick = TreeViewDblClick
AllowDrag = True
Viewport.Width = 165.00000000000000000
Viewport.Height = 682.00000000000000000
Viewport.Width = 165.000000000000000000
Viewport.Height = 682.000000000000000000
end
end
end
@@ -190,13 +190,13 @@ object Form1: TForm1
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
DataDetectorTypes = []
Align = Bottom
Position.Y = 712.00000000000000000
Size.Width = 796.00000000000000000
Size.Height = 128.00000000000000000
Position.Y = 712.000000000000000000
Size.Width = 796.000000000000000000
Size.Height = 128.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
Viewport.Width = 792.00000000000000000
Viewport.Height = 124.00000000000000000
Viewport.Width = 792.000000000000000000
Viewport.Height = 124.000000000000000000
end
object ActionList: TActionList
Left = 209