From 83e7ffa28bee31c816dc696fb1cfd2316c893f42 Mon Sep 17 00:00:00 2001 From: maxim Date: Sat, 13 Feb 2016 12:41:40 +0000 Subject: [PATCH] Merged revision(s) 51583 #ac532977f7 from trunk: 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. ........ git-svn-id: branches/fixes_1_6@51610 - --- components/lazcontrols/listfilteredit.pas | 3 +++ 1 file changed, 3 insertions(+) diff --git a/components/lazcontrols/listfilteredit.pas b/components/lazcontrols/listfilteredit.pas index 5eea5e33f2..de91630bef 100644 --- a/components/lazcontrols/listfilteredit.pas +++ b/components/lazcontrols/listfilteredit.pas @@ -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