diff --git a/applications/lazstats/source/forms/analysis/statistical_process_control/basicspcunit.pas b/applications/lazstats/source/forms/analysis/statistical_process_control/basicspcunit.pas
index c28003988..574cc577d 100644
--- a/applications/lazstats/source/forms/analysis/statistical_process_control/basicspcunit.pas
+++ b/applications/lazstats/source/forms/analysis/statistical_process_control/basicspcunit.pas
@@ -51,6 +51,7 @@ type
     FGroupsNeeded: Boolean;
 
   protected
+    FAutoSized: Boolean;
     GrpVar: Integer;
     MeasVar: Integer;
     procedure Compute; virtual;
@@ -145,6 +146,9 @@ procedure TBasicSPCForm.FormActivate(Sender: TObject);
 var
   w: Integer;
 begin
+  if FAutoSized then
+    exit;
+
   w := MaxValue([HelpBtn.Width, ResetBtn.Width, ComputeBtn.Width, CloseBtn.Width]);
   HelpBtn.Constraints.MinWidth := w;
   ResetBtn.Constraints.MinWidth := w;
@@ -156,6 +160,9 @@ begin
     CloseBtn.Left + CloseBtn.Width - HelpBtn.Left + HelpBtn.BorderSpacing.Around
   );
   Constraints.MinHeight := MeasEdit.Top + MeasEdit.Height + MeasEdit.BorderSpacing.Bottom + ButtonPanel.Height;
+
+  Position := poDesigned;
+  FAutoSized := true;
 end;
 
 
diff --git a/applications/lazstats/source/forms/analysis/statistical_process_control/cchartunit.lfm b/applications/lazstats/source/forms/analysis/statistical_process_control/cchartunit.lfm
index e30a4735a..ba1d5dd79 100644
--- a/applications/lazstats/source/forms/analysis/statistical_process_control/cchartunit.lfm
+++ b/applications/lazstats/source/forms/analysis/statistical_process_control/cchartunit.lfm
@@ -33,7 +33,7 @@ inherited CChartForm: TCChartForm
     end
     inherited VarList: TListBox
       Height = 345
-      Width = 192
+      Width = 200
     end
     inherited GroupLabel: TLabel
       Left = 240
@@ -122,4 +122,13 @@ inherited CChartForm: TCChartForm
       end
     end
   end
+  inherited SpecsSplitter: TSplitter
+    Left = 451
+    Height = 420
+  end
+  inherited PageControl: TPageControl
+    Left = 459
+    Height = 408
+    Width = 462
+  end
 end
diff --git a/applications/lazstats/source/forms/analysis/statistical_process_control/cchartunit.pas b/applications/lazstats/source/forms/analysis/statistical_process_control/cchartunit.pas
index 0335a36c8..6000755dd 100644
--- a/applications/lazstats/source/forms/analysis/statistical_process_control/cchartunit.pas
+++ b/applications/lazstats/source/forms/analysis/statistical_process_control/cchartunit.pas
@@ -111,6 +111,9 @@ procedure TCChartForm.FormActivate(Sender: TObject);
 var
   w: Integer;
 begin
+  if FAutoSized then
+    exit;
+
   w := MaxValue([HelpBtn.Width, ResetBtn.Width, ComputeBtn.Width, CloseBtn.Width]);
   HelpBtn.Constraints.MinWidth := w;
   ResetBtn.Constraints.MinWidth := w;
@@ -132,6 +135,9 @@ begin
   finally
     EnableAutoSizing;
   end;
+
+  Position := poDesigned;
+  FAutoSized := true;
 end;
 
 
diff --git a/applications/lazstats/source/forms/analysis/statistical_process_control/cusumunit.pas b/applications/lazstats/source/forms/analysis/statistical_process_control/cusumunit.pas
index 54959ae26..174ba7661 100644
--- a/applications/lazstats/source/forms/analysis/statistical_process_control/cusumunit.pas
+++ b/applications/lazstats/source/forms/analysis/statistical_process_control/cusumunit.pas
@@ -350,6 +350,9 @@ procedure TCUSUMChartForm.FormActivate(Sender: TObject);
 var
   w: Integer;
 begin
+  if FAutoSized then
+    exit;
+
   w := MaxValue([HelpBtn.Width, ResetBtn.Width, ComputeBtn.Width, CloseBtn.Width]);
   HelpBtn.Constraints.MinWidth := w;
   ResetBtn.Constraints.MinWidth := w;
@@ -375,6 +378,9 @@ begin
   finally
     EnableAutoSizing;
   end;
+
+  Position := poDesigned;
+  FAutoSized := true;
 end;
 
 
diff --git a/applications/lazstats/source/forms/analysis/statistical_process_control/pchartunit.lfm b/applications/lazstats/source/forms/analysis/statistical_process_control/pchartunit.lfm
index 7a96565c3..af25feaec 100644
--- a/applications/lazstats/source/forms/analysis/statistical_process_control/pchartunit.lfm
+++ b/applications/lazstats/source/forms/analysis/statistical_process_control/pchartunit.lfm
@@ -29,7 +29,7 @@ inherited PChartForm: TPChartForm
       end
     end
     inherited VarList: TListBox
