| Line |   | 
|---|
| 1 | program Independent;
 | 
|---|
| 2 | 
 | 
|---|
| 3 | uses
 | 
|---|
| 4 |   {$IFDEF UNIX}
 | 
|---|
| 5 |   cthreads, clocale,
 | 
|---|
| 6 |   {$ENDIF}
 | 
|---|
| 7 |   {$IFDEF HASAMIGA}
 | 
|---|
| 8 |   athreads,
 | 
|---|
| 9 |   {$ENDIF}
 | 
|---|
| 10 |   Interfaces, // this includes the LCL widgetset
 | 
|---|
| 11 |   Forms, FormMain, FormScreen, SysUtils, AppCode, SystemApi, Mouse
 | 
|---|
| 12 |   { you can add units after this };
 | 
|---|
| 13 | 
 | 
|---|
| 14 | {$R *.res}
 | 
|---|
| 15 | 
 | 
|---|
| 16 | {$if declared(UseHeapTrace)}
 | 
|---|
| 17 | const
 | 
|---|
| 18 |   HeapTraceLog = 'heaptrclog.trc';
 | 
|---|
| 19 | {$ENDIF}
 | 
|---|
| 20 | 
 | 
|---|
| 21 | begin
 | 
|---|
| 22 |   {$if declared(UseHeapTrace)}
 | 
|---|
| 23 |   // Heap trace
 | 
|---|
| 24 |   DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
 | 
|---|
| 25 |   SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
 | 
|---|
| 26 |   {$ENDIF}
 | 
|---|
| 27 | 
 | 
|---|
| 28 |   RequireDerivedFormResource:=True;
 | 
|---|
| 29 |   Application.Scaled:=True;
 | 
|---|
| 30 |   Application.Initialize;
 | 
|---|
| 31 |   Application.CreateForm(TFormName, FormName);
 | 
|---|
| 32 |   Application.Run;
 | 
|---|
| 33 | end.
 | 
|---|
| 34 | 
 | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.