More verbose video parameters setting
authorunc0rr
Tue, 06 May 2008 14:47:45 +0000
changeset 905 57fec00e1b66
parent 904 a573c949e61c
child 906 1cc10dde304c
More verbose video parameters setting
hedgewars/CCHandlers.inc
hedgewars/hwengine.dpr
--- a/hedgewars/CCHandlers.inc	Sun May 04 19:47:47 2008 +0000
+++ b/hedgewars/CCHandlers.inc	Tue May 06 14:47:45 2008 +0000
@@ -425,16 +425,25 @@
 if Length(s) = 0 then cFullScreen:= not cFullScreen
                  else cFullScreen:= s = '1';
 
+{$IFDEF DEBUGFILE}
+AddFileLog('Prepare to change video parameters...');
+{$ENDIF}
 SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1);
 
 flags:= SDL_OPENGL;
 if cFullScreen then flags:= flags or SDL_FULLSCREEN
                else SDL_WM_SetCaption('Hedgewars', nil);
+{$IFDEF DEBUGFILE}
+AddFileLog('Freeing old primary surface...');
+{$ENDIF}
 SDL_FreeSurface(SDLPrimSurface);
 
 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags);
 SDLTry(SDLPrimSurface <> nil, true);
 
+{$IFDEF DEBUGFILE}
+AddFileLog('Setting up OpenGL...');
+{$ENDIF}
 SetupOpenGL();
 
 {$IFDEF DEBUGFILE}
--- a/hedgewars/hwengine.dpr	Sun May 04 19:47:47 2008 +0000
+++ b/hedgewars/hwengine.dpr	Tue May 06 14:47:45 2008 +0000
@@ -291,7 +291,7 @@
 ////////////////////////////////////////////////////////////////////////////////
 
 begin
-WriteLnToConsole('-= HedgeWars 0.9.2 =-');
+WriteLnToConsole('-= HedgeWars 0.9.3 =-');
 WriteLnToConsole('   -= by unC0Rr =-   ');
 GetParams;
 Randomize;