hedgewars: comparison hedgewars/SDLh.pas

equal deleted inserted replaced

-:803b277e4894
+:3f21a9dc93d0
 (*  SDL  *)
 const
 {$IFDEF WIN32}
-	SDLLibName = 'SDL.dll';
+SDLLibName = 'SDL.dll';
-	SDL_TTFLibName = 'SDL_ttf.dll';
+SDL_TTFLibName = 'SDL_ttf.dll';
-	SDL_MixerLibName = 'SDL_mixer.dll';
+SDL_MixerLibName = 'SDL_mixer.dll';
-	SDL_ImageLibName = 'SDL_image.dll';
+SDL_ImageLibName = 'SDL_image.dll';
-	SDL_NetLibName = 'SDL_net.dll';
+SDL_NetLibName = 'SDL_net.dll';
 {$ELSE}
 {$IFDEF DARWIN}
-	SDLLibName = 'SDL';
+SDLLibName = 'SDL';
-	SDL_TTFLibName = 'SDL_ttf';
+SDL_TTFLibName = 'SDL_ttf';
-	SDL_MixerLibName = 'SDL_mixer';
+SDL_MixerLibName = 'SDL_mixer';
-	SDL_ImageLibName = 'SDL_image';
+SDL_ImageLibName = 'SDL_image';
-	SDL_NetLibName = 'SDL_net';
+SDL_NetLibName = 'SDL_net';
 {$ELSE}
-	SDLLibName = 'libSDL.so';
+SDLLibName = 'libSDL.so';
-	SDL_TTFLibName = 'libSDL_ttf.so';
+SDL_TTFLibName = 'libSDL_ttf.so';
-	SDL_MixerLibName = 'libSDL_mixer.so';
+SDL_MixerLibName = 'libSDL_mixer.so';
-	SDL_ImageLibName = 'libSDL_image.so';
+SDL_ImageLibName = 'libSDL_image.so';
-	SDL_NetLibName = 'libSDL_net.so';
+SDL_NetLibName = 'libSDL_net.so';
 {$ENDIF}
 {$ENDIF}
 /////////////////////////////////////////////////////////////////
 /////////////////////  CONSTANT DEFINITIONS /////////////////////
 /////////////////////////////////////////////////////////////////
-	SDL_SWSURFACE     = $00000000;
+SDL_SWSURFACE     = $00000000;
-	SDL_HWSURFACE     = $00000001;
+SDL_HWSURFACE     = $00000001;
-	SDL_SRCALPHA      = $00010000;
+SDL_SRCALPHA      = $00010000;
-	SDL_INIT_TIMER    = $00000001;
+SDL_INIT_TIMER    = $00000001;
-	SDL_INIT_AUDIO    = $00000010;
+SDL_INIT_AUDIO    = $00000010;
-	SDL_INIT_VIDEO    = $00000020;
+SDL_INIT_VIDEO    = $00000020;
-	SDL_INIT_JOYSTICK = $00000200;
+SDL_INIT_JOYSTICK = $00000200;
 {$IFDEF SDL13}
-	SDL_INIT_HAPTIC   = $00001000;
+SDL_INIT_HAPTIC   = $00001000;
 {$ELSE}
-	SDL_INIT_CDROM	  = $00000100;
+SDL_INIT_CDROM    = $00000100;
 {$ENDIF}
-	SDL_INIT_NOPARACHUTE = $00100000;
+SDL_INIT_NOPARACHUTE = $00100000;
-	SDL_INIT_EVENTTHREAD = $01000000;
+SDL_INIT_EVENTTHREAD = $01000000;
-	SDL_INIT_EVERYTHING  = $0000FFFF;
+SDL_INIT_EVERYTHING  = $0000FFFF;
-	SDL_APPINPUTFOCUS    = 2;
+SDL_APPINPUTFOCUS    = 2;
-	SDL_BUTTON_WHEELUP   = 4;
+SDL_BUTTON_WHEELUP   = 4;
-	SDL_BUTTON_WHEELDOWN = 5;
+SDL_BUTTON_WHEELDOWN = 5;
 {*begin SDL_Event binding*}
-	SDL_NOEVENT = 0;
+SDL_NOEVENT = 0;
-	SDL_KEYDOWN = 2;
+SDL_KEYDOWN = 2;
-	SDL_KEYUP = 3;
+SDL_KEYUP = 3;
 {$IFDEF SDL13}
 SDL_WINDOWEVENT = 1;
 SDL_TEXTINPUT = 4;
 SDL_TEXTEDITING = 5;
