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 BorderSpacing.Right = 8
ItemHeight = 0 ItemHeight = 0
MultiSelect = True MultiSelect = True
OnDblClick = VarListDblClick
OnSelectionChange = VarListSelectionChange OnSelectionChange = VarListSelectionChange
TabOrder = 0 TabOrder = 0
end end
@ -206,6 +207,7 @@ inherited BreakDownFrm: TBreakDownFrm
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
ItemHeight = 0 ItemHeight = 0
OnDblClick = SelListDblClick
OnSelectionChange = SelListSelectionChange OnSelectionChange = SelListSelectionChange
TabOrder = 3 TabOrder = 3
end end
@ -303,19 +305,19 @@ inherited BreakDownFrm: TBreakDownFrm
Height = 347 Height = 347
Top = 8 Top = 8
Width = 500 Width = 500
ActivePage = BreakDownPage ActivePage = AnovaPage
Align = alClient Align = alClient
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
TabIndex = 0 TabIndex = 1
TabOrder = 2 TabOrder = 2
object BreakDownPage: TTabSheet object BreakDownPage: TTabSheet
Caption = 'Report' Caption = 'Report'
end end
object AnovaPage: TTabSheet object AnovaPage: TTabSheet
Caption = 'Analaxis of Variance' Caption = 'Analysis of Variance'
TabVisible = False TabVisible = False
end end
end end

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

@ -46,9 +46,11 @@ type
procedure InBtnClick(Sender: TObject); procedure InBtnClick(Sender: TObject);
procedure OutBtnClick(Sender: TObject); procedure OutBtnClick(Sender: TObject);
procedure ResetBtnClick(Sender: TObject); procedure ResetBtnClick(Sender: TObject);
procedure SelListDblClick(Sender: TObject);
procedure SelListSelectionChange(Sender: TObject; User: boolean); procedure SelListSelectionChange(Sender: TObject; User: boolean);
procedure SelVarInBtnClick(Sender: TObject); procedure SelVarInBtnClick(Sender: TObject);
procedure SelVarOutBtnClick(Sender: TObject); procedure SelVarOutBtnClick(Sender: TObject);
procedure VarListDblClick(Sender: TObject);
procedure VarListSelectionChange(Sender: TObject; User: boolean); procedure VarListSelectionChange(Sender: TObject; User: boolean);
private private
@ -718,6 +720,20 @@ begin
end; 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); procedure TBreakDownFrm.SelListSelectionChange(Sender: TObject; User: boolean);
begin begin
UpdateBtnStates; UpdateBtnStates;
@ -777,6 +793,20 @@ begin
end; 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); procedure TBreakDownFrm.VarListSelectionChange(Sender: TObject; User: boolean);
begin begin
UpdateBtnStates; UpdateBtnStates;