source: trunk/Game2048.lpr

Last change on this file was 87, checked in by chronos, 3 weeks ago
  • Added: Use also numeric keyboard for movement.
  • Modified: Moved Settings menu under Tools menu.
File size: 737 bytes
Line 
1program Game2048;
2
3{$mode objfpc}{$H+}
4
5uses
6 {$IFDEF UNIX}
7 cthreads, clocale,
8 {$ENDIF}
9 Interfaces, SysUtils,// this includes the LCL widgetset
10 Forms, Game, Common, FormMain, Core
11 { you can add units after this };
12
13{$R *.res}
14
15{$if declared(UseHeapTrace)}
16const
17 HeapTraceLog = 'heaptrclog.trc';
18{$ENDIF}
19
20
21begin
22 {$if declared(UseHeapTrace)}
23 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
24 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
25 {$ENDIF}
26 RequireDerivedFormResource:=True;
27 Application.Title:='2048';
28 Application.Scaled:=True;
29 Application.Initialize;
30 Application.CreateForm(TCore, Core.Core);
31 Application.CreateForm(TFormMain, FormMain.FormMain);
32 Application.Run;
33end.
34
Note: See TracBrowser for help on using the repository browser.