Initial import

code/DecisionHostView.pas

@@ -0,0 +1,27 @@
+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.