source: branches/test1/Client/chronis.lpr

program chronis;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, UPersistentForm, UTreeState, SysUtils, UFormItemView, UFormItemEdit,
  UFormLogin, UFormMain, UFormItemAdd, TemplateGenerics, CoolTranslator, Common,
  CoolWeb, USystem, UCore, UApplicationInfo, UFormSetting, UFormImportStructure,
  UFormItemSelect, UFormLoginProfile, UFormAbout, UChronisModule, UDataTypes,
  UModuleSystem, UFormItemList, LDockTree, URemote, UModuleUser, UFormMenu
  { you can add units after this };

{$R *.res}

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

begin
  Application.Title := 'ChronIS';
  {$IFDEF DEBUG}
  // Heap trace
  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  {$ENDIF}

  Application.Initialize;
  Application.CreateForm(TCore, Core);
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TFormMenu, FormMenu);
  Application.Run;
end.