Files
lazarus-ccr/applications/lazstats/source/forms/simulations/probsmallerzunit.pas
wp_xxyyzz 2f33dc9f7b LazStats: initial commit.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7345 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2020-03-30 18:01:44 +00:00

79 lines
1.5 KiB
ObjectPascal

unit ProbSmallerZUnit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls,
Functionslib;
type
{ TProbSmallerzForm }
TProbSmallerzForm = class(TForm)
Bevel1: TBevel;
CancelBtn: TButton;
ComputeBtn: TButton;
Label1: TLabel;
Label2: TLabel;
Panel1: TPanel;
ProbzEdit: TEdit;
ResetBtn: TButton;
ReturnBtn: TButton;
zEdit: TEdit;
procedure ComputeBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure ResetBtnClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
ProbSmallerzForm: TProbSmallerzForm;
implementation
uses
Math;
{ TProbSmallerzForm }
procedure TProbSmallerzForm.ResetBtnClick(Sender: TObject);
begin
zEdit.Text := '';
ProbzEdit.Text := '';
end;
procedure TProbSmallerzForm.ComputeBtnClick(Sender: TObject);
VAR
zprob, z : double;
outvalue : string;
begin
z := StrToFloat(zEdit.Text);
zprob := probz(z);
outvalue := format('%6.4f',[zprob]);
ProbzEdit.Text := outvalue;
end;
procedure TProbSmallerzForm.FormActivate(Sender: TObject);
var
w: Integer;
begin
w := MaxValue([CancelBtn.Width, ResetBtn.Width, ComputeBtn.Width, ReturnBtn.Width]);
CancelBtn.Constraints.MinWidth := w;
ResetBtn.Constraints.MinWidth := w;
ComputeBtn.Constraints.MinWidth := w;
ReturnBtn.Constraints.MinWidth := w;
end;
initialization
{$I probsmallerzunit.lrs}
end.