27 lines
1015 B
ObjectPascal
27 lines
1015 B
ObjectPascal
|
unit DecisionHostView;
|
||
|
|
{$mode objfpc}{$H+}
|
||
|
|
{$ifndef ANDROID}{$fatal Android-only decision host probe}{$endif}
|
||
|
|
interface
|
||
|
|
implementation
|
||
|
|
uses SysUtils,fpjson,CastleWindow,CastleUIControls,ProbeReport,ProbePlatform,ProbeDecision;
|
||
|
|
type
|
||
|
|
TDecisionView=class(TCastleView)
|
||
|
|
public procedure Start;override;end;
|
||
|
|
var Window:TCastleWindow;
|
||
|
|
procedure TDecisionView.Start;
|
||
|
|
var R:TProbeReport;Dir:string;
|
||
|
|
begin
|
||
|
|
inherited;R:=TProbeReport.Create;
|
||
|
|
try
|
||
|
|
Dir:=ProbeDirectory;R.Root.Add('report_directory',Dir);
|
||
|
|
R.Add('android.startup','PASS','Minimal TCastleView Start reached without child controls');
|
||
|
|
R.Add('decision.host.view','PASS','TCastleView host variant reached Start');
|
||
|
|
RunPlatformChecks(R,Dir);RunDecisionChecks(R,Dir);R.Save(Dir+'runtime.json');
|
||
|
|
finally R.Free;end;
|
||
|
|
end;
|
||
|
|
procedure Initialize;
|
||
|
|
begin Window.Container.View:=TDecisionView.Create(Application);end;
|
||
|
|
initialization
|
||
|
|
Application.OnInitialize:=@Initialize;
|
||
|
|
Window:=TCastleWindow.Create(Application);Application.MainWindow:=Window;
|
||
|
|
end.
|