Implementing first "strategy" for proof of concept

2025-07-11 11:06:18 +02:00
parent 644b6074d6
commit 487169afe0
20 changed files with 1761 additions and 274 deletions
@@ -70,7 +70,7 @@ object Form1: TForm1
            Size.Height = 400.00000000000000000
            Size.PlatformDefault = False
            TabOrder = 7
-            object FlowLayout1: TFlowLayout
+            object FlowLayout: TFlowLayout
              Position.X = 224.00000000000000000
              Position.Y = 167.00000000000000000
              TabOrder = 4
@@ -128,12 +128,15 @@ object Form1: TForm1
            end
          end
        end
-        object SpeedButton1: TSpeedButton
-          Position.X = 376.00000000000000000
-          Position.Y = 8.00000000000000000
-          Text = 'SpeedButton1'
+        object StrategyButton: TSpeedButton
+          Align = FitLeft
+          Position.X = 290.90911865234370000
+          Size.Width = 145.45446777343750000
+          Size.Height = 40.00000000000000000
+          Size.PlatformDefault = False
+          Text = 'Strategy'
          TextSettings.Trimming = None
-          OnClick = SpeedButton1Click
+          OnClick = StrategyButtonClick
        end
      end
    end