代码区右键菜单项源码 易语言助手插件工具

代码区右键菜单项源码 易语言助手插件工具这是很苦恼的问题所以写了个插件用于管理自己不想显示的菜单项便于观看。

' ET.输出文本 (“事件_插件启用”, 真)
集_LoadMenu管理 ＝ 接口_获取LoadMenu管理 ()
集_LoadMenu管理.添加调用后处理 (&回调_LoadMenu调用后)
' 添加菜单加载的动作监控
接口_添加主窗口消息调用前处理 (&主窗口消息处理)
' 刷新配置 ()

集_LoadMenu管理.取返回值 (局_菜单_句柄, ) ' 菜单加载后获取菜单的句柄
.判断开始 (lpMenuName ＝ 236) ' 判断当前弹出菜单的代码编辑框是什么类型的
局_子菜单_句柄 ＝ GetSubMenu (局_菜单_句柄, 0) ' 获取第一个菜单的句柄
' DeleteMenu (局_子菜单_句柄, 16, 1024) 删除菜单项目
局_菜单数量 ＝ GetMenuItemCount (局_子菜单_句柄) ' ‘获取菜单数量
' ET.输出文本 (“菜单数量：” ＋ 到文本 (局_菜单数量), )
_选择性粘贴 ＝ ET.读配置 (“选择性粘贴”, “假”)
__全选 ＝ ET.读配置 (“全选”, “假”)
_插入新行 ＝ ET.读配置 (“插入新行”, “假”)
_编译当前行 ＝ ET.读配置 (“编译当前行”, “假”)
_插入判断分支 ＝ ET.读配置 (“插入判断分支”, “假”)
_加到当前块首尾 ＝ ET.读配置 (“加到当前块首尾”, “假”)
清除数组 (文本数组)
.如果真 (_选择性粘贴 ＝ “真”)
' ET.输出文本 (“_选择性粘贴 输出真”, )
加入成员 (文本数组, #常量_选择性粘贴)
.如果真结束
.如果真 (__全选 ＝ “真”)
' ET.输出文本 (“__全选 输出真”, )
加入成员 (文本数组, #常量_全选)
.如果真结束
.如果真 (_插入新行 ＝ “真”)
' ET.输出文本 (“_插入新行 输出真”, )
加入成员 (文本数组, #常量_插入新行)
.如果真结束
.如果真 (_编译当前行 ＝ “真”)
' ET.输出文本 (“_编译当前行 输出真”, )
加入成员 (文本数组, #常量_编译当前行)
.如果真结束
.如果真 (_插入判断分支 ＝ “真”)
' ET.输出文本 (“_插入判断分支 输出真”, )
加入成员 (文本数组, #常量_插入判断分支)
.如果真结束
.如果真 (_加到当前块首尾 ＝ “真”)
' ET.输出文本 (“_加到当前块首尾 输出真”, )
加入成员 (文本数组, #常量_加到当前块首尾)
.如果真结束
.计次循环首 (局_菜单数量, i)
文本 ＝ 取空白文本 (255)
GetMenuStringA (局_子菜单_句柄, i － 1, 文本, 255, 1024)
' ET.输出文本 (文本, )
.计次循环首 (取数组成员数 (文本数组), j)
.如果真 (文本 ＝ 文本数组 [j])
' ET.输出文本 (“待屏蔽的项目:” ＋ 文本 ＋ “ 位置为：” ＋ 到文本 (i － 1), )
加入成员 (位置, i － 1)
跳出循环 ()
.如果真结束

.计次循环尾 ()
' ET.输出文本 (“菜单名称：” ＋ 到文本 (文本), )
.计次循环尾 ()
.计次循环首 (取数组成员数 (位置), i)
DeleteMenu (局_子菜单_句柄, 位置 [取数组成员数 (位置)], 1024)
删除成员 (位置, 取数组成员数 (位置), 1)
.计次循环尾 ()
' InsertMenuA (局_菜单_句柄, 0, 位或 (#MF_BYPOSITION, #MF_STRING), 194348, “收藏选中组件”) ’‘添加一个菜单项