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

LazStats: Inherit the SPC forms from TBasicStatsForm. Fix some formatting issues in the descriptive forms.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7702 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-27 18:07:50 +00:00
parent 4867231421
commit 6fc99eddbc
18 changed files with 360 additions and 361 deletions
Download Patch File Download Diff File Expand all files Collapse all files

664
applications/lazstats/source/LazStats.lpi
View File

File diff suppressed because it is too large Load Diff

2
applications/lazstats/source/forms/analysis/descriptive/boxplotunit.lfm
View File

@ -1,4 +1,4 @@
inherited BoxPlotFrm: TBoxPlotFrm
object BoxPlotFrm: TBoxPlotFrm
Left = 449
Height = 500
Top = 211

2
applications/lazstats/source/forms/analysis/descriptive/boxplotunit.pas
View File

@ -10,7 +10,7 @@ uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, Printers, ComCtrls, Buttons,
MainUnit, Globals, DataProcs, ContextHelpUnit,
BasicStatsFormUnit, ReportFrameUnit, ChartFrameUnit;
BasicStatsFormUnit, ReportFrameUnit, ChartFrameUnit;
type

2
applications/lazstats/source/forms/analysis/descriptive/descriptiveunit.lfm
View File

@ -1,4 +1,4 @@
inherited DescriptiveFrm: TDescriptiveFrm
object DescriptiveFrm: TDescriptiveFrm
Left = 526
Height = 384
Top = 202

2
applications/lazstats/source/forms/analysis/descriptive/descriptiveunit.pas
View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, Buttons,
MainUnit, Globals, FunctionsLib, BasicStatsFormUnit,
ReportFrameUnit, DataProcs, DictionaryUnit, ContextHelpUnit;
ReportFrameUnit, DataProcs, DictionaryUnit, ContextHelpUnit;
type

2
applications/lazstats/source/forms/analysis/descriptive/frequnit.lfm
View File

@ -1,4 +1,4 @@
inherited FreqFrm: TFreqFrm
object FreqFrm: TFreqFrm
Left = 490
Height = 376
Top = 228

3
applications/lazstats/source/forms/analysis/descriptive/frequnit.pas
View File

@ -9,7 +9,8 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls, Buttons, ExtCtrls, ComCtrls, Spin,
Globals, MainUnit, GraphLib, DataProcs, BasicStatsFormUnit, ReportFrameUnit, ChartFrameUnit;
Globals, MainUnit, GraphLib, DataProcs,
BasicStatsFormUnit, ReportFrameUnit, ChartFrameUnit;
type

2
applications/lazstats/source/forms/analysis/descriptive/multxvsyunit.lfm
View File

@ -1,4 +1,4 @@
inherited MultXvsYFrm: TMultXvsYFrm
object MultXvsYFrm: TMultXvsYFrm
Left = 814
Height = 416
Top = 216

2
applications/lazstats/source/forms/analysis/descriptive/multxvsyunit.pas
View File

@ -11,7 +11,7 @@ uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, Buttons, Clipbrd,
MainUnit, Globals, OutputUnit, DataProcs, DictionaryUnit, ContextHelpUnit,
BasicStatsFormUnit;
BasicStatsFormUnit;
type

2
applications/lazstats/source/forms/analysis/descriptive/plotxyunit.lfm
View File

@ -1,4 +1,4 @@
inherited PlotXYFrm: TPlotXYFrm
object PlotXYFrm: TPlotXYFrm
Left = 427
Height = 500
Top = 175

2
applications/lazstats/source/forms/analysis/descriptive/plotxyunit.pas
View File

@ -10,7 +10,7 @@ uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, Buttons, ComCtrls,
MainUnit, Globals, FunctionsLib, DataProcs, BasicStatsFormUnit,
ReportFrameUnit, ChartFrameUnit;
ReportFrameUnit, ChartFrameUnit;
type

7
applications/lazstats/source/forms/analysis/descriptive/xvsmultyunit.lfm
View File

