equal
deleted
inserted
replaced
203 OutError(errmsgShouldntRun, true) |
203 OutError(errmsgShouldntRun, true) |
204 end |
204 end |
205 end; |
205 end; |
206 |
206 |
207 procedure ShowMainWindow; |
207 procedure ShowMainWindow; |
208 var flags: Longword; |
208 begin |
209 begin |
209 if cFullScreen then ParseCommand('fullscr 1') |
210 flags:= SDL_HWSURFACE or SDL_DOUBLEBUF or SDL_HWACCEL; |
210 else ParseCommand('fullscr 0') |
211 if cFullScreen then flags:= flags or SDL_FULLSCREEN |
|
212 else SDL_WM_SetCaption('Hedgewars', nil); |
|
213 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags); |
|
214 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true); |
|
215 PixelFormat:= SDLPrimSurface.format; |
|
216 SDL_ShowCursor(0); |
|
217 end; |
211 end; |
218 |
212 |
219 /////////////// |
213 /////////////// |
220 procedure Game; |
214 procedure Game; |
221 begin |
215 begin |