equal
deleted
inserted
replaced
26 unit hwengine; |
26 unit hwengine; |
27 interface |
27 interface |
28 {$ELSE} |
28 {$ELSE} |
29 program hwengine; |
29 program hwengine; |
30 {$ENDIF} |
30 {$ENDIF} |
31 uses SDLh in 'SDLh.pas', |
31 uses |
|
32 SDLh in 'SDLh.pas', |
32 uConsts in 'uConsts.pas', |
33 uConsts in 'uConsts.pas', |
33 uGame in 'uGame.pas', |
34 uGame in 'uGame.pas', |
34 uMisc in 'uMisc.pas', |
35 uMisc in 'uMisc.pas', |
35 uStore in 'uStore.pas', |
36 uStore in 'uStore.pas', |
36 uWorld in 'uWorld.pas', |
37 uWorld in 'uWorld.pas', |
264 |
265 |
265 WriteToConsole('Init SDL_ttf... '); |
266 WriteToConsole('Init SDL_ttf... '); |
266 SDLTry(TTF_Init() <> -1, true); |
267 SDLTry(TTF_Init() <> -1, true); |
267 WriteLnToConsole(msgOK); |
268 WriteLnToConsole(msgOK); |
268 |
269 |
|
270 s:= SDL_getenv('SDL_VIDEO_CENTERED'); |
|
271 SDL_putenv('SDL_VIDEO_CENTERED=1'); |
269 ShowMainWindow(); |
272 ShowMainWindow(); |
|
273 SDL_putenv(str2pchar('SDL_VIDEO_CENTERED=' + s)); |
270 |
274 |
271 AddProgress(); |
275 AddProgress(); |
272 |
276 |
273 ControllerInit(); // has to happen before InitKbdKeyTable to map keys |
277 ControllerInit(); // has to happen before InitKbdKeyTable to map keys |
274 InitKbdKeyTable(); |
278 InitKbdKeyTable(); |