equal
deleted
inserted
replaced
154 |
154 |
155 procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
155 procedure ProcessKey(event: TSDL_KeyboardEvent); inline; |
156 var code: LongInt; |
156 var code: LongInt; |
157 begin |
157 begin |
158 code:= event.keysym.sym; |
158 code:= event.keysym.sym; |
159 MaskModifier(code, event.keysym.modifier); |
159 //MaskModifier(code, event.keysym.modifier); |
160 ProcessKey(code, event.type_ = SDL_KEYDOWN); |
160 ProcessKey(code, event.type_ = SDL_KEYDOWN); |
161 end; |
161 end; |
162 |
162 |
163 procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
163 procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean); |
164 begin |
164 begin |