hedgewars/SDLh.pas
branchexperimental3D
changeset 4812 f924be23ffb4
parent 4454 42bfc1a70968
child 4911 5d10bd725efe
equal deleted inserted replaced
4347:0ddb100fea61 4812:f924be23ffb4
   509 {$ELSE}
   509 {$ELSE}
   510         type_: Byte;
   510         type_: Byte;
   511 {$ENDIF}
   511 {$ENDIF}
   512         end;
   512         end;
   513 
   513 
       
   514     TSDL_UserEvent = record
       
   515 {$IFDEF SDL13}
       
   516         type_: LongInt;
       
   517         windowID: LongInt;
       
   518 {$ELSE}
       
   519         type_: Byte;
       
   520 {$ENDIF}
       
   521         code: LongInt;
       
   522         data1, data2: Pointer;
       
   523         end;
       
   524 
   514     PSDL_Event = ^TSDL_Event;
   525     PSDL_Event = ^TSDL_Event;
   515     TSDL_Event = record
   526     TSDL_Event = record
   516 {$IFDEF SDL13}
   527 {$IFDEF SDL13}
   517         case LongInt of
   528         case LongInt of
   518             SDL_FIRSTEVENT: (type_: LongInt);
   529             SDL_FIRSTEVENT: (type_: LongInt);
   529             SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent);
   540             SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent);
   530             SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent);
   541             SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent);
   531             SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent);
   542             SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent);
   532             SDL_JOYBUTTONDOWN,
   543             SDL_JOYBUTTONDOWN,
   533             SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
   544             SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
       
   545             SDL_USEREVENT: (user: TSDL_UserEvent);
   534 {$ELSE}
   546 {$ELSE}
   535         case Byte of
   547         case Byte of
   536             SDL_NOEVENT: (type_: byte);
   548             SDL_NOEVENT: (type_: byte);
   537             SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent);
   549             SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent);
   538             SDL_KEYDOWN,
   550             SDL_KEYDOWN,
   772 
   784 
   773 (*  SDL_TTF  *)
   785 (*  SDL_TTF  *)
   774 function  TTF_Init: LongInt; cdecl; external SDL_TTFLibName;
   786 function  TTF_Init: LongInt; cdecl; external SDL_TTFLibName;
   775 procedure TTF_Quit; cdecl; external SDL_TTFLibName;
   787 procedure TTF_Quit; cdecl; external SDL_TTFLibName;
   776 
   788 
   777 function  TTF_SizeUTF8(font: PTTF_Font; const text: PChar; var w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName;
   789 function  TTF_SizeUTF8(font: PTTF_Font; const text: PChar; out w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName;
   778 
   790 
   779 function  TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName;
   791 function  TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName;
   780 function  TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName;
   792 function  TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName;
   781 function  TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName;
   793 function  TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName;
   782 
   794