Changeset 20 for branches/gbitmap/project1.lpr

Timestamp:

Dec 21, 2016, 3:49:27 PM (8 years ago)

Author:

chronos

Message:

• Modified: For single class layer TPixmap and TColor is used. They have TBPixmap and TBColor backends pairs.

File:

• branches/gbitmap/project1.lpr (modified) (1 diff)

branches/gbitmap/project1.lpr

@@ -8 +8 @@
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, UFormMain, GPixmap, GImage, UPixmapSpecialized
+  SysUtils, Forms, UFormMain, GPixmap, GImage, UPixmapSpecialized
   { you can add units after this };
 
 {$R *.res}
 
+{$IFDEF DEBUG}
+const
+  HeapTraceLog = 'heaptrclog.trc';
+{$ENDIF}
+
 begin
-  RequireDerivedFormResource:=True;
+  {$IFDEF DEBUG}
+  // Heap trace
+  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  {$ENDIF}
+
+  RequireDerivedFormResource := True;
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);