-	SDL_MOUSEMOTION  = 6;
+SDL_MOUSEMOTION  = 6;
 SDL_MOUSEBUTTONDOWN = 7;
-	SDL_MOUSEBUTTONUP   = 8;
+SDL_MOUSEBUTTONUP   = 8;
 SDL_MOUSEWHEEL = 9;
-	SDL_JOYAXISMOTION = 10;
+SDL_JOYAXISMOTION = 10;
-	SDL_JOYBALLMOTION = 11;
+SDL_JOYBALLMOTION = 11;
-	SDL_JOYHATMOTION = 12;
+SDL_JOYHATMOTION = 12;
-	SDL_JOYBUTTONDOWN = 13;
+SDL_JOYBUTTONDOWN = 13;
-	SDL_JOYBUTTONUP = 14;
+SDL_JOYBUTTONUP = 14;
-	SDL_QUITEV = 15;
+SDL_QUITEV = 15;
 {$ELSE}
 SDL_ACTIVEEVENT = 1;
-	SDL_MOUSEMOTION  = 4;
+SDL_MOUSEMOTION  = 4;
-	SDL_MOUSEBUTTONDOWN = 5;
+SDL_MOUSEBUTTONDOWN = 5;
-	SDL_MOUSEBUTTONUP   = 6;
+SDL_MOUSEBUTTONUP   = 6;
-	SDL_JOYAXISMOTION = 7;
+SDL_JOYAXISMOTION = 7;
-	SDL_JOYBALLMOTION = 8;
+SDL_JOYBALLMOTION = 8;
-	SDL_JOYHATMOTION = 9;
+SDL_JOYHATMOTION = 9;
-	SDL_JOYBUTTONDOWN = 10;
+SDL_JOYBUTTONDOWN = 10;
-	SDL_JOYBUTTONUP = 11;
+SDL_JOYBUTTONUP = 11;
-	SDL_QUITEV = 12;
+SDL_QUITEV = 12;
-	SDL_VIDEORESIZE = 16; // TODO: outdated? no longer in SDL 1.3?
+SDL_VIDEORESIZE = 16; // TODO: outdated? no longer in SDL 1.3?
 {$ENDIF}
 {*end SDL_Event binding*}
 {$IFDEF SDL13}
-	SDL_ASYNCBLIT   = $08000000;
+SDL_ASYNCBLIT   = $08000000;
-	SDL_ANYFORMAT   = $10000000;
+SDL_ANYFORMAT   = $10000000;
-	SDL_HWPALETTE   = $00200000;
+SDL_HWPALETTE   = $00200000;
-	SDL_DOUBLEBUF   = $00400000;
+SDL_DOUBLEBUF   = $00400000;
-	SDL_FULLSCREEN  = $00800000;
+SDL_FULLSCREEN  = $00800000;
-	SDL_HWACCEL     = $08000000;
+SDL_HWACCEL     = $08000000;
-	SDL_SRCCOLORKEY = $00020000;
+SDL_SRCCOLORKEY = $00020000;
-	SDL_RLEACCEL    = $08000000;
+SDL_RLEACCEL    = $08000000;
-	SDL_NOFRAME     = $02000000;
+SDL_NOFRAME     = $02000000;
-	SDL_OPENGL      = $04000000;
+SDL_OPENGL      = $04000000;
-	SDL_RESIZABLE   = $01000000;
+SDL_RESIZABLE   = $01000000;
 {$ELSE}
-	SDL_ASYNCBLIT   = $00000004;
+SDL_ASYNCBLIT   = $00000004;
-	SDL_ANYFORMAT   = $00100000;
+SDL_ANYFORMAT   = $00100000;
-	SDL_HWPALETTE   = $20000000;
+SDL_HWPALETTE   = $20000000;
-	SDL_DOUBLEBUF   = $40000000;
+SDL_DOUBLEBUF   = $40000000;
-	SDL_FULLSCREEN  = $80000000;
+SDL_FULLSCREEN  = $80000000;
-	SDL_HWACCEL     = $00000100;
+SDL_HWACCEL     = $00000100;
-	SDL_SRCCOLORKEY = $00001000;
+SDL_SRCCOLORKEY = $00001000;
-	SDL_RLEACCEL    = $00004000;
+SDL_RLEACCEL    = $00004000;
-	SDL_NOFRAME     = $00000020;
+SDL_NOFRAME     = $00000020;
-	SDL_OPENGL      = $00000002;
+SDL_OPENGL      = $00000002;
-	SDL_RESIZABLE   = $00000010;
+SDL_RESIZABLE   = $00000010;
 {$ENDIF}
 {$IFDEF ENDIAN_LITTLE}