-      Width = 200
+      Width = 208
     end
     inherited GroupLabel: TLabel
       Left = 248
@@ -175,4 +175,11 @@ inherited PChartForm: TPChartForm
       end
     end
   end
+  inherited SpecsSplitter: TSplitter
+    Left = 467
+  end
+  inherited PageControl: TPageControl
+    Left = 475
+    Width = 446
+  end
 end
diff --git a/applications/lazstats/source/forms/analysis/statistical_process_control/pchartunit.pas b/applications/lazstats/source/forms/analysis/statistical_process_control/pchartunit.pas
index 2c7d9d874..eb17d8277 100644
--- a/applications/lazstats/source/forms/analysis/statistical_process_control/pchartunit.pas
+++ b/applications/lazstats/source/forms/analysis/statistical_process_control/pchartunit.pas
@@ -124,6 +124,9 @@ procedure TPChartForm.FormActivate(Sender: TObject);
 var
   w: Integer;
 begin
+  if FAutoSized then
+    exit;
+
   w := MaxValue([HelpBtn.Width, ResetBtn.Width, ComputeBtn.Width, CloseBtn.Width]);
   HelpBtn.Constraints.MinWidth := w;
   ResetBtn.Constraints.MinWidth := w;
@@ -145,6 +148,9 @@ begin
   finally
     EnableAutoSizing;
   end;
+
+  Position := poDesigned;
+  FAutoSized := true;
 end;
 
 
diff --git a/applications/lazstats/source/forms/analysis/statistical_process_control/uchartunit.pas b/applications/lazstats/source/forms/analysis/statistical_process_control/uchartunit.pas
index 1a2b84b76..7ac759e70 100644
--- a/applications/lazstats/source/forms/analysis/statistical_process_control/uchartunit.pas
+++ b/applications/lazstats/source/forms/analysis/statistical_process_control/uchartunit.pas
@@ -116,6 +116,9 @@ procedure TUChartForm.FormActivate(Sender: TObject);
 var
   w: Integer;
 begin
+  if FAutoSized then
+    exit;
+
   w := MaxValue([HelpBtn.Width, ResetBtn.Width, ComputeBtn.Width, CloseBtn.Width]);
   HelpBtn.Constraints.MinWidth := w;
   ResetBtn.Constraints.MinWidth := w;
@@ -137,6 +140,9 @@ begin
   finally
     EnableAutoSizing;
   end;
+
+  Position := poDesigned;
+  FAutoSized := true;
 end;
 
 
diff --git a/applications/lazstats/source/forms/analysis/statistical_process_control/xbarchartunit.lfm b/applications/lazstats/source/forms/analysis/statistical_process_control/xbarchartunit.lfm
index 216a7a3a9..8c794740d 100644
--- a/applications/lazstats/source/forms/analysis/statistical_process_control/xbarchartunit.lfm
+++ b/applications/lazstats/source/forms/analysis/statistical_process_control/xbarchartunit.lfm
@@ -236,4 +236,9 @@ inherited XBarChartForm: TXBarChartForm
     Left = 390
     Height = 476
   end
+  inherited PageControl: TPageControl
+    Left = 398
+    Height = 464
+    Width = 523
+  end
 end
diff --git a/applications/lazstats/source/forms/analysis/statistical_process_control/xbarchartunit.pas b/applications/lazstats/source/forms/analysis/statistical_process_control/xbarchartunit.pas
index b8b90f0d6..3123d2f67 100644
--- a/applications/lazstats/source/forms/analysis/statistical_process_control/xbarchartunit.pas
+++ b/applications/lazstats/source/forms/analysis/statistical_process_control/xbarchartunit.pas
@@ -23,7 +23,7 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, StdCtrls, Buttons, PrintersDlgs,
+  ExtCtrls, StdCtrls, Buttons,
   Globals, BasicSPCUnit;
 
 type
@@ -61,7 +61,7 @@ implementation
 
 uses
   Math,
-  Utils, MathUnit, MainUnit, DataProcs;
+  Utils, MainUnit, DataProcs;
 
 {$R *.lfm}
 
@@ -69,6 +69,9 @@ procedure TXBarChartForm.FormActivate(Sender: TObject);
 var
   w: Integer;
 begin
+  if FAutoSized then
+    exit;
+
   w := MaxValue([HelpBtn.Width, ResetBtn.Width, ComputeBtn.Width, CloseBtn.Width]);
   HelpBtn.Constraints.MinWidth := w;
   ResetBtn.Constraints.MinWidth := w;
@@ -93,6 +96,9 @@ begin
   finally
     EnableAutoSizing;
   end;
+
+  Position := poDesigned;
+  FAutoSized := true;
 end;