paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 11:20:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: Fix an Index out of bounds error in ListFilterEdit.

Browse Source
This commit is contained in:
Juha 2022-01-25 21:10:10 +02:00
parent 91df8a8cfe
commit be48000561
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazcontrols/listfilteredit.pas
View File

@ -328,9 +328,10 @@ begin
xOldItemIndex := fFilteredListbox.ItemIndex;
xSelStart := xOldItemIndex;
xSelEnd := xOldItemIndex;
while (xSelStart>=0) and fFilteredListbox.Selected[xSelStart] do
while (xSelStart >= 0) and fFilteredListbox.Selected[xSelStart] do
Dec(xSelStart);
while (xSelEnd<fFilteredListbox.Count) and fFilteredListbox.Selected[xSelEnd] do
while (xSelEnd < fFilteredListbox.Count)
and ((xSelEnd < 0) or fFilteredListbox.Selected[xSelEnd]) do
Inc(xSelEnd);
fFilteredListbox.ItemIndex := AIndex;
for i := Min(AIndex+1, xSelStart+1) to Max(AIndex-1, xSelEnd-1) do