hedgewars/SDLh.pas
changeset 5660 1647244b3ffe
parent 5565 1a326ba319c9
child 5670 e01f0b6f1969
equal deleted inserted replaced
5658:76220933369f 5660:1647244b3ffe
   842 procedure SDL_WarpMouse(x, y: Word); {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   842 procedure SDL_WarpMouse(x, y: Word); {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   843 function  SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF};
   843 function  SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF};
   844 function  SDL_AllocFormat(format: Longword): PSDL_PixelFormat; {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   844 function  SDL_AllocFormat(format: Longword): PSDL_PixelFormat; {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   845 procedure SDL_FreeFormat(pixelformat: PSDL_PixelFormat); {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   845 procedure SDL_FreeFormat(pixelformat: PSDL_PixelFormat); {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   846 
   846 
   847 {* OpenGL *}
       
   848 {$IFDEF DARWIN}
       
   849 function CGLGetCurrentContext(): Pointer; cdecl; external 'OpenGL';
       
   850 procedure CGLSetParameter(context: Pointer; option: LongInt; value: Pointer); cdecl; external 'OpenGL';
       
   851 {$ENDIF}
       
   852 
       
   853 (*  SDL_ttf  *)
   847 (*  SDL_ttf  *)
   854 function  TTF_Init: LongInt; cdecl; external SDL_TTFLibName;
   848 function  TTF_Init: LongInt; cdecl; external SDL_TTFLibName;
   855 procedure TTF_Quit; cdecl; external SDL_TTFLibName;
   849 procedure TTF_Quit; cdecl; external SDL_TTFLibName;
   856 
   850 
   857 function  TTF_SizeUTF8(font: PTTF_Font; const text: PChar; out w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName;
   851 function  TTF_SizeUTF8(font: PTTF_Font; const text: PChar; out w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName;