paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 11:40:35 +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

79
ideintf/objectinspector.pp
View File

@ -1916,49 +1916,44 @@ begin
//writeln('TOICustomPropertyGrid.HandleStandardKeys ',Key);
if Shift = [] then
begin
Handled:=true;
case Key of
VK_UP:
if IsCurrentEditDroppedDown then
Handled := False
Handled := not IsCurrentEditDroppedDown;
if Handled then
case Key of
VK_UP:
if (ItemIndex > 0) then
SetItemIndexAndFocus(ItemIndex - 1);
VK_DOWN:
if (ItemIndex < FRows.Count - 1) then
SetItemIndexAndFocus(ItemIndex + 1);
VK_TAB:
DoTabKey;
VK_LEFT:
if ((FCurrentEdit = nil) or not FCurrentEdit.Focused)
and (ItemIndex>=0) and (Rows[ItemIndex].Expanded) then
ShrinkRow(ItemIndex)
else
Handled:=false;
VK_RIGHT:
if ((FCurrentEdit = nil) or not FCurrentEdit.Focused)
and (ItemIndex >= 0) and (not Rows[ItemIndex].Expanded)
and (paSubProperties in Rows[ItemIndex].Editor.GetAttributes) then
ExpandRow(ItemIndex)
else
Handled:=false;
VK_RETURN:
begin
SetRowValue;
if (FCurrentEdit is TCustomEdit) then
TCustomEdit(FCurrentEdit).SelectAll;
end;
else
if (ItemIndex > 0) then
SetItemIndexAndFocus(ItemIndex - 1);
VK_DOWN:
if IsCurrentEditDroppedDown then
Handled := False
else
if (ItemIndex < FRows.Count - 1) then
SetItemIndexAndFocus(ItemIndex + 1);
VK_TAB:
DoTabKey;
VK_LEFT:
if ((FCurrentEdit = nil) or not FCurrentEdit.Focused)
and (ItemIndex>=0) and (Rows[ItemIndex].Expanded) then
ShrinkRow(ItemIndex)
else
Handled:=false;
VK_RIGHT:
if ((FCurrentEdit = nil) or not FCurrentEdit.Focused)
and (ItemIndex >= 0) and (not Rows[ItemIndex].Expanded)
and (paSubProperties in Rows[ItemIndex].Editor.GetAttributes) then
ExpandRow(ItemIndex)
else
Handled:=false;
VK_RETURN:
begin
SetRowValue;
if (FCurrentEdit is TCustomEdit) then
TCustomEdit(FCurrentEdit).SelectAll;
end;
else
Handled := false;
end;
Handled := false;
end;
end
else
if Shift = [ssCtrl] then