Changeset 27 for trunk/Form/UFormMain.pas

Timestamp:

Apr 6, 2016, 7:45:46 AM (8 years ago)

Author:

chronos

Message:

• Modified: Improved average value in speed measurement.
• Added: Show Min and Max values with different colors in speed chart.

File:

• trunk/Form/UFormMain.pas (modified) (2 diffs)

trunk/Form/UFormMain.pas

@@ -39 +39 @@
     ButtonScan2: TButton;
     ChartSpeed: TChart;
-    ChartSpeedLineSeries1: TLineSeries;
+    ChartSpeedLineSeriesAvg: TLineSeries;
+    ChartSpeedLineSeriesMin: TLineSeries;
+    ChartSpeedLineSeriesMax: TLineSeries;
     ComboBoxDrive: TComboBox;
     Image1: TImage;
@@ -540 +542 @@
     ChartSpeed.BottomAxis.Range.UseMax := True;
     ChartSpeed.BottomAxis.Range.Max := Length(SpeedSteps);
-    ChartSpeedLineSeries1.Clear;
+    ChartSpeedLineSeriesAvg.Clear;
+    ChartSpeedLineSeriesMin.Clear;
+    ChartSpeedLineSeriesMax.Clear;
     for I := 0 to Length(SpeedSteps) - 1 do
-    if not SpeedSteps[I].Null then
-      ChartSpeedLineSeries1.AddXY(I, SpeedSteps[I].Average / (1024 * 1024));
+    if not SpeedSteps[I].Null then begin
+      ChartSpeedLineSeriesAvg.AddXY(I, SpeedSteps[I].Average / (1024 * 1024));
+      ChartSpeedLineSeriesMin.AddXY(I, SpeedSteps[I].Min / (1024 * 1024));
+      ChartSpeedLineSeriesMax.AddXY(I, SpeedSteps[I].Max / (1024 * 1024));
+    end;
   end;
 end;