From 0a46f9012ea62b41673c3915ec59fcaf88ae253d Mon Sep 17 00:00:00 2001
From: rswindell <>
Date: Thu, 2 Nov 2000 05:03:58 +0000
Subject: [PATCH] Added support for DEL key (treated same as backspace).

---
 src/sbbs3/chat/MainFormUnit.cpp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/sbbs3/chat/MainFormUnit.cpp b/src/sbbs3/chat/MainFormUnit.cpp
index 3ede11ecdc..18a737903b 100644
--- a/src/sbbs3/chat/MainFormUnit.cpp
+++ b/src/sbbs3/chat/MainFormUnit.cpp
@@ -46,6 +46,8 @@
 #include <vcl\Registry.hpp>	/* TRegistry */
 #pragma hdrstop
 
+#include "gen_defs.h"       /* BS and DEL */
+
 #define PCHAT_LEN 1000		/* Size of Private chat file */
 #define REG_KEY "\\Software\\Swindell\\Synchronet Chat\\"
 
@@ -223,7 +225,7 @@ void __fastcall TMainForm::InputTimerTick(TObject *Sender)
         /* Got char, display it */
         if(ch=='\r')
             Remote->Lines->Add("");
-        else if(ch=='\b')    // backspace
+        else if(ch==BS || ch==DEL)    // backspace
             Remote->Lines->Text
                 =Remote->Lines->Text.SetLength(Remote->Lines->Text.Length()-1);
         else {
-- 
GitLab