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

IDE: Show icons in the tree of key mapping options. Issue #35923. Patch from FTurtle.

Browse Source 
git-svn-id: trunk@61855 -
This commit is contained in:
juha 2019-09-10 21:51:55 +00:00
parent 83e546aa9f
commit b6ea318732
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/frames/editor_keymapping_options.pas
View File

@ -432,6 +432,18 @@ begin
Result := TEditorOptions;
end;
function GetIDECommandImageIndex(AKeyRelation: TKeyCommandRelation): Integer;
var
IDECommand: TIDECommand;
begin
IDECommand:=IDECommandList.FindIDECommand(AKeyRelation.Command);
if IDECommand.UserCount=0 then
Exit(imgKeyItem);
Result:=IDECommand.Users[0].ImageIndex;
if Result=-1 then
Result:=imgKeyItem;
end;
procedure TEditorKeymappingOptionsFrame.FillKeyMappingTreeView;
var
i, j: Integer;
@ -472,7 +484,7 @@ begin
end
else
NewKeyNode := Items.AddChildObject(NewCategoryNode,ItemCaption, CurKeyRelation);
NewKeyNode.ImageIndex := imgKeyItem;
NewKeyNode.ImageIndex := GetIDECommandImageIndex(CurKeyRelation);
NewKeyNode.SelectedIndex := NewKeyNode.ImageIndex;
inc(ChildNodeIndex);
end;