From 6048a8cb51f36576834d1d4dff896bae34f9ac7c Mon Sep 17 00:00:00 2001
From: n7800 <14154601-n7800@users.noreply.gitlab.com>
Date: Wed, 3 Jul 2024 05:58:07 +0000
Subject: [PATCH] IDE: Fixed out-of-bounds error when calling a non-existent
 "external tool" with a shortcut

---
 ide/exttooleditdlg.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ide/exttooleditdlg.pas b/ide/exttooleditdlg.pas
index e8e837d6bb..87757f06de 100644
--- a/ide/exttooleditdlg.pas
+++ b/ide/exttooleditdlg.pas
@@ -547,8 +547,10 @@ var
   Tool: TIDEExternalToolOptions;
 begin
   Result:=mrCancel;
-  Item:=Items[Index];
+  if (Index < 0) or (Index >= fItems.Count) then
+    exit;
 
+  Item:=Items[Index];
   Tool:=TIDEExternalToolOptions.Create;
   try
     Tool.Title:=Item.Title;