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

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

Browse Source 
git-svn-id: trunk@14708 -
This commit is contained in:
paul 2008-04-01 07:02:34 +00:00
parent eb654610cb
commit 54763caf2c
1 changed files with 42 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
ideintf/objectinspector.pp
View File

@ -1903,6 +1903,13 @@ end;
procedure TOICustomPropertyGrid.HandleStandardKeys(var Key: Word;
Shift: TShiftState);
function IsCurrentEditDroppedDown: Boolean;
begin
Result := (FCurrentEdit is TCustomCombobox) and
TCustomCombobox(FCurrentEdit).DroppedDown;
end;
var
Handled: Boolean;
begin
@ -1911,39 +1918,46 @@ begin
begin
Handled:=true;
case Key of
VK_UP:
if IsCurrentEditDroppedDown then
Handled := False
else
if (ItemIndex > 0) then
SetItemIndexAndFocus(ItemIndex - 1);
VK_UP:
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_DOWN:
if (ItemIndex<FRows.Count-1) then SetItemIndexAndFocus(ItemIndex+1);
VK_TAB:
DoTabKey;
VK_TAB:
DoTabKey;
VK_LEFT:
if (FCurrentEdit=nil)
and (ItemIndex>=0) and (Rows[ItemIndex].Expanded) then
ShrinkRow(ItemIndex)
else
Handled:=false;
VK_LEFT:
if (FCurrentEdit=nil)
and (ItemIndex>=0) and (Rows[ItemIndex].Expanded) then
ShrinkRow(ItemIndex)
VK_RIGHT:
if (FCurrentEdit=nil)
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;
VK_RIGHT:
if (FCurrentEdit=nil)
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;
Handled := false;
end;
end
else