disable right shift
This commit is contained in:
parent
5b82ffbb96
commit
2f7646c6d1
2 changed files with 3 additions and 5 deletions
|
@ -1080,10 +1080,6 @@ WORD TConfigForm::GetKeyCode(System::UnicodeString key)
|
|||
return VK_RCONTROL;
|
||||
}
|
||||
|
||||
if (key == L"R " + ShortCutToText(VK_SHIFT)) {
|
||||
return VK_RSHIFT;
|
||||
}
|
||||
|
||||
return TextToShortCut(key);
|
||||
}
|
||||
|
||||
|
@ -1102,7 +1098,7 @@ System::UnicodeString TConfigForm::GetKeyText(WORD key)
|
|||
}
|
||||
|
||||
if (key == VK_RSHIFT) {
|
||||
return L"R " + ShortCutToText(VK_SHIFT);
|
||||
return ShortCutToText(VK_SHIFT);
|
||||
}
|
||||
|
||||
return ShortCutToText(key);
|
||||
|
|
|
@ -3270,6 +3270,8 @@ object ConfigForm: TConfigForm
|
|||
TabOrder = 4
|
||||
Visible = False
|
||||
StyleElements = [seFont, seBorder]
|
||||
ExplicitWidth = 495
|
||||
ExplicitHeight = 464
|
||||
object ToggleWindowedLbl: TLabel
|
||||
Left = 40
|
||||
Top = 27
|
||||
|
|
Loading…
Reference in a new issue