-	RMask = $000000FF;
+RMask = $000000FF;
-	GMask = $0000FF00;
+GMask = $0000FF00;
-	BMask = $00FF0000;
+BMask = $00FF0000;
-	AMask = $FF000000;
+AMask = $FF000000;
 {$ELSE}
-	RMask = $FF000000;
+RMask = $FF000000;
-	GMask = $00FF0000;
+GMask = $00FF0000;
-	BMask = $0000FF00;
+BMask = $0000FF00;
-	AMask = $000000FF;
+AMask = $000000FF;
 {$ENDIF}
 {$IFDEF SDL13}
 // SDL_WindowFlags (enum)
 SDL_WINDOW_FULLSCREEN = $00000001;         //*< fullscreen window, implies borderless */
 SDL_WINDOW_INPUT_FOCUS = $00000200;        //*< window has input focus */
 SDL_WINDOW_MOUSE_FOCUS = $00000400;        //*< window has mouse focus */
 SDL_WINDOW_FOREIGN = $00000800;            //*< window not created by SDL */
 {$ENDIF}
-	{* SDL_mixer *}
+{* SDL_mixer *}
-	MIX_MAX_VOLUME = 128;
+MIX_MAX_VOLUME = 128;
-	MIX_INIT_FLAC = $00000001;
+MIX_INIT_FLAC = $00000001;
-	MIX_INIT_MOD  = $00000002;
+MIX_INIT_MOD  = $00000002;
-	MIX_INIT_MP3  = $00000004;
+MIX_INIT_MP3  = $00000004;
-	MIX_INIT_OGG  = $00000008;
+MIX_INIT_OGG  = $00000008;
-	{* SDL_TTF *}
+{* SDL_TTF *}
-	TTF_STYLE_NORMAL = 0;
+TTF_STYLE_NORMAL = 0;
-	TTF_STYLE_BOLD   = 1;
+TTF_STYLE_BOLD   = 1;
-	TTF_STYLE_ITALIC = 2;
+TTF_STYLE_ITALIC = 2;
-	{* SDL Joystick *}
+{* SDL Joystick *}
-	SDL_HAT_CENTERED  = $00;
+SDL_HAT_CENTERED  = $00;
-	SDL_HAT_UP        = $01;
+SDL_HAT_UP        = $01;
-	SDL_HAT_RIGHT     = $02;
+SDL_HAT_RIGHT     = $02;
-	SDL_HAT_DOWN      = $04;
+SDL_HAT_DOWN      = $04;
-	SDL_HAT_LEFT      = $08;
+SDL_HAT_LEFT      = $08;
-	SDL_HAT_RIGHTUP   = SDL_HAT_RIGHT or SDL_HAT_UP;
+SDL_HAT_RIGHTUP   = SDL_HAT_RIGHT or SDL_HAT_UP;
-	SDL_HAT_RIGHTDOWN = SDL_HAT_RIGHT or SDL_HAT_DOWN;
+SDL_HAT_RIGHTDOWN = SDL_HAT_RIGHT or SDL_HAT_DOWN;
-	SDL_HAT_LEFTUP    = SDL_HAT_LEFT or SDL_HAT_UP;
+SDL_HAT_LEFTUP    = SDL_HAT_LEFT or SDL_HAT_UP;
-	SDL_HAT_LEFTDOWN  = SDL_HAT_LEFT or SDL_HAT_DOWN;
+SDL_HAT_LEFTDOWN  = SDL_HAT_LEFT or SDL_HAT_DOWN;
-	{* SDL_image *}
+{* SDL_image *}
-	IMG_INIT_JPG = $00000001;
+IMG_INIT_JPG = $00000001;
-	IMG_INIT_PNG = $00000002;
+IMG_INIT_PNG = $00000002;
-	IMG_INIT_TIF = $00000004;
+IMG_INIT_TIF = $00000004;
 /////////////////////////////////////////////////////////////////
 ///////////////////////  TYPE DEFINITIONS ///////////////////////
 /////////////////////////////////////////////////////////////////
 type
-	PSDL_Rect = ^TSDL_Rect;
+PSDL_Rect = ^TSDL_Rect;
-	TSDL_Rect = record
+TSDL_Rect = record
 {$IFDEF SDL13}
-		x, y, w, h: LongInt;
+x, y, w, h: LongInt;
 {$ELSE}
-		x, y: SmallInt;
+x, y: SmallInt;
-		w, h: Word;
+w, h: Word;
 {$ENDIF}
