pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: Add OnDblClick handlers for listboxes in BreakdownUnit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7719 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-29 10:55:15 +00:00
parent 3e74301fa1
commit feed93c12b
2 changed files with 35 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
applications/lazstats/source/forms/analysis/descriptive/breakdownunit.lfm
View File

@ -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

30
applications/lazstats/source/forms/analysis/descriptive/breakdownunit.pas
View File

@ -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;