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

Merge branch 'exttool-rangecheck' into 'main'

Browse Source 
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:
Maxim Ganetsky 2024-07-03 12:56:03 +00:00
commit ea8dad6089
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; 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;