program HCLauncher;

uses
  Vcl.Forms,
  uHCLauncher in 'uHCLauncher.pas' {frmHCLauncher},
  uSmooth in 'uSmooth.pas' {frmSmooth},
  uVCLFancy in 'uVCLFancy.pas' {frmVCLFancy},
  uVCLSplitView in 'uVCLSplitView.pas' {frmSplitView},
  uNV in 'uNV.pas' {nv: TDataModule},
  uAppState in 'uAppState.pas',
  uCICExecuteProgram in '..\..\shared\pascal\uCICExecuteProgram.pas';

{$R *.res}
var
  gAppState: TCICAppState;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'HC Launcher';
  gAppState := TCICAppState.Create;
  // gAppState.AppStateComponents;
  var lASC: TCICAppStateComponent;
  lASC.name := 'frmHCLauncher';
  lASC.objecttype := 'TForm';
  gAppState.AddAppStateComponent(lASC);
  lASC.name := 'frmSmooth';
  lASC.objecttype := 'TForm';
  gAppState.AddAppStateComponent(lASC);
  lASC.name := 'frmVCLFancy';
  lASC.objecttype := 'TForm';
  gAppState.AddAppStateComponent(lASC);
  lASC.name := 'frmSplitView';
  lASC.objecttype := 'TForm';
  gAppState.AddAppStateComponent(lASC);

  Application.CreateForm(Tnv, nv);
  Application.CreateForm(TfrmHCLauncher, frmHCLauncher);
  Application.CreateForm(TfrmSmooth, frmSmooth);
  Application.CreateForm(TfrmVCLFancy, frmVCLFancy);
  Application.CreateForm(TfrmSplitView, frmSplitView);
  Application.Run;
end.