program Transpascal;

{$MODE Delphi}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Forms, CoolDocking, Interfaces, SysUtils,
  UMainForm in 'UMainForm.pas' {MainForm},
  UTextSource in 'UTextSource.pas', UProject, UApplicationInfo, URegistry,
  ULastOpenedList, TranspascalCompiler, UProjectManager, UCodeForm,
  UMessagesForm, UCompiledForm, UCodeTreeForm;

{$R *.res}

begin
  // Heap trace
  DeleteFile(ExtractFilePath(ParamStr(0)) + 'heaptrclog.trc');
  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + 'heaptrclog.trc');

  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.Run;
end.