-		end;
+end;
-	TPoint = record
+TPoint = record
-		X: LongInt;
+X: LongInt;
-		Y: LongInt;
+Y: LongInt;
-		end;
+end;
-	PSDL_PixelFormat = ^TSDL_PixelFormat;
+PSDL_PixelFormat = ^TSDL_PixelFormat;
-	TSDL_PixelFormat = record
+TSDL_PixelFormat = record
-		palette: Pointer;
+palette: Pointer;
-		BitsPerPixel : Byte;
+BitsPerPixel : Byte;
-		BytesPerPixel: Byte;
+BytesPerPixel: Byte;
-		Rloss : Byte;
+Rloss : Byte;
-		Gloss : Byte;
+Gloss : Byte;
-		Bloss : Byte;
+Bloss : Byte;
-		Aloss : Byte;
+Aloss : Byte;
-		Rshift: Byte;
+Rshift: Byte;
-		Gshift: Byte;
+Gshift: Byte;
-		Bshift: Byte;
+Bshift: Byte;
-		Ashift: Byte;
+Ashift: Byte;
-		RMask : Longword;
+RMask : Longword;
-		GMask : Longword;
+GMask : Longword;
-		BMask : Longword;
+BMask : Longword;
-		AMask : Longword;
+AMask : Longword;
-		colorkey: Longword;
+colorkey: Longword;
-		alpha : Byte;
+alpha : Byte;
-		end;
+end;
-	PSDL_Surface = ^TSDL_Surface;
+PSDL_Surface = ^TSDL_Surface;
-	TSDL_Surface = record
+TSDL_Surface = record
-		flags : Longword;
+flags : Longword;
-		format: PSDL_PixelFormat;
+format: PSDL_PixelFormat;
-		w, h  : LongInt;
+w, h  : LongInt;
-		pitch : Word;
+pitch : Word;
-		pixels: Pointer;
+pixels: Pointer;
-		offset: LongInt;
+offset: LongInt;
-		end;
+end;
-	PSDL_Color = ^TSDL_Color;
+PSDL_Color = ^TSDL_Color;
-	TSDL_Color = record
+TSDL_Color = record
-		case byte of
+case byte of
-			0: (	r: Byte;
+0: (    r: Byte;
-				g: Byte;
+g: Byte;
-				b: Byte;
+b: Byte;
-				unused: Byte;
+unused: Byte;
-			   );
+);
-			1: (	value: Longword);
+1: (    value: Longword);
-		end;
+end;
-	PSDL_RWops = ^TSDL_RWops;
+PSDL_RWops = ^TSDL_RWops;
-	TSeek  = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl;
+TSeek  = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl;
-	TRead  = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt;  cdecl;
+TRead  = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt;  cdecl;
-	TWrite = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; num: LongInt ): LongInt; cdecl;
+TWrite = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; num: LongInt ): LongInt; cdecl;
-	TClose = function( context: PSDL_RWops ): LongInt; cdecl;
+TClose = function( context: PSDL_RWops ): LongInt; cdecl;
-	TStdio = record
+TStdio = record
-		autoclose: LongInt;
+autoclose: LongInt;
-		fp: pointer;
+fp: pointer;
-		end;
+end;
-	TMem = record
+TMem = record
-		base: PByte;
+base: PByte;
-		here: PByte;
+here: PByte;
-		stop: PByte;
+stop: PByte;
-		end;
+end;
-	TUnknown = record
+TUnknown = record
-		data1: Pointer;
+data1: Pointer;
-		end;
+end;
-	TSDL_RWops = record
+TSDL_RWops = record
-		seek: TSeek;
+seek: TSeek;
-		read: TRead;
+read: TRead;
-		write: TWrite;
+write: TWrite;
-		close: TClose;
+close: TClose;
-		type_: Longword;
+type_: Longword;
-		case Byte of
+case Byte of
-			0: (stdio: TStdio);
+0: (stdio: TStdio);
-			1: (mem: TMem);
+1: (mem: TMem);
-			2: (unknown: TUnknown);
+2: (unknown: TUnknown);
-			end;
+end;
-	TSDL_KeySym = record
+TSDL_KeySym = record
-		scancode: Byte;
+scancode: Byte;
-		sym: Longword;
+sym: Longword;
-		modifier: Longword;
+modifier: Longword;
-		unicode: Word;
+unicode: Word;
-		end;
+end;
 {* SDL_Event type definition *}
 {$IFDEF SDL13}
