equal
deleted
inserted
replaced
1166 function TTF_OpenFontRW(src: PSDL_RWops; freesrc: LongBool; size: LongInt): PTTF_Font; cdecl; external SDL_TTFLibName; |
1166 function TTF_OpenFontRW(src: PSDL_RWops; freesrc: LongBool; size: LongInt): PTTF_Font; cdecl; external SDL_TTFLibName; |
1167 procedure TTF_SetFontStyle(font: PTTF_Font; style: LongInt); cdecl; external SDL_TTFLibName; |
1167 procedure TTF_SetFontStyle(font: PTTF_Font; style: LongInt); cdecl; external SDL_TTFLibName; |
1168 procedure TTF_CloseFont(font: PTTF_Font); cdecl; external SDL_TTFLibName; |
1168 procedure TTF_CloseFont(font: PTTF_Font); cdecl; external SDL_TTFLibName; |
1169 |
1169 |
1170 (* SDL_mixer *) |
1170 (* SDL_mixer *) |
1171 function Mix_Init(flags: LongInt): LongInt; {$IFDEF SDL_MIXER_NEWER}cdecl; external SDL_MixerLibName{$ELSE}inline{$ENDIF}; |
1171 function Mix_Init(flags: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
1172 procedure Mix_Quit; {$IFDEF SDL_MIXER_NEWER}cdecl; external SDL_MixerLibName{$ELSE}inline{$ENDIF}; |
1172 procedure Mix_Quit; cdecl; external SDL_MixerLibName; |
1173 |
1173 |
1174 function Mix_OpenAudio(frequency: LongInt; format: Word; channels: LongInt; chunksize: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
1174 function Mix_OpenAudio(frequency: LongInt; format: Word; channels: LongInt; chunksize: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
1175 procedure Mix_CloseAudio; cdecl; external SDL_MixerLibName; |
1175 procedure Mix_CloseAudio; cdecl; external SDL_MixerLibName; |
1176 function Mix_QuerySpec(frequency: PLongInt; format: PWord; channels: PLongInt): LongInt; cdecl; external SDL_MixerLibName; |
1176 function Mix_QuerySpec(frequency: PLongInt; format: PWord; channels: PLongInt): LongInt; cdecl; external SDL_MixerLibName; |
1177 |
1177 |
1202 function Mix_FadeOutChannel(channel: LongInt; fadems: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
1202 function Mix_FadeOutChannel(channel: LongInt; fadems: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
1203 |
1203 |
1204 procedure Mix_SetPostMix( mix_func: TPostMix; arg: Pointer); cdecl; external SDL_MixerLibName; |
1204 procedure Mix_SetPostMix( mix_func: TPostMix; arg: Pointer); cdecl; external SDL_MixerLibName; |
1205 |
1205 |
1206 (* SDL_image *) |
1206 (* SDL_image *) |
1207 function IMG_Init(flags: LongInt): LongInt; {$IFDEF SDL_IMAGE_NEWER}cdecl; external SDL_ImageLibName{$ELSE}inline{$ENDIF}; |
1207 function IMG_Init(flags: LongInt): LongInt; cdecl; external SDL_ImageLibName; |
1208 procedure IMG_Quit; {$IFDEF SDL_IMAGE_NEWER}cdecl; external SDL_ImageLibName{$ELSE}inline{$ENDIF}; |
1208 procedure IMG_Quit; cdecl; external SDL_ImageLibName; |
1209 |
1209 |
1210 function IMG_Load(const _file: PChar): PSDL_Surface; cdecl; external SDL_ImageLibName; |
1210 function IMG_Load(const _file: PChar): PSDL_Surface; cdecl; external SDL_ImageLibName; |
1211 function IMG_Load_RW(rwop: PSDL_RWops; freesrc: LongBool): PSDL_Surface; cdecl; external SDL_ImageLibName; |
1211 function IMG_Load_RW(rwop: PSDL_RWops; freesrc: LongBool): PSDL_Surface; cdecl; external SDL_ImageLibName; |
1212 function IMG_LoadPNG_RW(rwop: PSDL_RWops): PSDL_Surface; cdecl; external SDL_ImageLibName; |
1212 function IMG_LoadPNG_RW(rwop: PSDL_RWops): PSDL_Surface; cdecl; external SDL_ImageLibName; |
1213 function IMG_LoadTyped_RW(rwop: PSDL_RWops; freesrc: LongBool; type_: PChar): PSDL_Surface; cdecl; external SDL_ImageLibName; |
1213 function IMG_LoadTyped_RW(rwop: PSDL_RWops; freesrc: LongBool; type_: PChar): PSDL_Surface; cdecl; external SDL_ImageLibName; |
1255 begin |
1255 begin |
1256 SDL_MustLock:= |
1256 SDL_MustLock:= |
1257 ((surface^.flags and SDL_RLEACCEL) <> 0) |
1257 ((surface^.flags and SDL_RLEACCEL) <> 0) |
1258 end; |
1258 end; |
1259 |
1259 |
1260 {$IFNDEF SDL_MIXER_NEWER} |
|
1261 function Mix_Init(flags: LongInt): LongInt; inline; |
|
1262 begin |
|
1263 Mix_Init:= flags; |
|
1264 end; |
|
1265 |
|
1266 procedure Mix_Quit; inline; |
|
1267 begin |
|
1268 end; |
|
1269 {$ENDIF} |
|
1270 |
|
1271 {$IFNDEF SDL_IMAGE_NEWER} |
|
1272 function IMG_Init(flags: LongInt): LongInt; inline; |
|
1273 begin |
|
1274 IMG_Init:= flags; |
|
1275 end; |
|
1276 |
|
1277 procedure IMG_Quit; inline; |
|
1278 begin |
|
1279 end; |
|
1280 {$ENDIF} |
|
1281 |
|
1282 procedure SDLNet_Write16(value: Word; buf: Pointer); |
1260 procedure SDLNet_Write16(value: Word; buf: Pointer); |
1283 begin |
1261 begin |
1284 PByteArray(buf)^[1]:= value; |
1262 PByteArray(buf)^[1]:= value; |
1285 PByteArray(buf)^[0]:= value shr 8 |
1263 PByteArray(buf)^[0]:= value shr 8 |
1286 end; |
1264 end; |