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

ide: don't eat any keys when object inspector editor is dropped down (issue #0011031)

Browse Source 
git-svn-id: trunk@14723 -
This commit is contained in:
paul 2008-04-02 02:21:29 +00:00
parent d2b0a4c27d
commit ab35d6d7d9
1 changed files with 37 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ideintf/objectinspector.pp
View File

@ -1916,19 +1916,14 @@ begin
//writeln('TOICustomPropertyGrid.HandleStandardKeys ',Key); //writeln('TOICustomPropertyGrid.HandleStandardKeys ',Key);
if Shift = [] then if Shift = [] then
begin begin
Handled:=true; Handled := not IsCurrentEditDroppedDown;
if Handled then
case Key of case Key of
VK_UP: VK_UP:
if IsCurrentEditDroppedDown then
Handled := False
else
if (ItemIndex > 0) then if (ItemIndex > 0) then
SetItemIndexAndFocus(ItemIndex - 1); SetItemIndexAndFocus(ItemIndex - 1);
VK_DOWN: VK_DOWN:
if IsCurrentEditDroppedDown then
Handled := False
else
if (ItemIndex < FRows.Count - 1) then if (ItemIndex < FRows.Count - 1) then
SetItemIndexAndFocus(ItemIndex + 1); SetItemIndexAndFocus(ItemIndex + 1);