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

IDE: Keep the selection of key in KeyMapping window. From Ondrej Pokorny.

Browse Source 
git-svn-id: trunk@50035 -
This commit is contained in:
juha 2015-10-12 08:32:57 +00:00
parent 28eba57562
commit 5093f81168
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/frames/editor_keymapping_options.lfm
View File

@ -17,6 +17,7 @@ object EditorKeymappingOptionsFrame: TEditorKeymappingOptionsFrame
Height = 23 Height = 23
Top = 6 Top = 6
Width = 305 Width = 305
OnAfterFilter = FilterEditAfterFilter
OnFilterItem = FilterEditFilterItem OnFilterItem = FilterEditFilterItem
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1

6
ide/frames/editor_keymapping_options.pas
View File

@ -59,6 +59,7 @@ type
procedure EditMenuItemClick(Sender: TObject); procedure EditMenuItemClick(Sender: TObject);
procedure ChooseSchemeButtonClick(Sender: TObject); procedure ChooseSchemeButtonClick(Sender: TObject);
procedure ClearButtonClick(Sender: TObject); procedure ClearButtonClick(Sender: TObject);
procedure FilterEditAfterFilter(Sender: TObject);
function FilterEditFilterItem(Item: TObject; out Done: Boolean): Boolean; function FilterEditFilterItem(Item: TObject; out Done: Boolean): Boolean;
procedure FilterEditKeyPress(Sender: TObject; var {%H-}Key: char); procedure FilterEditKeyPress(Sender: TObject; var {%H-}Key: char);
procedure FindKeyButtonClick(Sender: TObject); procedure FindKeyButtonClick(Sender: TObject);
@ -473,6 +474,11 @@ begin
end; end;
end; end;
procedure TEditorKeymappingOptionsFrame.FilterEditAfterFilter(Sender: TObject);
begin
TreeView.MakeSelectionVisible;
end;
function TEditorKeymappingOptionsFrame.KeyMappingRelationToCaption(Index: Integer): String; function TEditorKeymappingOptionsFrame.KeyMappingRelationToCaption(Index: Integer): String;
begin begin
Result := KeyMappingRelationToCaption(FEditingKeyMap.Relations[Index]); Result := KeyMappingRelationToCaption(FEditingKeyMap.Relations[Index]);