@ -1,4 +1,4 @@
inherited XvsMultYForm: TXvsMultYForm
object XvsMultYForm: TXvsMultYForm
Left = 288
Height = 500
Top = 117
@ -356,7 +356,7 @@ inherited XvsMultYForm: TXvsMultYForm
Height = 484
Top = 8
Width = 675
ActivePage = ReportPage
ActivePage = ChartPage
Align = alClient
BorderSpacing.Left = 4
BorderSpacing.Top = 8
@ -364,9 +364,6 @@ inherited XvsMultYForm: TXvsMultYForm
BorderSpacing.Bottom = 8
TabIndex = 0
TabOrder = 2
object ReportPage: TTabSheet
Caption = 'Report'
end
object ChartPage: TTabSheet
Caption = 'Chart'
end

9
applications/lazstats/source/forms/analysis/statistical_process_control/basicspcunit.pas
View File

@ -6,14 +6,15 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls, ComCtrls, Buttons, PrintersDlgs,
Globals, MainUnit, ContextHelpUnit, ReportFrameUnit, ChartFrameUnit;
StdCtrls, ComCtrls, Buttons,
Globals, MainUnit, ContextHelpUnit,
BasicStatsFormUnit, ReportFrameUnit, ChartFrameUnit;
type
{ TBasicSPCForm }
TBasicSPCForm = class(TForm)
TBasicSPCForm = class(TBasicStatsForm)
Bevel1: TBevel;
Bevel2: TBevel;
GroupEdit: TEdit;
@ -61,13 +62,13 @@ type
procedure PlotMeans(ATitle, AXTitle, AYTitle, ADataTitle, AGrandMeanTitle: String;
const Groups: StrDyneVec; const Means: DblDyneVec;
UCL, LCL, GrandMean, TargetSpec, LowerSpec, UpperSpec: double); virtual;
procedure Reset; virtual;
procedure UpdateBtnStates; virtual;
function Validate(out AMsg: String; out AControl: TWinControl): Boolean; virtual;
public
FReportFrame: TReportFrame;
FChartFrame: TChartFrame;
procedure Reset; override;
property GroupsNeeded: Boolean read FgroupsNeeded write FGroupsNeeded;
end;

3
applications/lazstats/source/forms/analysis/statistical_process_control/cchartunit.pas
View File

@ -18,9 +18,10 @@ type
procedure FormActivate(Sender: TObject);
protected
procedure Compute; override;
procedure Reset; override;
function Validate(out AMsg: String; out AControl: TWinControl): Boolean; override;
public
procedure Reset; override;
end;
var

6
applications/lazstats/source/forms/analysis/statistical_process_control/cusumunit.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls,
StdCtrls, Buttons, PrintersDlgs, Globals, BasicSPCUnit;
StdCtrls, Buttons, Globals, BasicSPCUnit;
type
@ -49,8 +49,10 @@ type
procedure PlotMeans(ATitle, AXTitle, AYTitle, ADataTitle, AGrandMeanTitle: String;
const Groups: StrDyneVec; const {%H-}Means: DblDyneVec;
UCL, LCL, GrandMean, TargetSpec, LowerSpec, UpperSpec: double); override;
procedure Reset; override;
function Validate(out AMsg: String; out AControl: TWinControl): Boolean; override;
public
procedure Reset; override;
end;
var

4
applications/lazstats/source/forms/analysis/statistical_process_control/pchartunit.pas
View File

@ -22,8 +22,10 @@ type
procedure FormActivate(Sender: TObject);
protected
procedure Compute; override;
procedure Reset; override;
function Validate(out AMsg: String; out AControl: TWinControl): Boolean; override;
public
procedure Reset; override;
end;
var

4
applications/lazstats/source/forms/analysis/statistical_process_control/uchartunit.pas
View File

@ -20,8 +20,10 @@ type
procedure FormActivate(Sender: TObject);
protected
procedure Compute; override;
procedure Reset; override;
function Validate(out AMsg: String; out AControl: TWinControl): Boolean; override;
public
procedure Reset; override;
end;
var

3
applications/lazstats/source/forms/analysis/statistical_process_control/xbarchartunit.pas
View File

@ -49,8 +49,9 @@ type
procedure PlotMeans(ATitle, AXTitle, AYTitle, ADataTitle, AGrandMeanTitle: String;
const Groups: StrDyneVec; const Means: DblDyneVec;
UCL, LCL, GrandMean, TargetSpec, LowerSpec, UpperSpec: double); override;
procedure Reset; override;
function Validate(out AMsg: String; out AControl: TWinControl): Boolean; override;
public
procedure Reset; override;
end;
var