Changeset 537 for DpiControls/Demo/DpiComponentsDemo.lpr

Timestamp:

Jun 23, 2019, 12:36:19 AM (5 years ago)

Author:

chronos

Message:

• Modified: Improved DpiControls.

File:

• DpiControls/Demo/DpiComponentsDemo.lpr (modified) (1 diff)

DpiControls/Demo/DpiComponentsDemo.lpr

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