hedgewars/SDLh.pas
changeset 200 a36102728776
parent 198 6f00e0f4cb88
child 201 c9610ad20fef
equal deleted inserted replaced
199:f156e54736a4 200:a36102728776
   230 
   230 
   231 type PTTF_Font = ^TTTF_font;
   231 type PTTF_Font = ^TTTF_font;
   232      TTTF_Font = record
   232      TTTF_Font = record
   233                  end;
   233                  end;
   234 
   234 
   235 function TTF_Init: LongInt; cdecl; external SDL_TTFLibName;
   235 function TTF_Init: integer; cdecl; external SDL_TTFLibName;
   236 procedure TTF_Quit; cdecl; external SDL_TTFLibName;
   236 procedure TTF_Quit; cdecl; external SDL_TTFLibName;
   237 
   237 
   238 
   238 
   239 function TTF_SizeUTF8(font: PTTF_Font; const text: PChar; var w, h: integer): LongInt; cdecl; external SDL_TTFLibName;
   239 function TTF_SizeUTF8(font: PTTF_Font; const text: PChar; var w, h: integer): integer; cdecl; external SDL_TTFLibName;
   240 function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName;
   240 function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName;
   241 function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName;
   241 function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName;
   242 function TTF_OpenFont(const filename: Pchar; size: integer): PTTF_Font; cdecl; external SDL_TTFLibName;
   242 function TTF_OpenFont(const filename: PChar; size: integer): PTTF_Font; cdecl; external SDL_TTFLibName;
   243 
   243 
   244 (*  SDL_mixer *)
   244 (*  SDL_mixer *)
   245 
   245 
   246 const {$IFDEF WIN32}
   246 const {$IFDEF WIN32}
   247       SDL_MixerLibName = 'SDL_mixer.dll';
   247       SDL_MixerLibName = 'SDL_mixer.dll';