paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 22:40:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 51583 #ac532977f7 from trunk:

Browse Source 
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 -
This commit is contained in:
maxim 2016-02-13 12:41:40 +00:00
parent 403190a0f8
commit 83e7ffa28b
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