From 4211ddfee32cb7dfa7540cfa1c1f3fa67ac9457e Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 29 Apr 2020 17:49:43 +0000
Subject: [PATCH] LazStats: Fix Simple Multiple Regression failing due to
 faulty Format string. Improved layout of CanonUnit in Linux.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7420 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../source/forms/analysis/correlation/canonunit.pas         | 6 +++++-
 applications/lazstats/source/units/matrixlib.pas            | 2 +-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/applications/lazstats/source/forms/analysis/correlation/canonunit.pas b/applications/lazstats/source/forms/analysis/correlation/canonunit.pas
index adc2c1e76..cdbb19b73 100644
--- a/applications/lazstats/source/forms/analysis/correlation/canonunit.pas
+++ b/applications/lazstats/source/forms/analysis/correlation/canonunit.pas
@@ -129,7 +129,11 @@ begin
   ComputeBtn.Constraints.MinWidth := w;
   CloseBtn.Constraints.MinWidth := w;
 
-  Constraints.MinWidth := Width;
+  w := MaxValue([Label1.Width, Label2.Width, Label3.Width]) + LeftIn.Width + 4 * VarList.BorderSpacing.Left;
+  if w > Width then
+    Constraints.MinWidth := w
+  else
+    Constraints.MinWidth := Width;
   Constraints.MinHeight := Height;
 
   FAutoSized := true;
diff --git a/applications/lazstats/source/units/matrixlib.pas b/applications/lazstats/source/units/matrixlib.pas
index a900590bc..275accdd8 100644
--- a/applications/lazstats/source/units/matrixlib.pas
+++ b/applications/lazstats/source/units/matrixlib.pas
@@ -928,7 +928,7 @@ begin
   AReport.Add('');
   AReport.Add('SOURCE      DF       SS             MS             F        Prob. > F');
   AReport.Add('---------- --- -------------- -------------- -------------- ----------');
-  AReport.Add('Regression %3d  %14.3f %14.3f %14.4f %10.4', [N-1, SSreg, SSreg/(N-1), F, Prob]);     // df1
+  AReport.Add('Regression %3d  %14.3f %14.3f %14.4f %10.4f', [N-1, SSreg, SSreg/(N-1), F, Prob]);     // df1
   AReport.Add('Residual   %3d  %14.3f %14.3f', [(NCases-N), SSres, SSres/(NCases-N)]);            // df2
   AReport.Add('Total      %3d  %14.3f', [NCases-1, SSY]);
   AReport.Add('');