From 2f7646c6d1bf67147a83152472954497352efa8c Mon Sep 17 00:00:00 2001
From: FunkyFr3sh <cc.red.alert.1@googlemail.com>
Date: Sun, 13 Aug 2023 01:20:02 +0200
Subject: [PATCH] disable right shift

---
 config/ConfigFormUnit.cpp | 6 +-----
 config/ConfigFormUnit.dfm | 2 ++
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/config/ConfigFormUnit.cpp b/config/ConfigFormUnit.cpp
index 0b6c14a..50395be 100644
--- a/config/ConfigFormUnit.cpp
+++ b/config/ConfigFormUnit.cpp
@@ -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);
diff --git a/config/ConfigFormUnit.dfm b/config/ConfigFormUnit.dfm
index 1a67382..f6cd679 100644
--- a/config/ConfigFormUnit.dfm
+++ b/config/ConfigFormUnit.dfm
@@ -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