forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

editor ctxt menu, added actions to show manually call tips and ddocs

This commit is contained in:
Basile Burg 2015-10-17 00:21:03 +02:00
parent 1ef8dfc4f3
commit 22eb108f27
2 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_editor.lfm
View File

@ -96,5 +96,13 @@ inherited CEEditorWidget: TCEEditorWidget
ShortCut = 24614 ShortCut = 24614
OnClick = mnuedJum2DeclClick OnClick = mnuedJum2DeclClick
end end
object mnuedCallTip: TMenuItem
Caption = 'show call tips'
OnClick = mnuedCallTipClick
end
object mnuedDdoc: TMenuItem
Caption = 'show ddoc'
OnClick = mnuedDdocClick
end
end end
end end

20
src/ce_editor.pas
View File

@ -23,6 +23,8 @@ type
{ TCEEditorWidget } { TCEEditorWidget }
TCEEditorWidget = class(TCEWidget, ICEMultiDocObserver, ICEMultiDocHandler) TCEEditorWidget = class(TCEWidget, ICEMultiDocObserver, ICEMultiDocHandler)
mnuedCallTip: TMenuItem;
mnuedDdoc: TMenuItem;
mnuedCopy: TMenuItem; mnuedCopy: TMenuItem;
mnuedCut: TMenuItem; mnuedCut: TMenuItem;
mnuedPaste: TMenuItem; mnuedPaste: TMenuItem;
@ -35,8 +37,10 @@ type
macRecorder: TSynMacroRecorder; macRecorder: TSynMacroRecorder;
editorStatus: TStatusBar; editorStatus: TStatusBar;
mnuEditor: TPopupMenu; mnuEditor: TPopupMenu;
procedure mnuedCallTipClick(Sender: TObject);
procedure mnuedCopyClick(Sender: TObject); procedure mnuedCopyClick(Sender: TObject);
procedure mnuedCutClick(Sender: TObject); procedure mnuedCutClick(Sender: TObject);
procedure mnuedDdocClick(Sender: TObject);
procedure mnuEditorPopup(Sender: TObject); procedure mnuEditorPopup(Sender: TObject);
procedure mnuedPasteClick(Sender: TObject); procedure mnuedPasteClick(Sender: TObject);
procedure mnuedUndoClick(Sender: TObject); procedure mnuedUndoClick(Sender: TObject);
@ -447,12 +451,28 @@ begin
fDoc.ExecuteCommand(ecCopy, '', nil); fDoc.ExecuteCommand(ecCopy, '', nil);
end; end;
procedure TCEEditorWidget.mnuedCallTipClick(Sender: TObject);
begin
if fDoc = nil then exit;
mnuEditor.Close;
fDoc.hideDDocs;
fDoc.showCallTips;
end;
procedure TCEEditorWidget.mnuedCutClick(Sender: TObject); procedure TCEEditorWidget.mnuedCutClick(Sender: TObject);
begin begin
if fDoc = nil then exit; if fDoc = nil then exit;
fDoc.ExecuteCommand(ecCut, '', nil); fDoc.ExecuteCommand(ecCut, '', nil);
end; end;
procedure TCEEditorWidget.mnuedDdocClick(Sender: TObject);
begin
if fDoc = nil then exit;
mnuEditor.Close;
fDoc.hideCallTips;
fDoc.showDDocs;
end;
procedure TCEEditorWidget.mnuedPasteClick(Sender: TObject); procedure TCEEditorWidget.mnuedPasteClick(Sender: TObject);
begin begin
if fDoc = nil then exit; if fDoc = nil then exit;