Changeset 28 for trunk/tunneler.lpr

Timestamp:

Oct 3, 2011, 8:17:16 PM (13 years ago)

Author:

george

Message:

 

File:

• trunk/tunneler.lpr (modified) (1 diff)

trunk/tunneler.lpr

@@ -9 +9 @@
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, UCore, TemplateGenerics, CoolTranslator, UPlatform,
+  Forms, UCore, TemplateGenerics, CoolTranslator, UPlatform, FileUtil, SysUtils,
   UApplicationInfo, URectangle, UPersistentForm, URegistry, UThreading, 
-UNewGameForm, UMainForm, UMapForm
+UNewGameForm, UMainForm, UMapForm, UDebugForm, UGameResultsForm
   { 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}
+
   Application.Initialize;
   Application.CreateForm(TMainForm, MainForm);
   Application.CreateForm(TMapForm, MapForm);
   Application.CreateForm(TNewGameForm, NewGameForm);
+  {$IFDEF DEBUG}
+  Application.CreateForm(TDebugForm, DebugForm);
+  {$ENDIF}
   Application.Run;
 end.