-	PSDL_Window = pointer;
+PSDL_Window = pointer;
-	PSDL_Texture = pointer;
+PSDL_Texture = pointer;
-	TSDL_WindowEvent = record
+TSDL_WindowEvent = record
-		type_: byte;
+type_: byte;
-		gain: byte;
+gain: byte;
-		state: byte;
+state: byte;
-		windowID: LongInt;
+windowID: LongInt;
-		data1, data2: LongInt;
+data1, data2: LongInt;
-		end;
+end;
 // implement SDL_TextEditingEvent + SDL_TextInputEvent for sdl13
 {$ELSE}
-	//these two are present in sdl1.3 but only for backward compatibility
+//these two are present in sdl1.3 but only for backward compatibility
-	TSDL_ActiveEvent = record
+TSDL_ActiveEvent = record
-		type_: byte;
+type_: byte;
-		gain: byte;
+gain: byte;
-		state: byte;
+state: byte;
-		end;
+end;
-	TSDL_ResizeEvent = record
+TSDL_ResizeEvent = record
-		type_: Byte;
+type_: Byte;
-		w, h: LongInt;
+w, h: LongInt;
-		end;
+end;
 {$ENDIF}
-	TSDL_MouseMotionEvent = record
+TSDL_MouseMotionEvent = record
-		type_: byte;
+type_: byte;
-		which: byte;
+which: byte;
-		state: byte;
+state: byte;
 {$IFDEF SDL13}
-		windowID: LongInt;
+windowID: LongInt;
-		x, y, xrel, yrel : LongInt;
+x, y, xrel, yrel : LongInt;
-		pressure, pressure_max, pressure_min,
+pressure, pressure_max, pressure_min,
-		rotation, tilt, cursor: LongInt;
+rotation, tilt, cursor: LongInt;
 {$ELSE}
-		x, y, xrel, yrel : word;
+x, y, xrel, yrel : word;
 {$ENDIF}
-		end;
+end;
-	TSDL_KeyboardEvent = record
+TSDL_KeyboardEvent = record
-		type_: Byte;
+type_: Byte;
 {$IFDEF SDL13}
-		windowID: LongInt;
+windowID: LongInt;
 {$ENDIF}
-		which: Byte;
+which: Byte;
-		state: Byte;
+state: Byte;
-		keysym: TSDL_KeySym;
+keysym: TSDL_KeySym;
-		end;
+end;
-	TSDL_MouseButtonEvent = record
+TSDL_MouseButtonEvent = record
-		_type,
+_type,
-		which,
+which,
-		button,
+button,
-		state: byte;
+state: byte;
 {$IFDEF SDL13}
-		windowID: LongInt;
+windowID: LongInt;
-		x, y: LongInt;
+x, y: LongInt;
 {$ELSE}
-		x, y: word;
+x, y: word;
 {$ENDIF}
-		end;
+end;
 {$IFDEF SDL13}
-	TSDL_MouseWheelEvent = record
+TSDL_MouseWheelEvent = record
-		type_: Byte;
+type_: Byte;
-		windowID: LongInt;
+windowID: LongInt;
-		which: Byte;
+which: Byte;
-		x, y: LongInt;
+x, y: LongInt;
-		end;
+end;
 {$ENDIF}
-	TSDL_JoyAxisEvent = record
+TSDL_JoyAxisEvent = record
-		type_: Byte;
+type_: Byte;
-		which: Byte;
+which: Byte;
-		axis: Byte;
+axis: Byte;
 {$IFDEF SDL13}
-		value: LongInt;
+value: LongInt;
 {$ELSE}
-		value: word;
+value: word;
 {$ENDIF}
-		end;
+end;
-	TSDL_JoyBallEvent = record
+TSDL_JoyBallEvent = record
-		type_: Byte;
+type_: Byte;
-		which: Byte;
+which: Byte;
-		ball: Byte;
+ball: Byte;
 {$IFDEF SDL13}
-		xrel, yrel: LongInt;
+xrel, yrel: LongInt;
 {$ELSE}
-		xrel, yrel: word;
+xrel, yrel: word;
 {$ENDIF}
-		end;
+end;
-	TSDL_JoyHatEvent = record
+TSDL_JoyHatEvent = record
-		type_: Byte;
+type_: Byte;
-		which: Byte;
+which: Byte;
-		hat: Byte;
+hat: Byte;
-		value: Byte;
+value: Byte;
-		end;
+end;
-	TSDL_JoyButtonEvent = record
+TSDL_JoyButtonEvent = record
-		type_: Byte;
+type_: Byte;
-		which: Byte;
+which: Byte;
-		button: Byte;
+button: Byte;
-		state: Byte;
+state: Byte;
-		end;
+end;
-	TSDL_QuitEvent = record
+TSDL_QuitEvent = record
 type_: Byte;
 end;
