mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-13 09:49:22 +02:00
Merge branch 'exttool-rangecheck' into 'main'
IDE: Fixed out-of-bounds error when calling a non-existent "external tool" with a shortcut See merge request freepascal.org/lazarus/lazarus!301
This commit is contained in:
commit
ea8dad6089
@ -547,8 +547,10 @@ var
|
|||||||
Tool: TIDEExternalToolOptions;
|
Tool: TIDEExternalToolOptions;
|
||||||
begin
|
begin
|
||||||
Result:=mrCancel;
|
Result:=mrCancel;
|
||||||
Item:=Items[Index];
|
if (Index < 0) or (Index >= fItems.Count) then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
Item:=Items[Index];
|
||||||
Tool:=TIDEExternalToolOptions.Create;
|
Tool:=TIDEExternalToolOptions.Create;
|
||||||
try
|
try
|
||||||
Tool.Title:=Item.Title;
|
Tool.Title:=Item.Title;
|
||||||
|
Loading…
Reference in New Issue
Block a user