Changeset 27 for trunk/Form

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Form

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (2 diffs)

trunk/Form/UFormMain.lfm

@@ -397 +397 @@
         Align = alClient
         BorderSpacing.Around = 4
-        object ChartSpeedLineSeries1: TLineSeries
-          LinePen.Color = clWhite
+        object ChartSpeedLineSeriesAvg: TLineSeries
+          LinePen.Color = clGreen
+        end
+        object ChartSpeedLineSeriesMin: TLineSeries
+          LinePen.Color = clBlue
+        end
+        object ChartSpeedLineSeriesMax: TLineSeries
+          LinePen.Color = clRed
         end
       end

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;