program Transpascal;

{$MODE Delphi}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Forms, Interfaces, SysUtils,
  UMainForm in 'UMainForm.pas' {MainForm},
  UTextSource, UProject, UApplicationInfo, TranspascalCompiler, UProjectManager, UCodeForm, UMessagesForm,
  UCompiledForm, UCodeTreeForm, TemplateGenerics, CoolTranslator, Common,
  UAboutForm, UFormOptions, UCompilersForm, UCompilerSettingsForm;

{$R *.res}

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

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

  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TProjectManager, ProjectManager);
  Application.CreateForm(TCodeForm, CodeForm);
  Application.CreateForm(TMessagesForm, MessagesForm);
  Application.CreateForm(TCompiledForm, CompiledForm);
  Application.CreateForm(TCodeTreeForm, CodeTreeForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(TFormOptions, FormOptions);
  Application.CreateForm(TCompilerSettingsForm, CompilerSettingsForm);
  Application.CreateForm(TFormProducers, FormProducers);
  Application.Run;
end.