source: trunk/IDE/Transpascal.lpr

Last change on this file was 75, checked in by chronos, 19 months ago
  • Modified: Removed U prefix from unit names.
  • Modified: Updated Common package.
File size: 931 bytes
Line 
1program Transpascal;
2
3{$MODE Delphi}
4
5uses
6 {$IFDEF UNIX}{$IFDEF UseCThreads}
7 cthreads,
8 {$ENDIF}{$ENDIF}
9 Forms, Interfaces, SysUtils,
10 FormMain {MainForm},
11 TextSource, Project, TranspascalCompiler, FormProject,
12 FormSourceCode, FormMessages,
13 FormTargetCode, FormCodeTree, Common,
14 FormOptions, FormTargets,
15 FormProjectNew, ProjectTemplates, FormTargetProject, Core,
16 FormTargetOptions, FormExternalProducerOutput, IDEModulePascal;
17
18{$R *.res}
19
20{$IFDEF DEBUG}
21const
22 HeapTraceLog = 'heaptrclog.trc';
23{$ENDIF}
24
25begin
26 Application.Title:='Transpascal IDE';
27 {$IFDEF DEBUG}
28 // Heap trace
29 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
30 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
31 {$ENDIF}
32
33 Application.Initialize;
34 Application.CreateForm(TCore, Core.Core);
35 Application.CreateForm(TFormMain, FormMain.FormMain);
36 Application.Run;
37end.
Note: See TracBrowser for help on using the repository browser.