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

LazStats: Complete inherited methods Reset and UpdateBtnStates in ChiSqrUnit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7806 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-10-26 08:54:34 +00:00
parent fb531ea79d
commit 01c3b379c0
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
applications/lazstats/source/forms/analysis/nonparametric/chisqrunit.pas
View File

@ -759,6 +759,13 @@ var
begin
inherited;
if FFrequenciesReportFrame <> nil then
FFrequenciesReportFrame.Clear;
if FRowColPropsReportFrame <> nil then
FRowColPropsReportFrame.Clear;
if FCellChiSqrReportFrame <> nil then
FCellChiSqrReportFrame.Clear;
InputGrp.ItemIndex := 0;
VarList.Clear;
@ -816,7 +823,14 @@ end;
procedure TChiSqrFrm.UpdateBtnStates;
begin
inherited;
if FFrequenciesReportFrame <> nil then
FFrequenciesReportFrame.UpdateBtnStates;
if FRowColPropsReportFrame <> nil then
FRowColPropsReportFrame.UpdateBtnStates;
if FCellChiSqrReportFrame <> nil then
FCellChiSqrReportFrame.UpdateBtnStates;
RowIn.Enabled := (VarList.Items.Count > 0) and (RowEdit.Text = '');
ColIn.Enabled := (VarList.Items.Count > 0) and (ColEdit.Text = '');
DepIn.Enabled := (VarList.Items.Count > 0) and (DepEdit.Text = '') and (InputGrp.ItemIndex > 0);