source: trunk/VCSCommander.lpr

program VCSCommander;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, UFormMain, UCore, Common, TemplateGenerics, UFormBrowse, UVCS,
  UFormFavorites, UFormSettings, UFormConsole, USubversion, UProject, SysUtils,
  UFormCommit, UFormCheckout, UBazaar, UBackend, UFormLog, UFormTest,
  UFormProjectGroup
  { you can add units after this };

{$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(TFormBrowse, FormBrowse);
  Application.CreateForm(TFormFavorites, FormFavorites);
  Application.CreateForm(TFormSettings, FormSettings);
  Application.CreateForm(TFormConsole, FormConsole);
  Application.CreateForm(TFormCommit, FormCommit);
  Application.CreateForm(TFormCheckout, FormCheckout);
  Application.CreateForm(TFormLog, FormLog);
  Application.CreateForm(TFormTest, FormTest);
  Application.CreateForm(TFormProjectGroup, FormProjectGroup);
  Application.Run;
end.