Changeset 8 for trunk/VCSCommander.lpr

Timestamp:

May 18, 2015, 12:15:30 AM (9 years ago)

Author:

chronos

Message:

• Added: Checkout form and ability to checkout new working copy.

File:

• trunk/VCSCommander.lpr (modified) (2 diffs)

trunk/VCSCommander.lpr

@@ -9 +9 @@
   Interfaces, // this includes the LCL widgetset
   Forms, UFormMain, UCore, Common, TemplateGenerics, UFormBrowse, UVCS,
-  UFormFavorites, UFormSettings, UFormConsole, USubversion, UProject, 
-UFormCommit
+  UFormFavorites, UFormSettings, UFormConsole, USubversion, UProject, SysUtils,
+  UFormCommit, UFormCheckout
   { 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;
@@ -25 +37 @@
   Application.CreateForm(TFormConsole, FormConsole);
   Application.CreateForm(TFormCommit, FormCommit);
+  Application.CreateForm(TFormCheckout, FormCheckout);
   Application.Run;
 end.