hedgewars/SDLh.pas
branchhedgeroid
changeset 5725 e27100a0e2d0
parent 5577 272c82f82cee
parent 5670 e01f0b6f1969
child 5824 2e5835130d9a
equal deleted inserted replaced
5671:ba4c3a4c8b09 5725:e27100a0e2d0
   222     SDL_JOYBALLMOTION   = 8;
   222     SDL_JOYBALLMOTION   = 8;
   223     SDL_JOYHATMOTION    = 9;
   223     SDL_JOYHATMOTION    = 9;
   224     SDL_JOYBUTTONDOWN   = 10;
   224     SDL_JOYBUTTONDOWN   = 10;
   225     SDL_JOYBUTTONUP     = 11;
   225     SDL_JOYBUTTONUP     = 11;
   226     SDL_QUITEV          = 12;
   226     SDL_QUITEV          = 12;
   227     SDL_VIDEORESIZE     = 16; // TODO: outdated? no longer in SDL 1.3?
   227     SDL_VIDEORESIZE     = 16;
   228 
   228 
   229     // SDL_Surface flags
   229     // SDL_Surface flags
   230     SDL_SWSURFACE   = $00000000;
   230     SDL_SWSURFACE   = $00000000;
   231     SDL_HWSURFACE   = $00000001;
   231     SDL_HWSURFACE   = $00000001;
   232     SDL_OPENGL      = $00000002;
   232     SDL_OPENGL      = $00000002;
   636             SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent);
   636             SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent);
   637             SDL_JOYBUTTONDOWN,
   637             SDL_JOYBUTTONDOWN,
   638             SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
   638             SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
   639             SDL_QUITEV: (quit: TSDL_QuitEvent);
   639             SDL_QUITEV: (quit: TSDL_QuitEvent);
   640             //SDL_SYSWMEVENT,SDL_EVENT_RESERVEDA,SDL_EVENT_RESERVEDB
   640             //SDL_SYSWMEVENT,SDL_EVENT_RESERVEDA,SDL_EVENT_RESERVEDB
   641             //SDL_VIDEORESIZE: (resize: TSDL_ResizeEvent);
   641             SDL_VIDEORESIZE: (resize: TSDL_ResizeEvent);
   642 {$ENDIF}
   642 {$ENDIF}
   643         end;
   643         end;
   644 
   644 
   645     PByteArray = ^TByteArray;
   645     PByteArray = ^TByteArray;
   646     TByteArray = array[0..65535] of Byte;
   646     TByteArray = array[0..65535] of Byte;
   879 procedure SDL_WarpMouse(x, y: Word); {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   879 procedure SDL_WarpMouse(x, y: Word); {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   880 function  SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF};
   880 function  SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF};
   881 function  SDL_AllocFormat(format: Longword): PSDL_PixelFormat; {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   881 function  SDL_AllocFormat(format: Longword): PSDL_PixelFormat; {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   882 procedure SDL_FreeFormat(pixelformat: PSDL_PixelFormat); {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   882 procedure SDL_FreeFormat(pixelformat: PSDL_PixelFormat); {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   883 
   883 
   884 {* OpenGL *}
       
   885 {$IFDEF DARWIN}
       
   886 function CGLGetCurrentContext(): Pointer; cdecl; external 'OpenGL';
       
   887 procedure CGLSetParameter(context: Pointer; option: LongInt; value: Pointer); cdecl; external 'OpenGL';
       
   888 {$ENDIF}
       
   889 
       
   890 (*  SDL_ttf  *)
   884 (*  SDL_ttf  *)
   891 function  TTF_Init: LongInt; cdecl; external SDL_TTFLibName;
   885 function  TTF_Init: LongInt; cdecl; external SDL_TTFLibName;
   892 procedure TTF_Quit; cdecl; external SDL_TTFLibName;
   886 procedure TTF_Quit; cdecl; external SDL_TTFLibName;
   893 
   887 
   894 function  TTF_SizeUTF8(font: PTTF_Font; const text: PChar; out w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName;
   888 function  TTF_SizeUTF8(font: PTTF_Font; const text: PChar; out w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName;