hedgewars/uVariables.pas
changeset 5505 a55aab592950
parent 5493 49769489af37
child 5537 3d8b301a7054
equal deleted inserted replaced
5503:d8632f589008 5505:a55aab592950
   165     disableLandBack : boolean;
   165     disableLandBack : boolean;
   166     conversionFormat: PSDL_PixelFormat;
   166     conversionFormat: PSDL_PixelFormat;
   167 
   167 
   168 {$IFDEF SDL13}
   168 {$IFDEF SDL13}
   169     SDLwindow       : PSDL_Window;
   169     SDLwindow       : PSDL_Window;
   170     SDLrender       : PSDL_Renderer;
   170     SDLGLcontext    : PSDL_GLContext;
   171 {$ENDIF}
   171 {$ENDIF}
   172 
   172 
   173     WorldDx: LongInt;
   173     WorldDx: LongInt;
   174     WorldDy: LongInt;
   174     WorldDy: LongInt;
   175 
   175 
  2490 
  2490 
  2491     ScreenFade      := sfNone;
  2491     ScreenFade      := sfNone;
  2492 
  2492 
  2493 {$IFDEF SDL13}
  2493 {$IFDEF SDL13}
  2494     SDLwindow       := nil;
  2494     SDLwindow       := nil;
  2495     SDLrender       := nil;
  2495     SDLGLcontext    := nil;
  2496 {$ENDIF}
  2496 {$ENDIF}
  2497 
  2497 
  2498     // those values still are not perfect
  2498     // those values still are not perfect
  2499     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
  2499     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
  2500     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
  2500     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);