Chart Control V1

2025-07-02 14:49:33 +02:00
parent b453236b1e
commit 58ce84e567
11 changed files with 1746 additions and 256 deletions
@@ -10,109 +10,200 @@ object Form1: TForm1
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignerMasterStyle = 0
-  object Panel1: TPanel
+  object MainPanel: TPanel
    Align = Client
    Size.Width = 796.00000000000000000
-    Size.Height = 616.00000000000000000
+    Size.Height = 712.00000000000000000
    Size.PlatformDefault = False
    TabOrder = 2
-    object Layout: TFlowLayout
-      Align = Client
-      Size.Width = 627.00000000000000000
-      Size.Height = 616.00000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 1
-      Justify = Left
-      JustifyLastLine = Left
-      FlowDirection = LeftToRight
-      HorizontalGap = 2.00000000000000000
-      VerticalGap = 2.00000000000000000
-      OnResized = LayoutResized
-    end
-    object SymbolsComboBox: TComboBox
-      Anchors = [akTop, akRight]
-      Position.X = 608.00000000000000000
-      Position.Y = 16.00000000000000000
-      Size.Width = 177.00000000000000000
-      Size.Height = 22.00000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 5
-    end
-    object RandomBox: TCheckBox
-      Anchors = [akTop, akRight]
-      Position.X = 609.00000000000000000
-      Position.Y = 46.00000000000000000
-      TabOrder = 2
-      Text = 'Random'
-    end
-    object LoadButton: TButton
-      Anchors = [akTop, akRight]
-      Position.X = 641.00000000000000000
-      Position.Y = 86.00000000000000000
-      Size.Width = 47.00000000000000000
-      Size.Height = 22.00000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 6
-      Text = 'Load'
-      TextSettings.Trimming = None
-      OnClick = LoadButtonClick
-    end
-    object RandomButton: TButton
-      Anchors = [akTop, akRight]
-      Position.X = 705.00000000000000000
-      Position.Y = 86.00000000000000000
-      TabOrder = 3
-      Text = 'Random'
-      TextSettings.Trimming = None
-      OnClick = RandomButtonClick
-    end
-    object ChartButton: TButton
-      Anchors = [akTop, akRight]
-      Position.X = 665.00000000000000000
-      Position.Y = 130.00000000000000000
-      TabOrder = 8
-      Text = 'ChartButton'
-      TextSettings.Trimming = None
-      OnClick = ChartButtonClick
-    end
-    object StopButton: TButton
-      Anchors = [akTop, akRight]
-      Position.X = 665.00000000000000000
-      Position.Y = 160.00000000000000000
-      TabOrder = 10
-      Text = 'StopButton'
-      TextSettings.Trimming = None
-      OnClick = StopButtonClick
-    end
-    object TreeView1: TTreeView
-      Align = Left
-      Size.Width = 161.00000000000000000
-      Size.Height = 616.00000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 0
-      Viewport.Width = 157.00000000000000000
-      Viewport.Height = 612.00000000000000000
-    end
    object Splitter1: TSplitter
      Align = Left
      Cursor = crHSplit
      MinSize = 20.00000000000000000
-      Position.X = 161.00000000000000000
+      Position.X = 169.00000000000000000
      Size.Width = 8.00000000000000000
-      Size.Height = 616.00000000000000000
+      Size.Height = 712.00000000000000000
      Size.PlatformDefault = False
    end
