paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 23:57:11 +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);
begin
case Key of
VK_UP: fViewControlWrapper.MovePrev;
VK_DOWN: fViewControlWrapper.MoveNext;
else inherited KeyDown(Key, Shift);
end;
if ((Key=VK_UP) or (Key=VK_DOWN)) and (Shift=[]) then
begin
case Key of
VK_UP: fViewControlWrapper.MovePrev;
VK_DOWN: fViewControlWrapper.MoveNext;
end;
Key:=0;
end
else inherited KeyDown(Key, Shift);
end;
function TListFilterEdit.GetDefaultGlyph: TBitmap;