浏览代码

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

Margers 1 月之前
父节点
当前提交
f5ecba57bb
共有 1 个文件被更改,包括 6 次插入0 次删除
  1. 6 0
      packages/ide/wviews.pas

+ 6 - 0
packages/ide/wviews.pas

@@ -2442,6 +2442,12 @@ begin
          ClearEvent(Event);                               { Event was handled }
          ClearEvent(Event);                               { Event was handled }
        end;
        end;
      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;
    end;
 
 
    Inherited HandleEvent(Event);                      { Call ancestor }
    Inherited HandleEvent(Event);                      { Call ancestor }