hedgewars/SDLh.pas
changeset 202 8603c0420461
parent 201 c9610ad20fef
child 206 32fa6282efe2
equal deleted inserted replaced
201:c9610ad20fef 202:8603c0420461
   108      PSDL_Color = ^TSDL_Color;
   108      PSDL_Color = ^TSDL_Color;
   109      TSDL_Color = record
   109      TSDL_Color = record
   110                   r: Byte;
   110                   r: Byte;
   111                   g: Byte;
   111                   g: Byte;
   112                   b: Byte;
   112                   b: Byte;
   113                   a: Byte;
   113                   unused: Byte;
   114                   end;
   114                   end;
   115 
   115 
   116      PSDL_RWops = ^TSDL_RWops;
   116      PSDL_RWops = ^TSDL_RWops;
   117      TSeek = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl;
   117      TSeek = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl;
   118      TRead = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt;  cdecl;
   118      TRead = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt;  cdecl;
   224       SDL_TTFLibName = 'SDL_ttf.dll';
   224       SDL_TTFLibName = 'SDL_ttf.dll';
   225       {$ENDIF}
   225       {$ENDIF}
   226       {$IFDEF UNIX}
   226       {$IFDEF UNIX}
   227       SDL_TTFLibName = 'libSDL_ttf.so';
   227       SDL_TTFLibName = 'libSDL_ttf.so';
   228       {$ENDIF}
   228       {$ENDIF}
   229 
   229       TTF_STYLE_NORMAL = 0;
       
   230       TTF_STYLE_BOLD   = 1;
       
   231       TTF_STYLE_ITALIC = 2;
   230 
   232 
   231 type PTTF_Font = ^TTTF_font;
   233 type PTTF_Font = ^TTTF_font;
   232      TTTF_Font = record
   234      TTTF_Font = record
   233                  end;
   235                  end;
   234 
   236 
   238 
   240 
   239 function TTF_SizeUTF8(font: PTTF_Font; const text: PChar; var w, h: integer): integer; cdecl; external SDL_TTFLibName;
   241 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;
   242 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;
   243 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;
   244 function TTF_OpenFont(const filename: PChar; size: integer): PTTF_Font; cdecl; external SDL_TTFLibName;
       
   245 procedure TTF_SetFontStyle(font: PTTF_Font; style: integer); cdecl; external SDL_TTFLibName;
   243 
   246 
   244 (*  SDL_mixer *)
   247 (*  SDL_mixer *)
   245 
   248 
   246 const {$IFDEF WIN32}
   249 const {$IFDEF WIN32}
   247       SDL_MixerLibName = 'SDL_mixer.dll';
   250       SDL_MixerLibName = 'SDL_mixer.dll';