paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:39:37 +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; fFilteredListbox.ItemIndex := AIndex;
for i := Min(AIndex+1, xSelStart+1) to Max(AIndex-1, xSelEnd-1) do for i := Min(AIndex+1, xSelStart+1) to Max(AIndex-1, xSelEnd-1) do
fFilteredListbox.Selected[i] := True; 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 end else
begin begin
fFilteredListbox.ItemIndex := AIndex; fFilteredListbox.ItemIndex := AIndex;
fFilteredListbox.Selected[AIndex] := True;
end; end;
Assert(fFilteredListbox.ItemFullyVisible(AIndex), 'TListFilterEdit.MoveTo: Item not fully visible'); Assert(fFilteredListbox.ItemFullyVisible(AIndex), 'TListFilterEdit.MoveTo: Item not fully visible');
{ if not fFilteredListbox.ItemFullyVisible(AIndex) then { if not fFilteredListbox.ItemFullyVisible(AIndex) then