-	PSDL_Event = ^TSDL_Event;
+PSDL_Event = ^TSDL_Event;
-	TSDL_Event = record
+TSDL_Event = record
-		case Byte of
+case Byte of
-			SDL_NOEVENT: (type_: byte);
+SDL_NOEVENT: (type_: byte);
 {$IFDEF SDL13}
-			SDL_WINDOWEVENT: (active: TSDL_WindowEvent);
+SDL_WINDOWEVENT: (active: TSDL_WindowEvent);
-			SDL_KEYDOWN,
+SDL_KEYDOWN,
-			SDL_KEYUP: (key: TSDL_KeyboardEvent);
+SDL_KEYUP: (key: TSDL_KeyboardEvent);
-			SDL_TEXTEDITING,
+SDL_TEXTEDITING,
-			SDL_TEXTINPUT: (txtin: byte);
+SDL_TEXTINPUT: (txtin: byte);
-			SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent);
+SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent);
-			SDL_MOUSEBUTTONDOWN,
+SDL_MOUSEBUTTONDOWN,
-			SDL_MOUSEBUTTONUP: (button: TSDL_MouseButtonEvent);
+SDL_MOUSEBUTTONUP: (button: TSDL_MouseButtonEvent);
-			SDL_MOUSEWHEEL: (wheel: TSDL_MouseWheelEvent);
+SDL_MOUSEWHEEL: (wheel: TSDL_MouseWheelEvent);
-			SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent);
+SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent);
-			SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent);
+SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent);
-			SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent);
+SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent);
-			SDL_JOYBUTTONDOWN,
+SDL_JOYBUTTONDOWN,
-			SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
+SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
-			SDL_QUITEV: (quit: TSDL_QuitEvent);
+SDL_QUITEV: (quit: TSDL_QuitEvent);
 {$ELSE}
-			SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent);
+SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent);
-			SDL_KEYDOWN,
+SDL_KEYDOWN,
-			SDL_KEYUP: (key: TSDL_KeyboardEvent);
+SDL_KEYUP: (key: TSDL_KeyboardEvent);
-			SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent);
+SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent);
-			SDL_MOUSEBUTTONDOWN,
+SDL_MOUSEBUTTONDOWN,
-			SDL_MOUSEBUTTONUP: (button: TSDL_MouseButtonEvent);
+SDL_MOUSEBUTTONUP: (button: TSDL_MouseButtonEvent);
-			SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent);
+SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent);
-			SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent);
+SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent);
-			SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent);
+SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent);
-			SDL_JOYBUTTONDOWN,
+SDL_JOYBUTTONDOWN,
-			SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
+SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
-			SDL_QUITEV: (quit: TSDL_QuitEvent);
+SDL_QUITEV: (quit: TSDL_QuitEvent);
-			//SDL_SYSWMEVENT,SDL_EVENT_RESERVEDA,SDL_EVENT_RESERVEDB
+//SDL_SYSWMEVENT,SDL_EVENT_RESERVEDA,SDL_EVENT_RESERVEDB
-			//SDL_VIDEORESIZE: (resize: TSDL_ResizeEvent);
+//SDL_VIDEORESIZE: (resize: TSDL_ResizeEvent);
 {$ENDIF}
