hedgewars/uMisc.pas
changeset 3928 2560731c860d
parent 3914 c5c903c6225b
child 3939 e6fddcb04dc2
--- a/hedgewars/uMisc.pas	Wed Oct 06 02:31:04 2010 +0200
+++ b/hedgewars/uMisc.pas	Thu Oct 07 02:03:01 2010 +0200
@@ -196,7 +196,7 @@
 procedure MakeScreenshot(filename: shortstring);
 
 implementation
-uses uConsole, uStore, uIO, uSound, typinfo, sysutils;
+uses uConsole, uStore, uIO, uSound, typinfo, sysutils, uMobile;
 
 var KBnum: Longword;
 {$IFDEF DEBUGFILE}
@@ -791,21 +791,20 @@
 
     ScreenFade      := sfNone;
 
+{$IFDEF SDL13}
+    SDLwindow       := nil;
+{$ENDIF}
+
     // those values still aren't perfect
     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
     cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;
 
-{$IFDEF IPHONEOS}
     if isPhone() then
         cMaxCaptions:= 3
     else
-{$ENDIF}
         cMaxCaptions:= 4;
 
-{$IFDEF SDL13}
-    SDLwindow       := nil;
-{$ENDIF}
 {$IFDEF DEBUGFILE}
 {$I-}
 {$IFDEF IPHONEOS}