浏览代码

Allow to navigate between buttons not only with Tab/Shift+Tab, but also using arrow keys as it is common UI/UX pattern now.

Ivan Sorokin 1 周之前
父节点
当前提交
1a97db3a9f
共有 1 个文件被更改,包括 4 次插入2 次删除
  1. 4 2
      packages/fv/src/views.inc

+ 4 - 2
packages/fv/src/views.inc

@@ -4241,11 +4241,13 @@ BEGIN
        End;
        End;
      evKeyDown: Begin                                 { KEYDOWN EVENT }
      evKeyDown: Begin                                 { KEYDOWN EVENT }
        Case Event.KeyCode Of
        Case Event.KeyCode Of
-         kbTab: Begin                                 { TAB KEY }
+         kbDown, kbRight, kbTab:
+         Begin
            FocusNext(False);                          { Select next view }
            FocusNext(False);                          { Select next view }
            ClearEvent(Event);                         { Clear the event }
            ClearEvent(Event);                         { Clear the event }
          End;
          End;
-         kbShiftTab: Begin                            { SHIFT TAB KEY }
+         kbUp, kbLeft, kbShiftTab:
+         Begin
            FocusNext(True);                           { Select prior view }
            FocusNext(True);                           { Select prior view }
            ClearEvent(Event);                         { Clear the event }
            ClearEvent(Event);                         { Clear the event }
          End;
          End;