Browse Source

Radio button scroller Left and Right arrows will act as Up and Down arrows.

Margers 1 week ago
parent
commit
f5ecba57bb
1 changed files with 6 additions and 0 deletions
  1. 6 0
      packages/ide/wviews.pas

+ 6 - 0
packages/ide/wviews.pas

@@ -2442,6 +2442,12 @@ begin
          ClearEvent(Event);                               { Event was handled }
        end;
      end;
+     if (Event.What = evKeyDown) Then Begin         { KeyDown down event }
+       case CtrlToArrow(Event.KeyCode) of
+          kbLeft: Event.KeyCode:=kbUp;              { treat kbLeft as kbUp }
+          kbRight: Event.KeyCode:=kbDown;           { treat kbRight as kbDown }
+       end;
+     end;
    end;
 
    Inherited HandleEvent(Event);                      { Call ancestor }