Ignore:
Timestamp:
Oct 17, 2012, 1:21:41 PM (12 years ago)
Author:
chronos
Message:
Location:
ModularSystem/Demo
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ModularSystem/Demo

    • Property svn:ignore
      •  

        old new  
        55Demo.lps
        66Demo
         7heaptrclog.trc
  • ModularSystem/Demo/Demo.lpr

    r394 r429  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UMainForm, UModuleUser, UModuleBase, UModuleACL;
     10  Forms, UMainForm, UModuleUser, UModuleBase, UModuleACL, ULogForm, SysUtils;
    1111
    1212{$R *.res}
    1313
     14{$IFDEF DEBUG}
     15const
     16  HeapTraceLog = 'heaptrclog.trc';
     17{$ENDIF}
     18
    1419begin
     20  {$IFDEF DEBUG}
     21  // Heap trace
     22  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
     23  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
     24  {$ENDIF}
     25
    1526  RequireDerivedFormResource := True;
    1627  Application.Initialize;
    1728  Application.CreateForm(TMainForm, MainForm);
     29  Application.CreateForm(TLogForm, LogForm);
    1830  Application.Run;
    1931end.
Note: See TracChangeset for help on using the changeset viewer.