hedgewars/SDLh.pas
changeset 753 40fc0deb388f
parent 500 d9b140e9d2c2
child 754 94ac14829085
equal deleted inserted replaced
752:69f1dc50a1fa 753:40fc0deb388f
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
    17  *)
    17  *)
    18 
    18 
    19 unit SDLh;
    19 unit SDLh;
    20 interface
    20 interface
       
    21 
    21 {$IFDEF LINUX}
    22 {$IFDEF LINUX}
    22 {$DEFINE UNIX}
    23 {$DEFINE UNIX}
    23 {$ENDIF}
    24 {$ENDIF}
    24 {$IFDEF FREEBSD}
    25 {$IFDEF FREEBSD}
    25 {$DEFINE UNIX}
    26 {$DEFINE UNIX}
    59 
    60 
    60       SDL_APPINPUTFOCUS = 2;
    61       SDL_APPINPUTFOCUS = 2;
    61 
    62 
    62       SDL_INIT_VIDEO  = $00000020;
    63       SDL_INIT_VIDEO  = $00000020;
    63       SDL_INIT_AUDIO  = $00000010;
    64       SDL_INIT_AUDIO  = $00000010;
       
    65 
       
    66       SDL_GL_DOUBLEBUFFER = 5;
       
    67       SDL_OPENGL          = 2;
    64       
    68       
    65 type PSDL_Rect = ^TSDL_Rect;
    69 type PSDL_Rect = ^TSDL_Rect;
    66      TSDL_Rect = record
    70      TSDL_Rect = record
    67                  x, y: SmallInt;
    71                  x, y: SmallInt;
    68                  w, h: Word;
    72                  w, h: Word;
   239 function  SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName;
   243 function  SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName;
   240 procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName;
   244 procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName;
   241 function  SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP';
   245 function  SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP';
   242 function  SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV';
   246 function  SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV';
   243 
   247 
       
   248 function  SDL_GL_SetAttribute(attr: byte; value: LongInt): LongInt; cdecl; external SDLLibName;
       
   249 procedure SDL_GL_SwapBuffers(); cdecl; external SDLLibName;
       
   250 
   244 (*  TTF  *)
   251 (*  TTF  *)
   245 
   252 
   246 const {$IFDEF WIN32}
   253 const {$IFDEF WIN32}
   247       SDL_TTFLibName = 'SDL_ttf.dll';
   254       SDL_TTFLibName = 'SDL_ttf.dll';
   248       {$ENDIF}
   255       {$ENDIF}