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

object inspector: only respond to arrow keys, if no modifier keys are pressed, so that alt+Down can be handled by a combobox, fixes bug #11031

Browse Source 
git-svn-id: trunk@14699 -
This commit is contained in:
vincents 2008-03-31 22:10:38 +00:00
parent abafe7aa85
commit ab53ca94e1
1 changed files with 38 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
ideintf/objectinspector.pp
View File

@ -1905,45 +1905,53 @@ var
Handled: Boolean;
begin
//writeln('TOICustomPropertyGrid.HandleStandardKeys ',Key);
Handled:=true;
case Key of
if Shift = [] then
begin
Handled:=true;
case Key of
VK_UP:
if (ItemIndex>0) then SetItemIndexAndFocus(ItemIndex-1);
VK_UP:
if (ItemIndex>0) then SetItemIndexAndFocus(ItemIndex-1);
VK_Down:
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)
VK_LEFT:
if (FCurrentEdit=nil)
and (ItemIndex>=0) and (Rows[ItemIndex].Expanded) then
ShrinkRow(ItemIndex)
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;
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;
Handled := false;
end;
end
else
if Assigned(OnOIKeyDown) then
OnOIKeyDown(Self,Key,Shift);
Handled := false;
if not Handled and Assigned(OnOIKeyDown) then
begin
OnOIKeyDown(Self,Key,Shift);
Handled:=Key=VK_UNKNOWN;
end;
//writeln('TOICustomPropertyGrid.HandleStandardKeys ',Key,' Handled=',Handled);
if Handled then Key:=VK_UNKNOWN;
end;