Уменьшить ширину пунктов контекстного меню

[Andrey_A]

Подскажите есть ли способ уменьшить ширину пунктов в контекстном меню?

#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

Сообщение автоматически объединено: 10 Июн 2021

Отвечаю сам себе - немного можно уменьшить слева
_GUICtrlMenu_SetMenuStyle($hMenu,$MNS_NOCHECK)