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.