equal
deleted
inserted
replaced
152 while SDL_PeepEvents(@event, 1, SDL_GETEVENT, {$IFDEF SDL2}SDL_FIRSTEVENT, SDL_LASTEVENT{$ELSE}SDL_ALLEVENTS{$ENDIF}) > 0 do |
152 while SDL_PeepEvents(@event, 1, SDL_GETEVENT, {$IFDEF SDL2}SDL_FIRSTEVENT, SDL_LASTEVENT{$ELSE}SDL_ALLEVENTS{$ENDIF}) > 0 do |
153 begin |
153 begin |
154 case event.type_ of |
154 case event.type_ of |
155 {$IFDEF SDL2} |
155 {$IFDEF SDL2} |
156 SDL_KEYDOWN: |
156 SDL_KEYDOWN: |
157 if (GameState <> gsChat) and (GameState >= gsGame) then |
157 if (GameState = gsChat) then |
|
158 KeyPressChat(event.key.keysym.sym) |
|
159 else if (GameState >= gsGame) then |
158 ProcessKey(event.key); |
160 ProcessKey(event.key); |
159 SDL_KEYUP: |
161 SDL_KEYUP: |
160 if (GameState <> gsChat) and (GameState >= gsGame) then |
162 if (GameState <> gsChat) and (GameState >= gsGame) then |
161 ProcessKey(event.key); |
163 ProcessKey(event.key); |
162 |
164 |
170 if (GameState >= gsGame) then ProcessMouse(event.button, false); |
172 if (GameState >= gsGame) then ProcessMouse(event.button, false); |
171 |
173 |
172 SDL_MOUSEWHEEL: |
174 SDL_MOUSEWHEEL: |
173 ProcessMouseWheel(event.wheel.x, event.wheel.y); |
175 ProcessMouseWheel(event.wheel.x, event.wheel.y); |
174 |
176 |
175 SDL_TEXTINPUT: AddFileLog('[Text input] ' + event.text.text); |
177 SDL_TEXTINPUT: uChat.TextInput(event.text); |
176 SDL_TEXTEDITING: AddFileLog('[Text edit] ''' + event.edit.text + ''' ' + inttostr(event.edit.start) + ' ' + inttostr(event.edit.length)); |
|
177 |
178 |
178 SDL_WINDOWEVENT: |
179 SDL_WINDOWEVENT: |
179 if event.window.event = SDL_WINDOWEVENT_SHOWN then |
180 if event.window.event = SDL_WINDOWEVENT_SHOWN then |
180 begin |
181 begin |
181 cHasFocus:= true; |
182 cHasFocus:= true; |