+    object WorkspacePanel: TPanel
+      Align = Client
+      Size.Width = 619.00000000000000000
+      Size.Height = 712.00000000000000000
+      Size.PlatformDefault = False
+      TabOrder = 3
+      object TabControl: TTabControl
+        Align = Client
+        Size.Width = 619.00000000000000000
+        Size.Height = 672.00000000000000000
+        Size.PlatformDefault = False
+        TabIndex = 0
+        TabOrder = 10
+        TabPosition = PlatformDefault
+      end
+      object ToolBar: TToolBar
+        Size.Width = 619.00000000000000000
+        Size.Height = 40.00000000000000000
+        Size.PlatformDefault = False
+        TabOrder = 3
+        object AddWorkspaceButton: TSpeedButton
+          Action = AddWorkspaceAction
+          Align = FitLeft
+          ImageIndex = -1
+          Size.Width = 145.45458984375000000
+          Size.Height = 40.00000000000000000
+          Size.PlatformDefault = False
+          Text = 'Add'
+          TextSettings.Trimming = None
+        end
+        object TestButton: TSpeedButton
+          Action = TestAction
+          Align = FitLeft
+          ImageIndex = -1
+          Position.X = 145.45458984375000000
+          Size.Width = 145.45454406738280000
+          Size.Height = 40.00000000000000000
+          Size.PlatformDefault = False
+          TextSettings.Trimming = None
+          object TestPopup: TPopup
+            PlacementTarget = TestButton
+            Size.Width = 400.00000000000000000
+            Size.Height = 400.00000000000000000
+            Size.PlatformDefault = False
+            TabOrder = 7
+            object FlowLayout1: TFlowLayout
+              Position.X = 224.00000000000000000
+              Position.Y = 167.00000000000000000
+              TabOrder = 4
+              Justify = Left
+              JustifyLastLine = Left
+              FlowDirection = LeftToRight
+              object RandomBox: TCheckBox
+                Anchors = [akTop, akRight]
+                TabOrder = 1
+                Text = 'Random'
+              end
+              object LoadButton: TButton
+                Anchors = [akTop, akRight]
+                Position.Y = 19.00000000000000000
+                Size.Width = 47.00000000000000000
+                Size.Height = 22.00000000000000000
+                Size.PlatformDefault = False
+                TabOrder = 5
+                Text = 'Load'
+                TextSettings.Trimming = None
+                OnClick = LoadButtonClick
+              end
+              object RandomButton: TButton
+                Anchors = [akTop, akRight]
+                Position.Y = 41.00000000000000000
+                TabOrder = 2
+                Text = 'Random'
+                TextSettings.Trimming = None
+                OnClick = RandomButtonClick
+              end
+              object StopButton: TButton
+                Anchors = [akTop, akRight]
+                Position.Y = 63.00000000000000000
+                TabOrder = 8
+                Text = 'StopButton'
+                TextSettings.Trimming = None
+                OnClick = StopButtonClick
+              end
+              object ChartButton: TButton
+                Anchors = [akTop, akRight]
+                Position.Y = 85.00000000000000000
+                TabOrder = 7
+                Text = 'ChartButton'
+                TextSettings.Trimming = None
+                OnClick = ChartButtonClick
+              end
+              object SymbolsComboBox: TComboBox
+                Anchors = [akTop, akRight]
+                Position.Y = 107.00000000000000000
+                Size.Width = 177.00000000000000000
+                Size.Height = 22.00000000000000000
+                Size.PlatformDefault = False
+                TabOrder = 4
+              end
+            end
+          end
+        end
+        object SpeedButton1: TSpeedButton
+          Position.X = 376.00000000000000000
+          Position.Y = 8.00000000000000000
+          Text = 'SpeedButton1'
+          TextSettings.Trimming = None
+          OnClick = SpeedButton1Click
+        end
+      end
+    end
+    object ObjectsPanel: TPanel
+      Align = Left
+      Size.Width = 169.00000000000000000
+      Size.Height = 712.00000000000000000
+      Size.PlatformDefault = False
+      TabOrder = 4
+      object ObjectsTabControl: TTabControl
+        Align = Client
+        Size.Width = 169.00000000000000000
+        Size.Height = 712.00000000000000000
+        Size.PlatformDefault = False
+        TabIndex = 0
+        TabOrder = 0
+        TabPosition = Bottom
+        Sizes = (
+          169s
+          686s)
+        object ModulesTabItem: TTabItem
+          CustomIcon = <
+            item
+            end>
+          TextSettings.Trimming = None
+          IsSelected = True
+          Size.Width = 66.00000000000000000
+          Size.Height = 26.00000000000000000
+          Size.PlatformDefault = False
+          StyleLookup = ''
+          TabOrder = 0
+          Text = 'Modules'
+          object TreeView: TTreeView
+            Align = Client
+            Size.Width = 169.00000000000000000
+            Size.Height = 686.00000000000000000
+            Size.PlatformDefault = False
+            TabOrder = 0
+            OnDblClick = TreeViewDblClick
+            AllowDrag = True
+            Viewport.Width = 165.00000000000000000
+            Viewport.Height = 682.00000000000000000
+          end
+        end
+      end
+    end
  end
  object LogMemo: TMemo
    Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
    DataDetectorTypes = []
    Align = Bottom
-    Position.Y = 616.00000000000000000
+    Position.Y = 712.00000000000000000
    Size.Width = 796.00000000000000000
-    Size.Height = 224.00000000000000000
+    Size.Height = 128.00000000000000000
    Size.PlatformDefault = False
    TabOrder = 1
    Viewport.Width = 792.00000000000000000
-    Viewport.Height = 220.00000000000000000
+    Viewport.Height = 124.00000000000000000
+  end
+  object ActionList: TActionList
+    Left = 209
+    Top = 32
+    object AddWorkspaceAction: TAction
+      Text = 'Add Workspace'
+      OnExecute = AddWorkspaceActionExecute
+    end
+    object TestAction: TAction
+      Text = 'Test...'
+      Checked = True
+      OnExecute = TestActionExecute
+    end
  end
 end