Changeset 25 for trunk/Form/UFormMain.pas

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.pas (modified) (8 diffs)

trunk/Form/UFormMain.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Menus, ComCtrls, ExtCtrls, ActnList, dateutils, syncobjs, UProject,
-  UDriveScan, UPrefixMultiplier, ULastOpenedList, UPersistentForm, XMLConf,
-  UPhysDrive;
+  Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics,
+  Dialogs, StdCtrls, Menus, ComCtrls, ExtCtrls, ActnList, dateutils, syncobjs,
+  UProject, UDriveScan, UPrefixMultiplier, ULastOpenedList, UPersistentForm,
+  XMLConf, UPhysDrive;
 
 type
@@ -38 +38 @@
     ButtonScan1: TButton;
     ButtonScan2: TButton;
+    ChartSpeed: TChart;
+    ChartSpeedLineSeries1: TLineSeries;
     ComboBoxDrive: TComboBox;
     Image1: TImage;
@@ -83 +85 @@
     MenuItem9: TMenuItem;
     OpenDialog1: TOpenDialog;
-    Panel1: TPanel;
+    PageControl1: TPageControl;
     Panel2: TPanel;
     Panel3: TPanel;
@@ -91 +93 @@
     Splitter1: TSplitter;
     Splitter2: TSplitter;
+    TabSheetSectors: TTabSheet;
+    TabSheetSpeed: TTabSheet;
     Timer1: TTimer;
     ToolBar1: TToolBar;
@@ -135 +139 @@
     procedure DoDraw;
     procedure UpdateInterface;
+    procedure UpdateSpeedChart;
   public
     procedure SaveConfig;
@@ -176 +181 @@
     UpdateInterface;
   end;
+  PageControl1.TabIndex := 0;
 end;
 
@@ -465 +471 @@
       CurrentScan.Lock.Release;
     end;
+    UpdateSpeedChart;
   end else
   with Image1 do begin
@@ -522 +529 @@
 end;
 
+procedure TFormMain.UpdateSpeedChart;
+var
+  I: Integer;
+begin
+  if TabSheetSpeed.Visible then
+  if Assigned(Core.Project) then
+  with Core.Project do
+  if Assigned(CurrentScan) then
+  with CurrentScan do begin
+    ChartSpeed.BottomAxis.Range.UseMax := True;
+    ChartSpeed.BottomAxis.Range.Max := Length(SpeedSteps);
+    ChartSpeedLineSeries1.Clear;
+    for I := 0 to Length(SpeedSteps) - 1 do
+    if not SpeedSteps[I].Null then
+      ChartSpeedLineSeries1.AddXY(I, SpeedSteps[I].Average / (1024 * 1024));
+  end;
+end;
+
 procedure TFormMain.SaveConfig;
 begin