source: branches/topdown/OS.lpr

Last change on this file was 37, checked in by chronos, 2 years ago
  • Modified: Simplified unit names.
File size: 759 bytes
Line 
1program OS;
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, FormMain, Apps, OsSystem, AppCalc, FormMenu,
11 AppFileManager, AppTextEditor
12 { you can add units after this };
13
14{$R *.res}
15
16{$if declared(UseHeapTrace)}
17const
18 HeapTraceLog = 'heaptrclog.trc';
19{$ENDIF}
20
21begin
22 {$if declared(UseHeapTrace)}
23 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
24 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
25 {$ENDIF}
26
27 RequireDerivedFormResource:=True;
28 Application.Scaled:=True;
29 Application.Initialize;
30 Application.CreateForm(TFormMain, FormMain.FormMain);
31 Application.Run;
32end.
33
Note: See TracBrowser for help on using the repository browser.