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

IDE: Fix TEditorKeymappingOptionsFrame.FilterEditFilterItem, was broken by r52745 #85628cd5f9. Issue #30461.

Browse Source 
git-svn-id: trunk@52794 -
This commit is contained in:
juha 2016-08-11 11:25:43 +00:00
parent a625ed6a3f
commit e06fda9bf2
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/frames/editor_keymapping_options.pas
View File

@ -229,9 +229,8 @@ var
begin
Done:=True;
Result:=False;
if ItemData=nil then Exit;
Assert(TObject(ItemData) is TKeyCommandRelation,
'TEditorKeymappingOptionsFrame.FilterEditFilterItem: ItemData is not TKeyCommandRelation.');
if TObject(ItemData) is TKeyCommandRelation then
begin
KeyRel:=TKeyCommandRelation(ItemData); // Tree item is actual key command.
Done:=False;
Result:=KeyMapKeyFilter.Key1<>VK_UNKNOWN;
@ -240,6 +239,7 @@ begin
Result:=(CompareIDEShortCutKey1s(@KeyMapKeyFilter,@KeyRel.ShortcutA)=0)
or (CompareIDEShortCutKey1s(@KeyMapKeyFilter,@KeyRel.ShortcutB)=0);
end;
end;
end;
procedure TEditorKeymappingOptionsFrame.FilterEditKeyPress(Sender: TObject; var Key: char);