Changeset 26 for branches/topdown/OS.lpr

Timestamp:

Aug 22, 2019, 11:01:15 AM (5 years ago)

Author:

chronos

Message:

• Added: Reboot button.
• Added: Check memory leaks.

Location:

branches/topdown

Files:

• . (modified) (1 prop)
• OS.lpr (modified) (1 diff)

branches/topdown/OS.lpr

@@ -8 +8 @@
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, UFormMain, UApps, USystem, UAppCalc, UFormMenu, UAppFileManager
+  Forms, SysUtils, UFormMain, UApps, USystem, UAppCalc, UFormMenu, UAppFileManager
   { you can add units after this };
 
 {$R *.res}
 
+{$if declared(UseHeapTrace)}
+const
+  HeapTraceLog = 'heaptrclog.trc';
+{$ENDIF}
+
 begin
+  {$if declared(UseHeapTrace)}
+  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  {$ENDIF}
+
   RequireDerivedFormResource:=True;
   Application.Scaled:=True;