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

ideintf: expanding/collapsing subproperties by alt + left/right keys in the Object Inspector (by Alexander S. Klenin, #0012852)

Browse Source 
git-svn-id: trunk@17939 -
This commit is contained in:
paul 2008-12-24 14:41:07 +00:00
parent c040b5885d
commit 3b8c66ab2a
1 changed files with 17 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
ideintf/objectinspector.pp
View File

@ -2112,12 +2112,6 @@ end;
procedure TOICustomPropertyGrid.HandleStandardKeys(
var Key: Word; Shift: TShiftState);
function IsGoodEdit: Boolean;
begin
Result :=
((FCurrentEdit = nil) or not FCurrentEdit.Focused) and (ItemIndex >= 0);
end;
var
Handled: Boolean;
@ -2134,19 +2128,6 @@ var
VK_TAB: DoTabKey;
VK_LEFT:
begin
Handled := IsGoodEdit and Rows[ItemIndex].Expanded;
if Handled then ShrinkRow(ItemIndex);
end;
VK_RIGHT:
begin
Handled := IsGoodEdit and not Rows[ItemIndex].Expanded and
CanExpandRow(Rows[ItemIndex]);
if Handled then ExpandRow(ItemIndex)
end;
VK_RETURN:
begin
SetRowValue;
@ -2180,7 +2161,23 @@ begin
Handled := true;
end;
end;
end;
end
else
if Shift = [ssAlt] then
case Key of
VK_LEFT:
begin
Handled := (ItemIndex >= 0) and Rows[ItemIndex].Expanded;
if Handled then ShrinkRow(ItemIndex);
end;
VK_RIGHT:
begin
Handled := (ItemIndex >= 0) and not Rows[ItemIndex].Expanded and
CanExpandRow(Rows[ItemIndex]);
if Handled then ExpandRow(ItemIndex)
end;
end;
if not Handled and Assigned(OnOIKeyDown) then
begin