diff --git a/src/ce_editor.lfm b/src/ce_editor.lfm index e4a52d29..7fb439db 100644 --- a/src/ce_editor.lfm +++ b/src/ce_editor.lfm @@ -96,5 +96,13 @@ inherited CEEditorWidget: TCEEditorWidget ShortCut = 24614 OnClick = mnuedJum2DeclClick end + object mnuedCallTip: TMenuItem + Caption = 'show call tips' + OnClick = mnuedCallTipClick + end + object mnuedDdoc: TMenuItem + Caption = 'show ddoc' + OnClick = mnuedDdocClick + end end end diff --git a/src/ce_editor.pas b/src/ce_editor.pas index ac781979..c06cdd89 100644 --- a/src/ce_editor.pas +++ b/src/ce_editor.pas @@ -23,6 +23,8 @@ type { TCEEditorWidget } TCEEditorWidget = class(TCEWidget, ICEMultiDocObserver, ICEMultiDocHandler) + mnuedCallTip: TMenuItem; + mnuedDdoc: TMenuItem; mnuedCopy: TMenuItem; mnuedCut: TMenuItem; mnuedPaste: TMenuItem; @@ -35,8 +37,10 @@ type macRecorder: TSynMacroRecorder; editorStatus: TStatusBar; mnuEditor: TPopupMenu; + procedure mnuedCallTipClick(Sender: TObject); procedure mnuedCopyClick(Sender: TObject); procedure mnuedCutClick(Sender: TObject); + procedure mnuedDdocClick(Sender: TObject); procedure mnuEditorPopup(Sender: TObject); procedure mnuedPasteClick(Sender: TObject); procedure mnuedUndoClick(Sender: TObject); @@ -447,12 +451,28 @@ begin fDoc.ExecuteCommand(ecCopy, '', nil); end; +procedure TCEEditorWidget.mnuedCallTipClick(Sender: TObject); +begin + if fDoc = nil then exit; + mnuEditor.Close; + fDoc.hideDDocs; + fDoc.showCallTips; +end; + procedure TCEEditorWidget.mnuedCutClick(Sender: TObject); begin if fDoc = nil then exit; fDoc.ExecuteCommand(ecCut, '', nil); end; +procedure TCEEditorWidget.mnuedDdocClick(Sender: TObject); +begin + if fDoc = nil then exit; + mnuEditor.Close; + fDoc.hideCallTips; + fDoc.showDDocs; +end; + procedure TCEEditorWidget.mnuedPasteClick(Sender: TObject); begin if fDoc = nil then exit;