You've already forked lazarus-ccr
LazStats: Less hints and warnings.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7631 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -198,6 +198,7 @@ end;
|
||||
|
||||
procedure TTwoCorrsFrm.ComputeBtnClick(Sender: TObject);
|
||||
var
|
||||
lReport: TStrings;
|
||||
Corxy, Corxz, Coryz, Cor1, Cor2, alpha, tvalue, df1, df2: double;
|
||||
CorDif, zOne, zTwo, zDif, StdErr, zValue, zprobability: double;
|
||||
UCL, LCL, ztest, ConfLevel, tprobability, ttest: double;
|
||||
@ -208,10 +209,9 @@ var
|
||||
SSize1, SSize2, SSize, v1, v2, v3, grp, ncases, NoSelected: integer;
|
||||
min, max, grpval, ncases1, ncases2, i: integer;
|
||||
cellstring: string;
|
||||
ColNoSelected: IntDyneVec;
|
||||
msg: String;
|
||||
C: TWinControl;
|
||||
lReport: TStrings;
|
||||
ColNoSelected: IntDyneVec = nil;
|
||||
begin
|
||||
if not Validate(msg, C) then
|
||||
begin
|
||||
|
@ -353,8 +353,8 @@ var
|
||||
xmin, xmax, ymin, ymax: Double;
|
||||
begin
|
||||
if ChartForm = nil then
|
||||
ChartForm := TChartForm.Create(Application);
|
||||
|
||||
ChartForm := TChartForm.Create(Application)
|
||||
else
|
||||
ChartForm.Clear;
|
||||
|
||||
// Titles
|
||||
@ -376,6 +376,7 @@ begin
|
||||
if ConfChk.Checked then
|
||||
ChartForm.PlotXY(ptLines, XPoints, LowConf, 'Lower confidence band', clRed);
|
||||
|
||||
ChartForm.Chart.Prepare;
|
||||
ChartForm.GetXRange(xmin, xmax, false);
|
||||
ChartForm.GetYRange(ymin, ymax, false);
|
||||
|
||||
|
@ -51,7 +51,7 @@ type
|
||||
procedure InBtnClick(Sender: TObject);
|
||||
procedure OutBtnClick(Sender: TObject);
|
||||
procedure ResetBtnClick(Sender: TObject);
|
||||
procedure VarListSelectionChange(Sender: TObject; User: boolean);
|
||||
procedure VarListSelectionChange(Sender: TObject; {%H-}User: boolean);
|
||||
private
|
||||
{ private declarations }
|
||||
FAutoSized: boolean;
|
||||
|
@ -50,7 +50,7 @@ type
|
||||
procedure InBtnClick(Sender: TObject);
|
||||
procedure OutBtnClick(Sender: TObject);
|
||||
procedure ResetBtnClick(Sender: TObject);
|
||||
procedure VarListSelectionChange(Sender: TObject; User: boolean);
|
||||
procedure VarListSelectionChange(Sender: TObject; {%H-}User: boolean);
|
||||
private
|
||||
{ private declarations }
|
||||
FAutoSized: Boolean;
|
||||
|
@ -524,7 +524,9 @@ end;
|
||||
procedure TOS3MainFrm.FormCreate(Sender: TObject);
|
||||
var
|
||||
helpfn: String;
|
||||
{$IFNDEF USE_EXTERNAL_HELP_VIEWER}
|
||||
lhelpfn: String;
|
||||
{$ENDIF}
|
||||
begin
|
||||
// Reduce ultra-wide width of Inputbox windows
|
||||
cInputQueryEditSizePercents := 0;
|
||||
|
Reference in New Issue
Block a user