program Algosim;

{$R 'shaders.res' '..\RGL\shaders\shaders.rc'}
{$R 'asfcn.res' '..\asfcn.rc'}

uses
  Windows,
  SysUtils,
  Vcl.Forms,
  SelfTestUI,
  MainForm in 'MainForm.pas' {AlgosimMainForm},
  ASConsole in 'ASConsole.pas',
  IdentSearch in 'IdentSearch.pas',
  DocSearchWin in 'DocSearchWin.pas' {DocSearchForm},
  ASKernel in '..\ASKernel.pas',
  ASPropStores in '..\ASPropStores.pas',
  FrontEndProps in '..\Client\FrontEndProps.pas',
  SProgressIndicator in '..\..\Progress Indicator\SProgressIndicator.pas',
  ASPropMan in '..\ASPropMan.pas',
  ASDoc in '..\Client\ASDoc.pas',
  TextEditor in '..\..\TextEditor\TextEditor.pas',
  UxForm in '..\Client\UxForm.pas',
  ASKernelDefs in '..\ASKernelDefs.pas',
  ASObjects in '..\ASObjects.pas',
  ASObjStore in '..\ASObjStore.pas',
  ASStructs in '..\ASStructs.pas',
  ASPixmap in '..\ASPixmap.pas',
  ascolors in '..\ascolors.pas',
  ASNum in '..\ASNum.pas',
  RomanNumerals in '..\RomanNumerals.pas',
  ASFormatters in '..\ASFormatters.pas',
  ASFunctions in '..\ASFunctions.pas',
  ASFcnExp in '..\ASFcnExp.pas',
  ASTokenizer in '..\ASTokenizer.pas',
  UxPanel in '..\Client\Controls\UxPanel.pas',
  ClockCtl in '..\Client\Controls\ClockCtl.pas',
  ImageViewer in '..\Client\Controls\ImageViewer.pas',
  VisCtl2D in '..\Client\Controls\VisCtl2D.pas',
  ClientVisuals in '..\Client\ClientVisuals.pas',
  ASSettings in 'ASSettings.pas',
  Rux in '..\..\Ux\Rux.pas',
  ClientDefs in '..\Client\ClientDefs.pas',
  AboutForm in 'AboutForm.pas',
  ASContours in '..\ASContours.pas',
  ASVisualization in '..\ASVisualization.pas',
  SelfTest in '..\SelfTest.pas',
  GrphTest in '..\Client\GrphTest.pas',
  ASExecutionContext in '..\ASExecutionContext.pas',
  ModalProtection in '..\Client\ModalProtection.pas',
  DevMode in '..\Client\DevMode.pas',
  DocEd in '..\Client\DocEd.pas' {DocEdFrm},
  ImageSizeForm in '..\Client\ImageSizeForm.pas',
  rgl in '..\RGL\rgl.pas',
  ASSource in '..\ASSource.pas';

{$R *.res}

begin
  if ParamStr(1).ToLower = '/selftest' then
    TSelfTestCUI.RunSelfTest
  else
  begin
    Application.Initialize;
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TAlgosimMainForm, AlgosimMainForm);
  Application.Run;
  end;
end.
