Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/SDLh.pas
changeset 4933 86bd82d58a0b
parent 4911 5d10bd725efe
child 4956 48e1f9a04c28
equal deleted inserted replaced
4932:f11d80bac7ed 4933:86bd82d58a0b 
   356 
   356 
   357 {* SDL_Event type definition *}
 
   357 {* SDL_Event type definition *}
 
   358 
   358 
   359 {$IFDEF SDL13}
 
   359 {$IFDEF SDL13}
 
   360     PSDL_Window = pointer;
 
   360     PSDL_Window = pointer;
 
       
   361     PSDL_Renderer = pointer;
 
   361     PSDL_Texture = pointer;
 
   362     PSDL_Texture = pointer;
 
   362 
   363 
   363     TSDL_WindowEvent = record
 
   364     TSDL_WindowEvent = record
 
   364         type_: LongInt;
 
   365         type_: LongInt;
 
   365         windowID: LongInt;
 
   366         windowID: LongInt;
 
   713 function  SDL_RWFromFile(filename, mode: PChar): PSDL_RWops; cdecl; external SDLLibName;
 
   714 function  SDL_RWFromFile(filename, mode: PChar): PSDL_RWops; cdecl; external SDLLibName;
 
   714 function  SDL_SaveBMP_RW(surface: PSDL_Surface; dst: PSDL_RWops; freedst: LongInt): LongInt; cdecl; external SDLLibName;
 
   715 function  SDL_SaveBMP_RW(surface: PSDL_Surface; dst: PSDL_RWops; freedst: LongInt): LongInt; cdecl; external SDLLibName;
 
   715 
   716 
   716 {$IFDEF SDL13}
 
   717 {$IFDEF SDL13}
 
   717 function  SDL_CreateWindow(title: PChar; x,y,w,h, flags: LongInt): PSDL_Window; cdecl; external SDLLibName;
 
   718 function  SDL_CreateWindow(title: PChar; x,y,w,h, flags: LongInt): PSDL_Window; cdecl; external SDLLibName;
 
   718 function  SDL_CreateRenderer(window: PSDL_Window; index, flags: LongInt): LongInt; cdecl; external SDLLibName;
 
   719 function  SDL_CreateRenderer(window: PSDL_Window; index, flags: LongInt): PSDL_Renderer; cdecl; external SDLLibName;
 
   719 function  SDL_SetRenderDrawColor(r,g,b,a: byte): LongInt; cdecl; external SDLLibName;
 
   720 function  SDL_DestroyRenderer(renderer: PSDL_Renderer): LongInt; cdecl; external SDLLibName;
 
   720 function  SDL_DestroyRenderer(window: PSDL_Window): LongInt; cdecl; external SDLLibName;
 
       
   721 function  SDL_DestroyWindow(window: PSDL_Window): LongInt; cdecl; external SDLLibName;
 
   721 function  SDL_DestroyWindow(window: PSDL_Window): LongInt; cdecl; external SDLLibName;
 
       
   722 procedure SDL_VideoQuit; cdecl; external SDLLibName;
 
   722 function  SDL_SelectVideoDisplay(index: LongInt): LongInt; cdecl; external SDLLibName;
 
   723 function  SDL_SelectVideoDisplay(index: LongInt): LongInt; cdecl; external SDLLibName;
 
   723 function  SDL_GetNumVideoDisplays: LongInt; cdecl; external SDLLibName;
 
   724 function  SDL_GetNumVideoDisplays: LongInt; cdecl; external SDLLibName;
 
   724 
   725 
   725 function  SDL_RenderFill(rect: PSDL_Rect): LongInt;
 
   726 function  SDL_SetRenderDrawColor(renderer: PSDL_Renderer; r,g,b,a: byte): LongInt; cdecl; external SDLLibName;
 
   726 function  SDL_RenderFillRect(rect: PSDL_Rect): LongInt; cdecl; external SDLLibName;
 
   727 function  SDL_RenderFillRect(renderer: PSDL_Renderer; rect: PSDL_Rect): LongInt; cdecl; external SDLLibName;
 
   727 function  SDL_RenderClear: LongInt; cdecl; external SDLLibName;
 
   728 function  SDL_RenderClear(renderer: PSDL_Renderer): LongInt; cdecl; external SDLLibName;
 
   728 procedure SDL_RenderPresent; cdecl; external SDLLibName;
 
   729 procedure SDL_RenderPresent(renderer: PSDL_Renderer); cdecl; external SDLLibName;
 
   729 procedure SDL_VideoQuit; cdecl; external SDLLibName;
 
   730 function  SDL_RenderReadPixels(renderer: PSDL_Renderer; rect: PSDL_Rect; format: LongInt; pixels: pointer; pitch: LongInt): LongInt; cdecl; external SDLLibName;
 
   730 
   731 
   731 function  SDL_SelectMouse(index: LongInt): LongInt; cdecl; external SDLLibName;
 
   732 function  SDL_SelectMouse(index: LongInt): LongInt; cdecl; external SDLLibName;
 
   732 function  SDL_GetRelativeMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName;
 
   733 function  SDL_GetRelativeMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName;
 
   733 function  SDL_GetNumMice: LongInt; cdecl; external SDLLibName;
 
   734 function  SDL_GetNumMice: LongInt; cdecl; external SDLLibName;
 
   734 function  SDL_PixelFormatEnumToMasks(format: TSDL_ArrayByteOrder; bpp: PLongInt; Rmask, Gmask, Bmask, Amask: PLongInt): boolean; cdecl; external SDLLibName;
 
   735 function  SDL_PixelFormatEnumToMasks(format: TSDL_ArrayByteOrder; bpp: PLongInt; Rmask, Gmask, Bmask, Amask: PLongInt): boolean; cdecl; external SDLLibName;
 
   735 function  SDL_RenderReadPixels(rect: PSDL_Rect; format: LongInt; pixels: pointer; pitch: LongInt): LongInt; cdecl; external SDLLibName;
 
       
   736 {$ENDIF}
 
   736 {$ENDIF}
 
   737 
   737 
   738 function  SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF};
 
   738 function  SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF};
 
   739 function  SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName;
 
   739 function  SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName;
 
   740 function  SDL_GetKeyName(key: Longword): PChar; cdecl; external SDLLibName;
 
   740 function  SDL_GetKeyName(key: Longword): PChar; cdecl; external SDLLibName;
 
   889                   (PByteArray(buf)^[2] shl  8) or
 
   889                   (PByteArray(buf)^[2] shl  8) or
 
   890                   (PByteArray(buf)^[1] shl 16) or
 
   890                   (PByteArray(buf)^[1] shl 16) or
 
   891                   (PByteArray(buf)^[0] shl 24)
 
   891                   (PByteArray(buf)^[0] shl 24)
 
   892 end;
 
   892 end;
 
   893 
   893 
   894 {$IFDEF SDL13}
 
       
   895 function SDL_RenderFill(rect: PSDL_Rect): LongInt;
 
       
   896 var res: LongInt;
 
       
   897 begin
 
       
   898     if (rect <> nil) then res:= SDL_RenderFillRect(rect)
 
       
   899     else res:= SDL_RenderClear();
 
       
   900     exit(res);
 
       
   901 end;
 
       
   902 {$ENDIF}
 
       
   903 
       
   904 end.
 
   894 end.
 
   905 
   895
hedgewars