From b119d3fd9d585d941debaf27e31afe415decffae Mon Sep 17 00:00:00 2001
From: FunkyFr3sh <cc.red.alert.1@googlemail.com>
Date: Thu, 1 Jul 2021 18:04:34 +0200
Subject: [PATCH] fix Compatibility button

---
 config/ConfigFormUnit.cpp | 10 +++++++---
 config/ConfigFormUnit.dfm |  5 +++--
 config/ConfigFormUnit.h   |  5 +++--
 3 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/config/ConfigFormUnit.cpp b/config/ConfigFormUnit.cpp
index ab445a7..a6fff9b 100644
--- a/config/ConfigFormUnit.cpp
+++ b/config/ConfigFormUnit.cpp
@@ -21,13 +21,17 @@ void __fastcall TConfigForm::DisplayBtnClick(TObject *Sender)
 	CompatibilityPnl->Visible = false;
 }
 
-void __fastcall TConfigForm::AdvSettingsBtnClick(TObject *Sender)
+void __fastcall TConfigForm::AdvDisplayBtnClick(TObject *Sender)
 {
 	AdvDisplayPnl->Visible = true;
 	DisplayPnl->Visible = false;
 	CompatibilityPnl->Visible = false;
 }
 
-
-
+void __fastcall TConfigForm::CompatibilityBtnClick(TObject *Sender)
+{
+	CompatibilityPnl->Visible = true;
+	AdvDisplayPnl->Visible = false;
+	DisplayPnl->Visible = false;
+}
 
diff --git a/config/ConfigFormUnit.dfm b/config/ConfigFormUnit.dfm
index 361b13a..f0dbb51 100644
--- a/config/ConfigFormUnit.dfm
+++ b/config/ConfigFormUnit.dfm
@@ -2709,7 +2709,7 @@ object ConfigForm: TConfigForm
       StyleElements = [seFont, seBorder]
       OnClick = DisplayBtnClick
     end
-    object AdvSettingsBtn: TSpeedButton
+    object AdvDisplayBtn: TSpeedButton
       Left = 8
       Top = 55
       Width = 171
@@ -2723,7 +2723,7 @@ object ConfigForm: TConfigForm
       Font.Name = 'Segoe UI'
       Font.Style = [fsBold]
       ParentFont = False
-      OnClick = AdvSettingsBtnClick
+      OnClick = AdvDisplayBtnClick
     end
     object CompatibilityBtn: TSpeedButton
       Left = 8
@@ -2740,6 +2740,7 @@ object ConfigForm: TConfigForm
       Font.Style = [fsBold]
       ParentFont = False
       Visible = False
+      OnClick = CompatibilityBtnClick
     end
   end
   object CompatibilityPnl: TPanel
diff --git a/config/ConfigFormUnit.h b/config/ConfigFormUnit.h
index b8f693b..451bcb4 100644
--- a/config/ConfigFormUnit.h
+++ b/config/ConfigFormUnit.h
@@ -18,7 +18,7 @@ __published:	// Von der IDE verwaltete Komponenten
 	TPanel *MenuPnl;
 	TPanel *DisplayPnl;
 	TSpeedButton *DisplayBtn;
-	TSpeedButton *AdvSettingsBtn;
+	TSpeedButton *AdvDisplayBtn;
 	TSpeedButton *CompatibilityBtn;
 	TPanel *AdvDisplayPnl;
 	TPanel *CompatibilityPnl;
@@ -45,7 +45,8 @@ __published:	// Von der IDE verwaltete Komponenten
 	TLabel *BoxingLbl;
 	TToggleSwitch *BoxingChk;
 	void __fastcall DisplayBtnClick(TObject *Sender);
-	void __fastcall AdvSettingsBtnClick(TObject *Sender);
+	void __fastcall AdvDisplayBtnClick(TObject *Sender);
+	void __fastcall CompatibilityBtnClick(TObject *Sender);
 private:	// Benutzer-Deklarationen
 public:		// Benutzer-Deklarationen
 	__fastcall TConfigForm(TComponent* Owner);