source: trunk/Packages/ModularSystem/Demo/Demo.lpr

Last change on this file was 73, checked in by chronos, 12 years ago
  • Modified: Packages are now stored as uncomporessed and are linked with relative path to project.
File size: 704 bytes
Line 
1program Demo;
2
3{$mode objfpc}{$H+}
4
5uses
6 {$IFDEF UNIX}{$IFDEF UseCThreads}
7 cthreads,
8 {$ENDIF}{$ENDIF}
9 Interfaces, // this includes the LCL widgetset
10 Forms, UMainForm, UModuleUser, UModuleBase, UModuleACL, ULogForm, SysUtils;
11
12{$R *.res}
13
14{$IFDEF DEBUG}
15const
16 HeapTraceLog = 'heaptrclog.trc';
17{$ENDIF}
18
19begin
20 {$IFDEF DEBUG}
21 // Heap trace
22 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
23 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
24 {$ENDIF}
25
26 RequireDerivedFormResource := True;
27 Application.Initialize;
28 Application.CreateForm(TMainForm, MainForm);
29 Application.CreateForm(TLogForm, LogForm);
30 Application.Run;
31end.
32
Note: See TracBrowser for help on using the repository browser.