149 pitch : Word; |
149 pitch : Word; |
150 pixels: Pointer; |
150 pixels: Pointer; |
151 offset: LongInt; |
151 offset: LongInt; |
152 end; |
152 end; |
153 |
153 |
|
154 |
154 PSDL_Color = ^TSDL_Color; |
155 PSDL_Color = ^TSDL_Color; |
155 TSDL_Color = record |
156 TSDL_Color = record |
156 case byte of |
157 case byte of |
157 0: (r: Byte; |
158 0: (r: Byte; |
158 g: Byte; |
159 g: Byte; |
159 b: Byte; |
160 b: Byte; |
160 unused: Byte; |
161 unused: Byte; |
161 ); |
162 ); |
162 1: (value: Longword); |
163 1: (value: Longword); |
163 end; |
164 end; |
|
165 |
164 |
166 |
165 PSDL_RWops = ^TSDL_RWops; |
167 PSDL_RWops = ^TSDL_RWops; |
166 TSeek = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl; |
168 TSeek = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl; |
167 TRead = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt; cdecl; |
169 TRead = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt; cdecl; |
168 TWrite = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; num: LongInt ): LongInt; cdecl; |
170 TWrite = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; num: LongInt ): LongInt; cdecl; |
274 function SDL_CreateRGBSurface(flags: Longword; Width, Height, Depth: LongInt; RMask, GMask, BMask, AMask: Longword): PSDL_Surface; cdecl; external SDLLibName; |
276 function SDL_CreateRGBSurface(flags: Longword; Width, Height, Depth: LongInt; RMask, GMask, BMask, AMask: Longword): PSDL_Surface; cdecl; external SDLLibName; |
275 function SDL_CreateRGBSurfaceFrom(pixels: Pointer; width, height, depth, pitch: LongInt; RMask, GMask, BMask, AMask: Longword): PSDL_Surface; cdecl; external SDLLibName; |
277 function SDL_CreateRGBSurfaceFrom(pixels: Pointer; width, height, depth, pitch: LongInt; RMask, GMask, BMask, AMask: Longword): PSDL_Surface; cdecl; external SDLLibName; |
276 procedure SDL_FreeSurface(Surface: PSDL_Surface); cdecl; external SDLLibName; |
278 procedure SDL_FreeSurface(Surface: PSDL_Surface); cdecl; external SDLLibName; |
277 function SDL_SetColorKey(surface: PSDL_Surface; flag, key: Longword): LongInt; cdecl; external SDLLibName; |
279 function SDL_SetColorKey(surface: PSDL_Surface; flag, key: Longword): LongInt; cdecl; external SDLLibName; |
278 function SDL_SetAlpha(surface: PSDL_Surface; flag, key: Longword): LongInt; cdecl; external SDLLibName; |
280 function SDL_SetAlpha(surface: PSDL_Surface; flag, key: Longword): LongInt; cdecl; external SDLLibName; |
|
281 function SDL_ConvertSurface(src: PSDL_Surface; fmt: PSDL_PixelFormat; flags: LongInt): PSDL_Surface; cdecl; external SDLLibName; |
279 |
282 |
280 function SDL_UpperBlit(src: PSDL_Surface; srcrect: PSDL_Rect; dst: PSDL_Surface; dstrect: PSDL_Rect): LongInt; cdecl; external SDLLibName; |
283 function SDL_UpperBlit(src: PSDL_Surface; srcrect: PSDL_Rect; dst: PSDL_Surface; dstrect: PSDL_Rect): LongInt; cdecl; external SDLLibName; |
281 function SDL_FillRect(dst: PSDL_Surface; dstrect: PSDL_Rect; color: Longword): LongInt; cdecl; external SDLLibName; |
284 function SDL_FillRect(dst: PSDL_Surface; dstrect: PSDL_Rect; color: Longword): LongInt; cdecl; external SDLLibName; |
282 procedure SDL_UpdateRect(Screen: PSDL_Surface; x, y: LongInt; w, h: Longword); cdecl; external SDLLibName; |
285 procedure SDL_UpdateRect(Screen: PSDL_Surface; x, y: LongInt; w, h: Longword); cdecl; external SDLLibName; |
283 function SDL_Flip(Screen: PSDL_Surface): LongInt; cdecl; external SDLLibName; |
286 function SDL_Flip(Screen: PSDL_Surface): LongInt; cdecl; external SDLLibName; |