source: trunk/tunneler.lpr

Last change on this file was 93, checked in by chronos, 6 months ago
  • Modified: Better menu High DPI scaling.
File size: 846 bytes
Line 
1program tunneler;
2
3{$mode delphi}{$H+}
4
5uses
6 {$IFDEF UNIX}
7 cthreads, clocale,
8 {$ENDIF}
9 Interfaces, // this includes the LCL widgetset
10 Forms, TemplateGenerics, Platform, FileUtil, SysUtils, Common, FormNewGame,
11 FormMain, FormMap, FormGameResult, Core, World, Matter, FastPixel,
12 Sound, AsyncProcess2, UITypes2
13 { you can add units after this };
14
15{$R *.res}
16
17{$if declared(UseHeapTrace)}
18const
19 HeapTraceLog = 'heaptrclog.trc';
20{$ENDIF}
21
22begin
23 {$if declared(UseHeapTrace)}
24 // Heap trace
25 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
26 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
27 {$ENDIF}
28
29 Application.Title:='';
30 Application.Scaled:=True;
31 Application.Initialize;
32 Application.CreateForm(TCore, Core.Core);
33 Application.CreateForm(TFormMain, FormMain.FormMain);
34 Application.Run;
35end.
36
Note: See TracBrowser for help on using the repository browser.