hedgewars/SDLh.pas
changeset 2567 02ff5f9510b5
parent 2525 e6cdc0251cd1
child 2575 d06e0e829828
equal deleted inserted replaced
2565:54296af65fe9 2567:02ff5f9510b5
   123 	SDL_JOYBUTTONDOWN = 10;
   123 	SDL_JOYBUTTONDOWN = 10;
   124 	SDL_JOYBUTTONUP = 11;
   124 	SDL_JOYBUTTONUP = 11;
   125 	SDL_QUITEV      = 12;
   125 	SDL_QUITEV      = 12;
   126 {$ENDIF}
   126 {$ENDIF}
   127 {*end sdl_event binding*}
   127 {*end sdl_event binding*}
       
   128 
       
   129 {$IFDEF SDL13}
       
   130 {*#define SDL_BUTTON(X)		(1 << ((X)-1))
       
   131 #define SDL_BUTTON_LEFT		1
       
   132 #define SDL_BUTTON_MIDDLE	2
       
   133 #define SDL_BUTTON_RIGHT	3
       
   134 #define SDL_BUTTON_X1		4
       
   135 #define SDL_BUTTON_X2		5
       
   136 #define SDL_BUTTON_LMASK	SDL_BUTTON(SDL_BUTTON_LEFT)
       
   137 #define SDL_BUTTON_MMASK	SDL_BUTTON(SDL_BUTTON_MIDDLE)
       
   138 #define SDL_BUTTON_RMASK	SDL_BUTTON(SDL_BUTTON_RIGHT)
       
   139 #define SDL_BUTTON_X1MASK	SDL_BUTTON(SDL_BUTTON_X1)
       
   140 #define SDL_BUTTON_X2MASK	SDL_BUTTON(SDL_BUTTON_X2)*}
       
   141 {$ENDIF}
   128 
   142 
   129 	RMask = $000000FF;
   143 	RMask = $000000FF;
   130 	GMask = $0000FF00;
   144 	GMask = $0000FF00;
   131 	BMask = $00FF0000;
   145 	BMask = $00FF0000;
   132 	AMask = $FF000000;
   146 	AMask = $FF000000;