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

IDE: key mapping: conflicts tree icons

Browse Source 
git-svn-id: trunk@41112 -
This commit is contained in:
mattias 2013-05-10 09:53:18 +00:00
parent 09e234e5dd
commit 8a4d5a3b7b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/frames/editor_keymapping_options.pas
View File

@ -348,6 +348,7 @@ begin
ClearMenuItem.Caption := lisClear;
TreeView.Images := IDEImages.Images_16;
ConflictsTreeView.Images := IDEImages.Images_16;
imgKeyCategory := IDEImages.LoadImage(16, 'item_keyboard');
imgKeyItem := IDEImages.LoadImage(16, 'item_character');
ChooseSchemeButton.LoadGlyphFromLazarusResource('item_keyboard'); // keymapcategory
@ -594,14 +595,16 @@ var
// conflict found
inc(ConflictCount);
ConflictNode:=ConflictsTreeView.Items.Add(nil,srkmConflic+IntToStr(ConflictCount));
ConflictNode.ImageIndex:=imgKeyItem;
ConflictNode.StateIndex:=imgKeyItem;
KeyNode:=ConflictsTreeView.Items.AddChild(ConflictNode,
KeyShortCutToCaption(Key1,ShortCut1));
KeyNode.ImageIndex := imgKeyItem;
KeyNode.SelectedIndex := KeyNode.ImageIndex;
KeyNode.SelectedIndex := imgKeyItem;
KeyNode:=ConflictsTreeView.Items.AddChild(ConflictNode,
KeyShortCutToCaption(Key2,ShortCut2));
KeyNode.ImageIndex := imgKeyItem;
KeyNode.SelectedIndex := KeyNode.ImageIndex;
KeyNode.SelectedIndex := imgKeyItem;
ConflictNode.Expanded:=true;
end;
end;