source: trunk/ChronOS.lpr

Last change on this file was 60, checked in by chronos, 4 weeks ago
  • Modified: Remove U prefix from unit names.
File size: 730 bytes
Line 
1program ChronOS;
2
3{$mode objfpc}{$H+}
4
5uses
6 {$IFDEF UNIX}
7 //{$IFDEF UseCThreads}
8 cthreads,
9 //{$ENDIF}
10 {$ENDIF}
11 Interfaces, // this includes the LCL widgetset
12 Forms, SysUtils, FormMain, Clock, MemoryManager,
13 PlatformBase, ThreadEx, FormTerminal;
14
15{$R *.res}
16
17{$IFDEF DEBUG}
18const
19 HeapTraceLog = 'heaptrclog.trc';
20{$ENDIF}
21
22begin
23 {$IFDEF DEBUG}
24 // Heap trace
25 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
26 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
27 {$ENDIF}
28
29 RequireDerivedFormResource := True;
30 Application.Initialize;
31 Application.CreateForm(TFormMain, FormMain.FormMain);
32 Application.CreateForm(TFormTerminal, FormTerminal.FormTerminal);
33 Application.Run;
34end.
35
Note: See TracBrowser for help on using the repository browser.