hedgewars/uVariables.pas
changeset 7049 35d762458d66
parent 7028 0f60591f3a16
child 7066 12cc2bd84b0b
equal deleted inserted replaced
7048:0a4c88935902 7049:35d762458d66
   170     ScreenFadeValue : LongInt;
   170     ScreenFadeValue : LongInt;
   171     ScreenFadeSpeed : LongInt;
   171     ScreenFadeSpeed : LongInt;
   172 
   172 
   173     Theme           : shortstring;
   173     Theme           : shortstring;
   174     disableLandBack : boolean;
   174     disableLandBack : boolean;
   175     conversionFormat: PSDL_PixelFormat;
       
   176 
       
   177 {$IFDEF SDL13}
       
   178     SDLwindow       : PSDL_Window;
       
   179 {$ENDIF}
       
   180 
   175 
   181     WorldDx: LongInt;
   176     WorldDx: LongInt;
   182     WorldDy: LongInt;
   177     WorldDy: LongInt;
   183 
   178 
   184     hiTicks: Word;
   179     hiTicks: Word;
  2591     
  2586     
  2592     disableLandBack := false;
  2587     disableLandBack := false;
  2593 
  2588 
  2594     ScreenFade      := sfNone;
  2589     ScreenFade      := sfNone;
  2595 
  2590 
  2596 {$IFDEF SDL13}
       
  2597     SDLwindow       := nil;
       
  2598 {$ENDIF}
       
  2599 
       
  2600     // those values still are not perfect
  2591     // those values still are not perfect
  2601     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
  2592     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
  2602     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
  2593     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
  2603     cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;
  2594     cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;
  2604 
  2595