|
@@ -645,27 +645,19 @@ Class AppInstance
|
|
|
|
|
|
Local view:=KeyView
|
|
Local view:=KeyView
|
|
|
|
|
|
- Local event:=New KeyEvent( type,view,_key,_rawKey,_modifiers,_keyChar )
|
|
|
|
-
|
|
|
|
- KeyEventFilter( event )
|
|
|
|
-
|
|
|
|
- If event.Eaten Or Not view
|
|
|
|
- _keyDownView=Null
|
|
|
|
- Return
|
|
|
|
- Endif
|
|
|
|
-
|
|
|
|
Select type
|
|
Select type
|
|
Case EventType.KeyDown
|
|
Case EventType.KeyDown
|
|
_keyDownView=view
|
|
_keyDownView=view
|
|
Case EventType.KeyUp
|
|
Case EventType.KeyUp
|
|
- If view<>_keyDownView
|
|
|
|
- _keyDownView=Null
|
|
|
|
- Return
|
|
|
|
- Endif
|
|
|
|
- Default
|
|
|
|
- _keyDownView=Null
|
|
|
|
|
|
+ If view<>_keyDownView Return
|
|
End
|
|
End
|
|
|
|
|
|
|
|
+ Local event:=New KeyEvent( type,view,_key,_rawKey,_modifiers,_keyChar )
|
|
|
|
+
|
|
|
|
+ KeyEventFilter( event )
|
|
|
|
+
|
|
|
|
+ If event.Eaten Or Not view Return
|
|
|
|
+
|
|
view.SendKeyEvent( event )
|
|
view.SendKeyEvent( event )
|
|
End
|
|
End
|
|
|
|
|