paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 01:48:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: Fix a regression in ListFilterEdit caused by r51267 #dfc8958222, affecting Win32 widgetset. Arrow key in filter did not select list items. Patch from GetMem.

Browse Source 
git-svn-id: trunk@51583 -
This commit is contained in:
juha 2016-02-10 21:16:55 +00:00
parent 0edc9138ee
commit ac532977f7
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazcontrols/listfilteredit.pas
View File

@ -325,9 +325,12 @@ begin
fFilteredListbox.ItemIndex := AIndex;
for i := Min(AIndex+1, xSelStart+1) to Max(AIndex-1, xSelEnd-1) do
fFilteredListbox.Selected[i] := True;
//Win32 sets ItemIndex to the last Selected[?] := True - in contrast to Gtk2 -> set selected again to work on all widgetsets
fFilteredListbox.Selected[AIndex] := True;
end else
begin
fFilteredListbox.ItemIndex := AIndex;
fFilteredListbox.Selected[AIndex] := True;
end;
Assert(fFilteredListbox.ItemFullyVisible(AIndex), 'TListFilterEdit.MoveTo: Item not fully visible');
{ if not fFilteredListbox.ItemFullyVisible(AIndex) then