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

synedit: fix range check errors

Browse Source 
git-svn-id: trunk@17619 -
This commit is contained in:
paul 2008-11-28 03:36:23 +00:00
parent aa21e07575
commit 047a034477
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -8185,12 +8185,12 @@ begin
ecSetMarker0..ecSetMarker9,ecToggleMarker0..ecToggleMarker9:
begin
if BookMarkOptions.EnableKeys then begin
if Command in [ecSetMarker0..ecSetMarker9] then
if (Command >= ecSetMarker0) and (Command <= ecSetMarker9) then
CX := Command - ecSetMarker0
else
CX := Command - ecToggleMarker0;
if assigned(fBookMarks[CX]) then begin
moveBkm := (Command in [ecSetMarker0..ecSetMarker9])
moveBkm := ((Command >= ecSetMarker0) and (Command <= ecSetMarker9))
or (fBookMarks[CX].Line <> CaretY);
ClearBookMark(CX);
if moveBkm then