Подскажите есть ли способ уменьшить ширину пунктов в контекстном меню?
Отвечаю сам себе - немного можно уменьшить слева
_GUICtrlMenu_SetMenuStyle($hMenu,$MNS_NOCHECK)
Код:
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GuiMenu.au3>
Example1()
Func Example1()
Local $contextmenu, $button, $buttoncontext, $buttonitem, $msg
Local $newsubmenu, $textitem, $fileitem, $saveitem, $infoitem
; правый клик на gui выводит контекстное меню.
; правый клик на кнопке "ok" выводит контекстное меню кнопки.
GUICreate("Моё контекстное меню в GUI", 350, 200)
$contextmenu = GUICtrlCreateContextMenu()
$hMenu=GUICtrlGetHandle($contextmenu)
$button = GUICtrlCreateButton("OK", 100, 100, 70, 20)
$buttoncontext = GUICtrlCreateContextMenu($button)
$hMenu2=GUICtrlGetHandle($buttoncontext)
$A = GUICtrlCreateMenuItem("A", $buttoncontext)
$B = GUICtrlCreateMenuItem("B", $buttoncontext)
$C = GUICtrlCreateMenuItem("C", $buttoncontext)
$D = GUICtrlCreateMenuItem("D", $buttoncontext)
$E = GUICtrlCreateMenuItem("E", $buttoncontext)
_GUICtrlMenu_SetItemType($hMenu2,$E,$MFT_MENUBARBREAK,False)
$F = GUICtrlCreateMenuItem("F", $buttoncontext)
$G = GUICtrlCreateMenuItem("G", $buttoncontext)
$H = GUICtrlCreateMenuItem("H", $buttoncontext)
$1 = GUICtrlCreateMenuItem("1", $contextmenu)
$2 = GUICtrlCreateMenuItem("2", $contextmenu)
$3 = GUICtrlCreateMenuItem("3", $contextmenu)
$4 = GUICtrlCreateMenuItem("4", $contextmenu)
$5 = GUICtrlCreateMenuItem("5", $contextmenu)
_GUICtrlMenu_SetItemType($hMenu,$5,$MFT_MENUBREAK,False)
$6 = GUICtrlCreateMenuItem("6", $contextmenu)
$7 = GUICtrlCreateMenuItem("7", $contextmenu)
$8 = GUICtrlCreateMenuItem("8", $contextmenu)
GUISetState()
While 1
If GUIGetMsg() = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
GUIDelete()
EndFunc
Сообщение автоматически объединено:
Отвечаю сам себе - немного можно уменьшить слева
_GUICtrlMenu_SetMenuStyle($hMenu,$MNS_NOCHECK)
Последнее редактирование: