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

SynEdit, Mouse Actions: Fixed a out of bounds exception

Browse Source 
git-svn-id: trunk@20531 -
This commit is contained in:
martin 2009-06-09 01:12:23 +00:00
parent f57b66915d
commit 97aec1fea7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/frames/editor_mouseaction_options.pas
View File

@ -223,7 +223,7 @@ begin
try try
FCurActions.AssertNoConflict(MAct); FCurActions.AssertNoConflict(MAct);
except except
FCurActions.Delete(FCurActions.Count); FCurActions.Delete(FCurActions.Count - 1);
MessageDlg(dlgMouseOptErrorDup, dlgMouseOptErrorDupText, mtError, [mbOk], 0); MessageDlg(dlgMouseOptErrorDup, dlgMouseOptErrorDupText, mtError, [mbOk], 0);
end; end;
ContextTreeChange(nil, FCurNode); ContextTreeChange(nil, FCurNode);