-		end;
+end;
-	PByteArray = ^TByteArray;
+PByteArray = ^TByteArray;
-	TByteArray = array[0..65535] of Byte;
+TByteArray = array[0..65535] of Byte;
-	PLongWordArray = ^TLongWordArray;
+PLongWordArray = ^TLongWordArray;
-	TLongWordArray = array[0..16383] of LongWord;
+TLongWordArray = array[0..16383] of LongWord;
-	PSDL_Thread = Pointer;
+PSDL_Thread = Pointer;
-	PSDL_mutex = Pointer;
+PSDL_mutex = Pointer;
-	TSDL_GLattr = (
+TSDL_GLattr = (
-		SDL_GL_RED_SIZE,
+SDL_GL_RED_SIZE,
-		SDL_GL_GREEN_SIZE,
+SDL_GL_GREEN_SIZE,
-		SDL_GL_BLUE_SIZE,
+SDL_GL_BLUE_SIZE,
-		SDL_GL_ALPHA_SIZE,
+SDL_GL_ALPHA_SIZE,
-		SDL_GL_BUFFER_SIZE,
+SDL_GL_BUFFER_SIZE,
-		SDL_GL_DOUBLEBUFFER,
+SDL_GL_DOUBLEBUFFER,
-		SDL_GL_DEPTH_SIZE,
+SDL_GL_DEPTH_SIZE,
-		SDL_GL_STENCIL_SIZE,
+SDL_GL_STENCIL_SIZE,
-		SDL_GL_ACCUM_RED_SIZE,
+SDL_GL_ACCUM_RED_SIZE,
-		SDL_GL_ACCUM_GREEN_SIZE,
+SDL_GL_ACCUM_GREEN_SIZE,
-		SDL_GL_ACCUM_BLUE_SIZE,
+SDL_GL_ACCUM_BLUE_SIZE,
-		SDL_GL_ACCUM_ALPHA_SIZE,
+SDL_GL_ACCUM_ALPHA_SIZE,
-		SDL_GL_STEREO,
+SDL_GL_STEREO,
-		SDL_GL_MULTISAMPLEBUFFERS,
+SDL_GL_MULTISAMPLEBUFFERS,
-		SDL_GL_MULTISAMPLESAMPLES,
+SDL_GL_MULTISAMPLESAMPLES,
-		SDL_GL_ACCELERATED_VISUAL,
+SDL_GL_ACCELERATED_VISUAL,
 {$IFDEF SDL13}
-		SDL_GL_RETAINED_BACKING,
+SDL_GL_RETAINED_BACKING,
-		SDL_GL_CONTEXT_MAJOR_VERSION,
+SDL_GL_CONTEXT_MAJOR_VERSION,
-		SDL_GL_CONTEXT_MINOR_VERSION
+SDL_GL_CONTEXT_MINOR_VERSION
 {$ELSE}
-		SDL_GL_SWAP_CONTROL
+SDL_GL_SWAP_CONTROL
 {$ENDIF}
-		);
+);
 {$IFDEF SDL13}
-	TSDL_ArrayByteOrder = (  // array component order, low byte -> high byte
+TSDL_ArrayByteOrder = (  // array component order, low byte -> high byte
-		SDL_ARRAYORDER_NONE,
+SDL_ARRAYORDER_NONE,
-		SDL_ARRAYORDER_RGB,
+SDL_ARRAYORDER_RGB,
-		SDL_ARRAYORDER_RGBA,
+SDL_ARRAYORDER_RGBA,
-		SDL_ARRAYORDER_ARGB,
+SDL_ARRAYORDER_ARGB,
-		SDL_ARRAYORDER_BGR,
+SDL_ARRAYORDER_BGR,
-		SDL_ARRAYORDER_BGRA,
+SDL_ARRAYORDER_BGRA,
-		SDL_ARRAYORDER_ABGR
+SDL_ARRAYORDER_ABGR
-		);
+);
 {$ENDIF}
 // Joystick/Controller support
-	PSDL_Joystick = ^TSDL_Joystick;
+PSDL_Joystick = ^TSDL_Joystick;
-	TSDL_Joystick = record
+TSDL_Joystick = record
-			end;
+end;
-	{* SDL_TTF *}
+{* SDL_TTF *}
-	PTTF_Font = ^TTTF_font;
+PTTF_Font = ^TTTF_font;
-	TTTF_Font = record
+TTTF_Font = record
-		    end;
+end;
-	{* SDL_mixer *}
+{* SDL_mixer *}
-	PMixChunk = ^TMixChunk;
+PMixChunk = ^TMixChunk;
-	TMixChunk = record
+TMixChunk = record
-		allocated: Longword;
+allocated: Longword;
-		abuf     : PByte;
+abuf     : PByte;
-		alen     : Longword;
+alen     : Longword;
-		volume   : PByte;
+volume   : PByte;
-		end;
+end;
-	TMusic = (MUS_CMD, MUS_WAV, MUS_MOD, MUS_MID, MUS_OGG, MUS_MP3);
+TMusic = (MUS_CMD, MUS_WAV, MUS_MOD, MUS_MID, MUS_OGG, MUS_MP3);
-	TMix_Fading = (MIX_NO_FADING, MIX_FADING_OUT, MIX_FADING_IN);
+TMix_Fading = (MIX_NO_FADING, MIX_FADING_OUT, MIX_FADING_IN);
-	TMidiSong = record
+TMidiSong = record
 samples : LongInt;
 events  : pointer;
 end;
