paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 10:00:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: keymap options: popup menu for conflicts

Browse Source 
git-svn-id: trunk@41175 -
This commit is contained in:
mattias 2013-05-13 14:43:39 +00:00
parent 558eb5e72e
commit b37b5dd406
2 changed files with 31 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/frames/editor_keymapping_options.lfm
View File

@ -87,6 +87,7 @@ object EditorKeymappingOptionsFrame: TEditorKeymappingOptionsFrame
Anchors = [akTop, akLeft, akRight, akBottom]
BorderWidth = 1
DefaultItemHeight = 18
PopupMenu = PopupMenu1
ReadOnly = True
RightClickSelect = True
RowSelect = True

37
ide/frames/editor_keymapping_options.pas
View File

@ -80,6 +80,7 @@ type
procedure EditConflict(ANode: TTreeNode);
procedure EditCommandRelation(ARelation: TKeyCommandRelation);
procedure ClearCommandMapping(ANode: TTreeNode);
procedure ClearConflict(ANode: TTreeNode);
procedure ClearCommandRelation(ARelation: TKeyCommandRelation);
function KeyMappingRelationToCaption(Index: Integer): String;
function KeyMappingRelationToCaption(KeyRelation: TKeyCommandRelation): String;
@ -211,12 +212,12 @@ end;
procedure TEditorKeymappingOptionsFrame.EditButtonClick(Sender: TObject);
begin
EditCommandMapping(TreeView.Selected);
EditCommandMapping(TreeView.Selected)
end;
procedure TEditorKeymappingOptionsFrame.ClearButtonClick(Sender: TObject);
begin
ClearCommandMapping(TreeView.Selected);
ClearCommandMapping(TreeView.Selected)
end;
function TEditorKeymappingOptionsFrame.FilterEditFilterItem(Item: TObject; out Done: Boolean): Boolean;
@ -300,20 +301,33 @@ procedure TEditorKeymappingOptionsFrame.PopupMenu1Popup(Sender: TObject);
var
ANode: TTreeNode;
begin
ANode := TreeView.Selected;
EditMenuItem.Enabled:=
(ANode<>nil) and (ANode.Data<>nil) and (TObject(ANode.Data) is TKeyCommandRelation);
if Sender=TreeView then begin
ANode := TreeView.Selected;
EditMenuItem.Enabled:=
(ANode<>nil) and (ANode.Data<>nil) and (TObject(ANode.Data) is TKeyCommandRelation);
end else if Sender=ConflictsTreeView then begin
ANode:=ConflictsTreeView.Selected;
EditMenuItem.Enabled := (ANode<>nil) and (CaptionToKeyMappingRelation(ANode.Text)<>nil);
end else begin
EditMenuItem.Enabled := false;
end;
ClearMenuItem.Enabled := EditMenuItem.Enabled;
end;
procedure TEditorKeymappingOptionsFrame.EditMenuItemClick(Sender: TObject);
begin
EditCommandMapping(TreeView.Selected);
if PopupMenu1.PopupComponent=TreeView then
EditCommandMapping(TreeView.Selected)
else
EditConflict(ConflictsTreeView.Selected);
end;
procedure TEditorKeymappingOptionsFrame.ClearMenuItemClick(Sender: TObject);
begin
ClearCommandMapping(TreeView.Selected);
if PopupMenu1.PopupComponent=TreeView then
ClearCommandMapping(TreeView.Selected)
else
ClearConflict(ConflictsTreeView.Selected);
end;
procedure TEditorKeymappingOptionsFrame.ConflictsTreeViewMouseDown(
@ -676,6 +690,15 @@ begin
ClearCommandRelation(TKeyCommandRelation(ANode.Data));
end;
procedure TEditorKeymappingOptionsFrame.ClearConflict(ANode: TTreeNode);
var
ARelation: TKeyCommandRelation;
begin
if ANode=nil then exit;
ARelation:=CaptionToKeyMappingRelation(ANode.Text);
ClearCommandRelation(ARelation);
end;
procedure TEditorKeymappingOptionsFrame.ClearCommandRelation(
ARelation: TKeyCommandRelation);
var