paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 17:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Fixed out-of-bounds error when calling a non-existent "external tool" with a shortcut

Browse Source
This commit is contained in:
n7800 2024-07-03 05:58:07 +00:00 committed by Maxim Ganetsky
parent 5ab8254f9c
commit 6048a8cb51
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/exttooleditdlg.pas
View File

@ -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;