' ShowMenuLRTB.vbs
With WScript
Cnt = .Arguments.Count
If Cnt > 0 Then
Poz = .Arguments(0)
If Cnt > 1 Then Name = .Arguments(1)
End If
End With
lpRect = AkelPad.MemAlloc(16)
If lpRect > 0 Then
If AkelPad.SystemFunction().Call("user32::GetWindowRect", AkelPad.GetEditWnd(), lpRect) Then
pRect = CLng(lpRect)
LRect = AkelPad.MemRead(pRect, 3)
TRect = AkelPad.MemRead(pRect + 4, 3)
RRect = AkelPad.MemRead(pRect + 8, 3)
BRect = AkelPad.MemRead(pRect + 12, 3)
End If
End If
Select Case Poz
Case 1 X = LRect : Y = TRect
' Case 2
' Case 3
' Case 4
End Select
X = Chr(34) & X & Chr(34)
Y = Chr(34) & Y & Chr(34)
Call AkelPad.Call("ContextMenu::Show", 1, X, Y, , Name)
Добавлено: возможность отображения меню ContextMenu::Show в:
- левом верхнем углу окна редактирования;
- правом верхнем угла окна редактирования;
- правом нижнем угла окна редактирования;
- левом нижнем угла окна редактирования;
- позиции под кареткой окна редактирования.
Added: possibility to display ContextMenu::Show menu in the:
- top-left corner of the edit window;
- top-right corner of the edit window;
- right-bottom corner of the edit window;
- left-bottom corner of the edit window;
- position under the caret of the editing window.
Instructor
Спасибо Вам за грандиознейшую работу и отзывчивость к пользователям! Отличное отношение - так держать!
Есть ещё одно наблюдение...
Можно ли избежать дублирования групп команд, дабы ContextMenu.ini не распухало.
Так получается что одни и те же куски повторяются и в
- Главном меню
- Меню окна редактирования
- Меню вкладок
...
если хочешь на тулбаре, то приходится прописывать группу и в
"... MENU ..."
{
группа команд
}
Конечно кто-то стремиться, чтобы избегать повторений, но у меня активность работы и желание не терять время не позволяет этого
Более того, если в группу добавляешь ещё команды, то это надо делать и в других менюшках...
Может можно что-нибудь придумать присваивать группе команд какой-нибудь номер/спец.имя/.. , чтобы его можно было использовать везде
Posted: Sun Aug 26, 2012 10:17 am
by Lenchik
Andrey_A_A
Поддерживаю (если я правильно понял смысл).
У меня дублированы некоторые еоманды в главном меню и в контекстном (выбор синтаксических тем и тем подсветки). Хотелось бы их редактировать в одном мести и как дополнительный вариант чтобы и по кнопке в тулбаре то же выпадало (пусть даже и с ограничениями на наличие иконок перед текстом).