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