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

LazStats: Cleanup in DistribUnit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7764 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-10-10 21:02:40 +00:00
parent 94e789f3be
commit b35de9009b
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
applications/lazstats/source/forms/simulations/distribunit.pas
View File

@ -73,6 +73,7 @@ type
var
DistribFrm: TDistribFrm;
implementation
{$R *.lfm}
@ -196,7 +197,7 @@ procedure TDistribFrm.AdjustConstraints;
begin
inherited;
paramsPanel.Constraints.MinWidth := 3*CloseBtn.Width + 2*CloseBtn.BorderSpacing.Left;
ParamsPanel.Constraints.MinWidth := 3*CloseBtn.Width + 2*CloseBtn.BorderSpacing.Left;
ParamsPanel.Constraints.MinHeight :=
ShowCriticalValuesChk.Top + ShowCriticalValuesChk.Height + ShowCriticalValuesChk.BorderSpacing.Bottom +
@ -206,8 +207,6 @@ end;
procedure TDistribFrm.Compute;
var
msg: String;
C: TWinControl;
ok: Boolean;
begin
inherited;
@ -238,7 +237,7 @@ begin
end;
if not ok then
MessageDlg('Please select a distribution.', mtError, [mbOK], 0);
ErrorMsg('Please select a distribution.');
end;