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

ListFilterEdit: Improved keydown handler. Noted by Flávio Etrusco.

Browse Source 
git-svn-id: trunk@31692 -
This commit is contained in:
juha 2011-07-14 06:42:36 +00:00
parent ee4a3f95f1
commit 56e3778b07
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazcontrols/listfilteredit.pas
View File

@ -652,11 +652,15 @@ end;
procedure TListFilterEdit.KeyDown(var Key: Word; Shift: TShiftState); procedure TListFilterEdit.KeyDown(var Key: Word; Shift: TShiftState);
begin begin
case Key of if ((Key=VK_UP) or (Key=VK_DOWN)) and (Shift=[]) then
VK_UP: fViewControlWrapper.MovePrev; begin
VK_DOWN: fViewControlWrapper.MoveNext; case Key of
else inherited KeyDown(Key, Shift); VK_UP: fViewControlWrapper.MovePrev;
end; VK_DOWN: fViewControlWrapper.MoveNext;
end;
Key:=0;
end
else inherited KeyDown(Key, Shift);
end; end;
function TListFilterEdit.GetDefaultGlyph: TBitmap; function TListFilterEdit.GetDefaultGlyph: TBitmap;