source: trunk/ChronIS.lpr

program ChronIS;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, UFormMain, UCore, CoolStreaming, UAttendance, CoolWeb, Common,
  CoolTranslator, UFormSetting, SysUtils, UFormList, UFormEdit, UDataView,
  URegistredModules, TemplateGenerics, synapse, TEditExtensions, PinConnection,
  PrintPreview, UFormConnection, UModuleAttendance, UDataModel,
  UFormVirtualTerminal, UAccessControler, UModuleChiyuAccessControlers,
  UTerminalBF630, UMenu;

{$R *.res}

{$IFDEF DEBUG}
const
  HeapTraceLog = 'heaptrclog.trc';
{$ENDIF}

begin
  {$IFDEF DEBUG}
  // Heap trace
  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  {$ENDIF}

  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TCore, Core);
  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TFormSetting, FormSetting);
  Application.CreateForm(TFormConnection, FormConnection);
  Application.Run;
end.