Browse Source

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 week ago
parent
commit
1a97db3a9f
1 changed files with 4 additions and 2 deletions
  1. 4 2
      packages/fv/src/views.inc

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

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