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

ideintf: allow to search by first letter in the object inspector after pressing the Tab key (issue #0000901) by patch of Alexander S. Klenin

Browse Source 
git-svn-id: trunk@19043 -
This commit is contained in:
paul 2009-03-20 14:51:47 +00:00
parent 4e51b1e797
commit 46b1e4f932
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ideintf/objectinspector.pp
View File

@ -791,6 +791,7 @@ begin
FFilter:=TypeFilter;
FItemIndex:=-1;
FStates:=[];
FColumn := oipgcValue;
FRows:=TFPList.Create;
FExpandingRow:=nil;
FDragging:=false;
@ -2058,6 +2059,21 @@ procedure TOICustomPropertyGrid.HandleStandardKeys(
var
Handled: Boolean;
procedure FindPropertyByFirstLetter;
var
i: Integer;
begin
if Column = oipgcName then
for i := 0 to RowCount - 1 do
if (Rows[i].Lvl = Rows[ItemIndex].Lvl) and
(Ord(upCase(Rows[i].Name[1])) = Key) then
begin
SetItemIndexAndFocus(i);
exit;
end;
Handled := false;
end;
procedure HandleUnshifted;
const
Page = 20;
@ -2080,6 +2096,8 @@ var
VK_ESCAPE: RefreshValueEdit;
Ord('A')..Ord('Z'): FindPropertyByFirstLetter;
else
Handled := false;
end;
@ -2088,7 +2106,7 @@ var
begin
//writeln('TOICustomPropertyGrid.HandleStandardKeys ',Key);
Handled := false;
if Shift = [] then
if (Shift = []) or (Shift = [ssShift]) then
begin
if not (FCurrentEdit is TCustomCombobox) or
not TCustomCombobox(FCurrentEdit).DroppedDown then
@ -2120,7 +2138,8 @@ begin
CanExpandRow(Rows[ItemIndex]);
if Handled then ExpandRow(ItemIndex)
end;
end;
end;
if not Handled and Assigned(OnOIKeyDown) then
begin