source: trunk/Packages/ChronisPlatform/Demo/ChronisDemo.lpr

Last change on this file was 5, checked in by chronos, 12 years ago
  • Added: Required packages.
File size: 625 bytes
Line 
1program ChronisDemo;
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, SysUtils, UDataModuleDemo, Common, UModuleTest;
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(TDataModuleDemo, DataModuleDemo);
29 Application.Run;
30end.
31
Note: See TracBrowser for help on using the repository browser.