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

IDE: Prevent left-over lines in key mapping Treeviews after moving splitter. Issue #28706, patch from Balázs Székely.

Browse Source 
git-svn-id: trunk@51938 -
This commit is contained in:
juha 2016-03-14 17:01:39 +00:00
parent 51aa9e7e21
commit ff3dd2b421
2 changed files with 8 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

@ -103,6 +103,7 @@ object EditorKeymappingOptionsFrame: TEditorKeymappingOptionsFrame
Top = 248
Width = 459
Align = alBottom
OnMoved = KeyMapSplitterMoved
ResizeAnchor = akBottom
end
object TreeView: TTreeView

7
ide/frames/editor_keymapping_options.pas
View File

@ -63,6 +63,7 @@ type
function FilterEditFilterItem(Item: TObject; out Done: Boolean): Boolean;
procedure FilterEditKeyPress(Sender: TObject; var {%H-}Key: char);
procedure FindKeyButtonClick(Sender: TObject);
procedure KeyMapSplitterMoved(Sender: TObject);
procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure ResetKeyFilterBtnClick(Sender: TObject);
procedure TreeViewDblClick(Sender: TObject);
@ -265,6 +266,12 @@ begin
end;
end;
procedure TEditorKeymappingOptionsFrame.KeyMapSplitterMoved(Sender: TObject);
begin
TreeView.Update;
ConflictsTreeView.Update;
end;
procedure TEditorKeymappingOptionsFrame.OnIdle(Sender: TObject;
var Done: Boolean);
begin