hedgewars/SDLh.pas
changeset 1120 eb5a9f86f9c6
parent 1066 1f1b3686a2b0
child 1225 f882a92ef872
equal deleted inserted replaced
1119:be9700b424b2 1120:eb5a9f86f9c6
    55       SDL_NOEVENT     = 0;
    55       SDL_NOEVENT     = 0;
    56       SDL_ACTIVEEVENT = 1;
    56       SDL_ACTIVEEVENT = 1;
    57       SDL_KEYDOWN     = 2;
    57       SDL_KEYDOWN     = 2;
    58       SDL_KEYUP       = 3;
    58       SDL_KEYUP       = 3;
    59       SDL_QUITEV      = 12;
    59       SDL_QUITEV      = 12;
       
    60       SDL_VIDEORESIZE = 16;
    60 
    61 
    61       SDL_APPINPUTFOCUS = 2;
    62       SDL_APPINPUTFOCUS = 2;
    62 
    63 
    63       SDL_INIT_VIDEO  = $00000020;
    64       SDL_INIT_VIDEO  = $00000020;
    64       SDL_INIT_AUDIO  = $00000010;
    65       SDL_INIT_AUDIO  = $00000010;
    65 
    66 
    66       SDL_GL_DOUBLEBUFFER = 5;
    67       SDL_GL_DOUBLEBUFFER = 5;
    67       SDL_OPENGL          = 2;
    68       SDL_OPENGL          = 2;
       
    69       SDL_RESIZABLE       = $00000010;
    68 
    70 
    69       RMask = $FF;
    71       RMask = $FF;
    70       GMask = $FF00;
    72       GMask = $FF00;
    71       BMask = $FF0000;
    73       BMask = $FF0000;
    72       AMask = $FF000000;
    74       AMask = $FF000000;
   165                    unicode: Word;
   167                    unicode: Word;
   166                    end;
   168                    end;
   167 
   169 
   168      TSDL_ActiveEvent = record
   170      TSDL_ActiveEvent = record
   169 	                type_: byte;
   171 	                type_: byte;
   170                         gain: byte;
   172                     gain: byte;
   171                         state: byte;
   173                     state: byte;
   172                         end;
   174                     end;
   173 
   175 
   174      TSDL_KeyboardEvent = record
   176      TSDL_KeyboardEvent = record
   175                           type_: Byte;
   177                           type_: Byte;
   176                           which: Byte;
   178                           which: Byte;
   177                           state: Byte;
   179                           state: Byte;
   179                           end;
   181                           end;
   180 
   182 
   181      TSDL_QuitEvent = record
   183      TSDL_QuitEvent = record
   182                       type_: Byte;
   184                       type_: Byte;
   183                       end;
   185                       end;
       
   186 	TSDL_ResizeEvent = record
       
   187 			type_: Byte;
       
   188 			w, h: LongInt;
       
   189 			end;
       
   190 
   184      PSDL_Event = ^TSDL_Event;
   191      PSDL_Event = ^TSDL_Event;
   185      TSDL_Event = record
   192      TSDL_Event = record
   186                   case Byte of
   193                   case Byte of
   187                        SDL_NOEVENT: (type_: byte);
   194                        SDL_NOEVENT: (type_: byte);
   188                        SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent);
   195                        SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent);
   189                        SDL_KEYDOWN, SDL_KEYUP: (key: TSDL_KeyboardEvent);
   196                        SDL_KEYDOWN, SDL_KEYUP: (key: TSDL_KeyboardEvent);
   190                        SDL_QUITEV: (quit: TSDL_QuitEvent);
   197                        SDL_QUITEV: (quit: TSDL_QuitEvent);
       
   198                        SDL_VIDEORESIZE: (resize: TSDL_ResizeEvent);
   191                        end;
   199                        end;
   192 
   200 
   193      PByteArray = ^TByteArray;
   201      PByteArray = ^TByteArray;
   194      TByteArray = array[0..65535] of Byte;
   202      TByteArray = array[0..65535] of Byte;
   195      PLongWordArray = ^TLongWordArray;
   203      PLongWordArray = ^TLongWordArray;