From 97fbeca256d3fe78ec1e937e46f69d29add0f3da Mon Sep 17 00:00:00 2001
From: Martijn Laan <1092369+martijnlaan@users.noreply.github.com>
Date: Fri, 14 Jun 2024 07:47:23 +0200
Subject: [PATCH] Fix commit of test code I didn't want to commit yet.

---
 Projects/Src/CompForm.pas | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/Projects/Src/CompForm.pas b/Projects/Src/CompForm.pas
index ed71b7a67..ffe43e83b 100644
--- a/Projects/Src/CompForm.pas
+++ b/Projects/Src/CompForm.pas
@@ -2819,16 +2819,6 @@ procedure TCompileForm.HDocClick(Sender: TObject);
 procedure TCompileForm.MemoKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
-  if Key = VK_RIGHT then begin
-    var Memo := Sender as TScintEdit;
-    if (Memo.Call(SCI_GETSELECTIONMODE, 0, 0) = SC_SEL_RECTANGLE) or
-       (Memo.Call(SCI_GETSELECTIONMODE, 0, 0) = SC_SEL_THIN) then begin
-    //'Enable Column Selection to Multi-editing';
-      Memo.Call(SCI_SETSELECTIONMODE, SC_SEL_STREAM, 0);
-      Memo.Call(SCI_SETSELECTIONMODE, SC_SEL_STREAM, 0);
-    end;
-  end;
-
   if Key = VK_F1 then begin
     var HelpFile := GetHelpFile;
     if Assigned(HtmlHelp) then begin