hedgewars/SDLh.pas
changeset 2716 b9ca1bfca24f
parent 2714 c85ffe57d971
child 2800 f286d91157b8
equal deleted inserted replaced
2715:0e4e0db79e2a 2716:b9ca1bfca24f
   325 
   325 
   326 
   326 
   327 {* SDL_Event type definition *}
   327 {* SDL_Event type definition *}
   328 
   328 
   329 {$IFDEF SDL13}
   329 {$IFDEF SDL13}
   330 	//UPDATE TSDL_Window AND TSDL_Texture before usage!!!
   330 	PSDL_Window = pointer;	
   331 	PSDL_Window = ^TSDL_Window;
   331 	PSDL_Texture = pointer;
   332 	TSDL_Window = LongInt; //not true anymore
       
   333 		
       
   334 	PSDL_Texture = ^TSDL_Texture;
       
   335 	TSDL_Texture = LongInt; //not true anymore
       
   336 	
   332 	
   337 	TSDL_WindowEvent = record
   333 	TSDL_WindowEvent = record
   338 		type_: byte;
   334 		type_: byte;
   339 		gain: byte;
   335 		gain: byte;
   340 		state: byte;
   336 		state: byte;
   629 
   625 
   630 function  SDL_RWFromFile(filename, mode: PChar): PSDL_RWops; cdecl; external SDLLibName;
   626 function  SDL_RWFromFile(filename, mode: PChar): PSDL_RWops; cdecl; external SDLLibName;
   631 function  SDL_SaveBMP_RW(surface: PSDL_Surface; dst: PSDL_RWops; freedst: LongInt): LongInt; cdecl; external SDLLibName;
   627 function  SDL_SaveBMP_RW(surface: PSDL_Surface; dst: PSDL_RWops; freedst: LongInt): LongInt; cdecl; external SDLLibName;
   632 
   628 
   633 {$IFDEF SDL13}
   629 {$IFDEF SDL13}
       
   630 function  SDL_CreateWindow(title: PChar; x,y,w,h, flags: LongInt): PSDL_Window; cdecl; external SDLLibName; 	 
       
   631 function  SDL_CreateRenderer(window: PSDL_Window; index, flags: LongInt): LongInt; cdecl; external SDLLibName; 	 
       
   632 function  SDL_SetRenderDrawColor(r,g,b,a: byte): LongInt; cdecl; external SDLLibName;
       
   633 
   634 function  SDL_RenderFill(rect: PSDL_Rect): LongInt;
   634 function  SDL_RenderFill(rect: PSDL_Rect): LongInt;
   635 function  SDL_RenderFillRect(rect: PSDL_Rect): LongInt; cdecl; external SDLLibName;
   635 function  SDL_RenderFillRect(rect: PSDL_Rect): LongInt; cdecl; external SDLLibName;
   636 function  SDL_RenderClear: LongInt; cdecl; external SDLLibName;
   636 function  SDL_RenderClear: LongInt; cdecl; external SDLLibName;
   637 procedure SDL_RenderPresent; cdecl; external SDLLibName;
   637 procedure SDL_RenderPresent; cdecl; external SDLLibName;
   638 procedure SDL_VideoQuit; cdecl; external SDLLibName;
   638 procedure SDL_VideoQuit; cdecl; external SDLLibName;