equal
deleted
inserted
replaced
18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit SDLh; |
21 unit SDLh; |
22 interface |
22 interface |
23 {$IFDEF SDL13}uses math;{$ENDIF} |
|
24 |
23 |
25 {$IFDEF LINUX} |
24 {$IFDEF LINUX} |
26 {$DEFINE UNIX} |
25 {$DEFINE UNIX} |
27 {$ENDIF} |
26 {$ENDIF} |
28 {$IFDEF FREEBSD} |
27 {$IFDEF FREEBSD} |
365 end; |
364 end; |
366 |
365 |
367 SDL_eventaction = (SDL_ADDEVENT = 0, SDL_PEEPEVENT, SDL_GETEVENT); |
366 SDL_eventaction = (SDL_ADDEVENT = 0, SDL_PEEPEVENT, SDL_GETEVENT); |
368 |
367 |
369 PSDL_Surface = ^TSDL_Surface; |
368 PSDL_Surface = ^TSDL_Surface; |
370 T SDL_Surface = record |
369 TSDL_Surface = record |
371 flags : LongWord; |
370 flags : LongWord; |
372 format: PSDL_PixelFormat; |
371 format: PSDL_PixelFormat; |
373 w, h : LongInt; |
372 w, h : LongInt; |
374 pitch : {$IFDEF SDL13}LongInt{$ELSE}Word{$ENDIF}; |
373 pitch : {$IFDEF SDL13}LongInt{$ELSE}Word{$ENDIF}; |
375 pixels: Pointer; |
374 pixels: Pointer; |
909 |
908 |
910 {* Compatibility between SDL-1.2 and SDL-1.3 *} |
909 {* Compatibility between SDL-1.2 and SDL-1.3 *} |
911 procedure SDL_WarpMouse(x, y: Word); {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
910 procedure SDL_WarpMouse(x, y: Word); {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
912 function SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF}; |
911 function SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF}; |
913 function SDL_AllocFormat(format: LongWord): PSDL_PixelFormat; {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
912 function SDL_AllocFormat(format: LongWord): PSDL_PixelFormat; {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
914 procedure Boolean(pixelformat: PSDL_PixelFormat); {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
913 procedure SDL_FreeFormat(pixelformat: PSDL_PixelFormat); {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
915 function SDL_VideoDriverName(namebuf: PChar; maxlen: LongInt): PChar; {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
914 function SDL_VideoDriverName(namebuf: PChar; maxlen: LongInt): PChar; {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
916 function SDL_EnableUNICODE(enable: LongInt): LongInt; {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
915 function SDL_EnableUNICODE(enable: LongInt): LongInt; {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
917 function SDL_EnableKeyRepeat(delay_, interval: LongInt): LongInt; {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
916 function SDL_EnableKeyRepeat(delay_, interval: LongInt): LongInt; {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
918 |
917 |
919 (* SDL_ttf *) |
918 (* SDL_ttf *) |