From feed93c12b46f4faff58cc2cec7163e847acb278 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 29 Sep 2020 10:55:15 +0000
Subject: [PATCH] LazStats: Add OnDblClick handlers for listboxes in
 BreakdownUnit.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7719 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../analysis/descriptive/breakdownunit.lfm    |  8 +++--
 .../analysis/descriptive/breakdownunit.pas    | 30 +++++++++++++++++++
 2 files changed, 35 insertions(+), 3 deletions(-)

diff --git a/applications/lazstats/source/forms/analysis/descriptive/breakdownunit.lfm b/applications/lazstats/source/forms/analysis/descriptive/breakdownunit.lfm
index 3e80f98bf..9afdb03cc 100644
--- a/applications/lazstats/source/forms/analysis/descriptive/breakdownunit.lfm
+++ b/applications/lazstats/source/forms/analysis/descriptive/breakdownunit.lfm
@@ -186,6 +186,7 @@ inherited BreakDownFrm: TBreakDownFrm
       BorderSpacing.Right = 8
       ItemHeight = 0
       MultiSelect = True
+      OnDblClick = VarListDblClick
       OnSelectionChange = VarListSelectionChange
       TabOrder = 0
     end
@@ -206,6 +207,7 @@ inherited BreakDownFrm: TBreakDownFrm
       BorderSpacing.Top = 2
       BorderSpacing.Bottom = 8
       ItemHeight = 0
+      OnDblClick = SelListDblClick
       OnSelectionChange = SelListSelectionChange
       TabOrder = 3
     end
@@ -303,19 +305,19 @@ inherited BreakDownFrm: TBreakDownFrm
     Height = 347
     Top = 8
     Width = 500
-    ActivePage = BreakDownPage
+    ActivePage = AnovaPage
     Align = alClient
     BorderSpacing.Left = 4
     BorderSpacing.Top = 8
     BorderSpacing.Right = 8
     BorderSpacing.Bottom = 8
-    TabIndex = 0
+    TabIndex = 1
     TabOrder = 2
     object BreakDownPage: TTabSheet
       Caption = 'Report'
     end
     object AnovaPage: TTabSheet
-      Caption = 'Analaxis of Variance'
+      Caption = 'Analysis of Variance'
       TabVisible = False
     end
   end
diff --git a/applications/lazstats/source/forms/analysis/descriptive/breakdownunit.pas b/applications/lazstats/source/forms/analysis/descriptive/breakdownunit.pas
index 0a0848f88..345b9964e 100644
--- a/applications/lazstats/source/forms/analysis/descriptive/breakdownunit.pas
+++ b/applications/lazstats/source/forms/analysis/descriptive/breakdownunit.pas
@@ -46,9 +46,11 @@ type
     procedure InBtnClick(Sender: TObject);
     procedure OutBtnClick(Sender: TObject);
     procedure ResetBtnClick(Sender: TObject);
+    procedure SelListDblClick(Sender: TObject);
     procedure SelListSelectionChange(Sender: TObject; User: boolean);
     procedure SelVarInBtnClick(Sender: TObject);
     procedure SelVarOutBtnClick(Sender: TObject);
+    procedure VarListDblClick(Sender: TObject);
     procedure VarListSelectionChange(Sender: TObject; User: boolean);
 
   private
@@ -718,6 +720,20 @@ begin
 end;
 
 
+procedure TBreakDownFrm.SelListDblClick(Sender: TObject);
+var
+  index: Integer;
+begin
+  index := SelList.ItemIndex;
+  if index > -1 then
+  begin
+    VarList.Items.Add(SelList.Items[index]);
+    SelList.Items.Delete(index);
+    UpdateBtnStates;
+  end;
+end;
+
+
 procedure TBreakDownFrm.SelListSelectionChange(Sender: TObject; User: boolean);
 begin
   UpdateBtnStates;
@@ -777,6 +793,20 @@ begin
 end;
 
 
+procedure TBreakDownFrm.VarListDblClick(Sender: TObject);
+var
+  index: Integer;
+begin
+  index := VarList.ItemIndex;
+  if index > -1 then
+  begin
+    SelList.Items.Add(VarList.Items[index]);
+    VarList.Items.Delete(index);
+    UpdateBtnStates;
+  end;
+end;
+
+
 procedure TBreakDownFrm.VarListSelectionChange(Sender: TObject; User: boolean);
 begin
   UpdateBtnStates;