Gio710 > 2026-04-01 02:57
i := 0
TestMenu := Menu()
SeparatorBeforeLabel := true
SeparatorAfterLabel := true
i := i + 1
MenuName := "&" i " menu item A"
TestMenu.Add MenuName, menuhandler1
if SeparatorBeforeLabel
TestMenu.Add() ; Add separator before label
MenuLabel := "Menu label"
TestMenu.Add MenuLabel, DoNothingmenuhandlerForMenuLabels
TestMenu.Disable MenuLabel
if SeparatorAfterLabel
TestMenu.Add() ; Add separator after label
i := i + 1
MenuName := "&" i " menu item B"
TestMenu.Add MenuName, menuhandler1
i := i + 1
MenuName := "&" i " menu item C"
TestMenu.Add MenuName, menuhandler1
TestMenu.Show()
menuhandler1(ItemName, *) {
MsgBox("You clicked: " ItemName, "Menu Handler", 0x1000)
}
DoNothingmenuhandlerForMenuLabels(ItemName, *) {
}Jean Lalonde > 2026-04-05 09:09