paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:09:41 +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

6
components/lazcontrols/listfilteredit.pas
View File

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