-	TMusicUnion = record
+TMusicUnion = record
-		case Byte of
+case Byte of
-		     0: ( midi : TMidiSong );
+0: ( midi : TMidiSong );
-		     1: ( ogg  : pointer);
+1: ( ogg  : pointer);
-		     end;
+end;
-	PMixMusic = ^TMixMusic;
+PMixMusic = ^TMixMusic;
-	TMixMusic = record
+TMixMusic = record
 end;
-	{* SDL_net *}
+{* SDL_net *}
-	TIPAddress = record
+TIPAddress = record
 host: Longword;
 port: Word;
 end;
-	PTCPSocket = ^TTCPSocket;
+PTCPSocket = ^TTCPSocket;
-	TTCPSocket = record
+TTCPSocket = record
 ready: LongInt;
 channel: LongInt;
 remoteAddress: TIPaddress;
 localAddress: TIPaddress;
 sflag: LongInt;
 end;
-	PSDLNet_SocketSet = ^TSDLNet_SocketSet;
+PSDLNet_SocketSet = ^TSDLNet_SocketSet;
-	TSDLNet_SocketSet = record
+TSDLNet_SocketSet = record
 numsockets,
 maxsockets: LongInt;
 sockets: PTCPSocket;
 end;
 function  SDL_RWFromFile(filename, mode: PChar): PSDL_RWops; cdecl; external SDLLibName;
 function  SDL_SaveBMP_RW(surface: PSDL_Surface; dst: PSDL_RWops; freedst: LongInt): LongInt; cdecl; external SDLLibName;
 {$IFDEF SDL13}
 function  SDL_CreateWindow(title: PChar; x,y,w,h, flags: LongInt): PSDL_Window; cdecl; external SDLLibName;
 function  SDL_CreateRenderer(window: PSDL_Window; index, flags: LongInt): LongInt; cdecl; external SDLLibName;
 function  SDL_SetRenderDrawColor(r,g,b,a: byte): LongInt; cdecl; external SDLLibName;
 function  SDL_RenderFill(rect: PSDL_Rect): LongInt;
 function  SDL_RenderFillRect(rect: PSDL_Rect): LongInt; cdecl; external SDLLibName;
 function  SDL_RenderClear: LongInt; cdecl; external SDLLibName;
 function  SDLNet_Read32(buf: pointer): LongWord;
 implementation
 function SDL_MustLock(Surface: PSDL_Surface): Boolean;
 begin
-	SDL_MustLock:= ( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0)
+SDL_MustLock:= ( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0)
 end;
 procedure SDLNet_Write16(value: Word; buf: pointer);
 begin
-	PByteArray(buf)^[1]:= value;
+PByteArray(buf)^[1]:= value;
-	PByteArray(buf)^[0]:= value shr 8
+PByteArray(buf)^[0]:= value shr 8
 end;
 procedure SDLNet_Write32(value: LongWord; buf: pointer);
 begin
-	PByteArray(buf)^[3]:= value;
+PByteArray(buf)^[3]:= value;
-	PByteArray(buf)^[2]:= value shr  8;
+PByteArray(buf)^[2]:= value shr  8;
-	PByteArray(buf)^[1]:= value shr 16;
+PByteArray(buf)^[1]:= value shr 16;
-	PByteArray(buf)^[0]:= value shr 24
+PByteArray(buf)^[0]:= value shr 24
 end;
 function SDLNet_Read16(buf: pointer): Word;
 begin
-	SDLNet_Read16:= PByteArray(buf)^[1] or
+SDLNet_Read16:= PByteArray(buf)^[1] or
 (PByteArray(buf)^[0] shl 8)
 end;
 function SDLNet_Read32(buf: pointer): LongWord;
 begin
-	SDLNet_Read32:=  PByteArray(buf)^[3] or
+SDLNet_Read32:=  PByteArray(buf)^[3] or
 (PByteArray(buf)^[2] shl  8) or
 (PByteArray(buf)^[1] shl 16) or
 (PByteArray(buf)^[0] shl 24)
 end;
 {$IFDEF SDL13}
 function SDL_RenderFill(rect: PSDL_Rect): LongInt;
 var res: LongInt;
 begin
-	if (rect <> nil) then res:= SDL_RenderFillRect(rect)
+if (rect <> nil) then res:= SDL_RenderFillRect(rect)
-	else res:= SDL_RenderClear();
+else res:= SDL_RenderClear();
-	exit(res);
+exit(res);
 end;
 {$ENDIF}
 end.

changeset 2948	3f21a9dc93d0
parent 2800	f286d91157b8
child 3153	adfe8a91658f