paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-17 17:39:40 +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( procedure TOICustomPropertyGrid.HandleStandardKeys(
var Key: Word; Shift: TShiftState); var Key: Word; Shift: TShiftState);
function IsGoodEdit: Boolean;
begin
Result :=
((FCurrentEdit = nil) or not FCurrentEdit.Focused) and (ItemIndex >= 0);
end;
var var
Handled: Boolean; Handled: Boolean;
@ -2134,19 +2128,6 @@ var
VK_TAB: DoTabKey; 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: VK_RETURN:
begin begin
SetRowValue; SetRowValue;
@ -2180,7 +2161,23 @@ begin
Handled := true; Handled := true;
end; end;
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 if not Handled and Assigned(OnOIKeyDown) then
begin begin