Changeset 25 for trunk/Form/UFormMain.lfm

Timestamp:

Apr 5, 2016, 10:54:28 PM (8 years ago)

Author:

chronos

Message:

• Added: Record transfer speed to chart during scan operation.

File:

• trunk/Form/UFormMain.lfm (modified) (3 diffs)

trunk/Form/UFormMain.lfm

@@ -38 +38 @@
     end
   end
-  object Panel1: TPanel
-    Left = 597
-    Height = 1014
-    Top = 26
-    Width = 1106
-    Align = alClient
-    BevelOuter = bvNone
-    ClientHeight = 1014
-    ClientWidth = 1106
-    TabOrder = 1
-    object Image1: TImage
-      Left = 8
-      Height = 998
-      Top = 8
-      Width = 1090
-      Align = alClient
-      BorderSpacing.Around = 8
-      OnResize = Image1Resize
-    end
-  end
   object Panel2: TPanel
     Left = 0
@@ -67 +47 @@
     ClientHeight = 1014
     ClientWidth = 592
-    TabOrder = 2
+    TabOrder = 1
     object Panel3: TPanel
       Left = 0
@@ -364 +344 @@
     Width = 5
   end
+  object PageControl1: TPageControl
+    Left = 597
+    Height = 1014
+    Top = 26
+    Width = 1106
+    ActivePage = TabSheetSpeed
+    Align = alClient
+    TabIndex = 1
+    TabOrder = 3
+    object TabSheetSectors: TTabSheet
+      Caption = 'Sector map'
+      ClientHeight = 972
+      ClientWidth = 1100
+      object Image1: TImage
+        Left = 4
+        Height = 964
+        Top = 4
+        Width = 1092
+        Align = alClient
+        BorderSpacing.Around = 4
+        OnResize = Image1Resize
+      end
+    end
+    object TabSheetSpeed: TTabSheet
+      Caption = 'Transfer speed'
+      ClientHeight = 972
+      ClientWidth = 1100
+      object ChartSpeed: TChart
+        Left = 4
+        Height = 964
+        Top = 4
+        Width = 1092
+        AxisList = <        
+          item
+            Marks.Format = '%0:.9g MB/s'
+            Marks.Style = smsCustom
+            Minors = <>
+            Range.UseMin = True
+            Title.LabelFont.Orientation = 900
+          end        
+          item
+            Alignment = calBottom
+            Minors = <>
+          end>
+        Foot.Brush.Color = clBtnFace
+        Foot.Font.Color = clBlue
+        Title.Brush.Color = clBtnFace
+        Title.Font.Color = clBlue
+        Title.Text.Strings = (
+          'TAChart'
+        )
+        Align = alClient
+        BorderSpacing.Around = 4
+        object ChartSpeedLineSeries1: TLineSeries
+          LinePen.Color = clWhite
+        end
+      end
+    end
+  end
   object Timer1: TTimer
     Interval = 500