ViSiToR
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
gregaz 17:20 04-06-2008
Цитата:| Можно ли установить кнопки на одной линии с пунктами МЕНЮ |
Как стандартную кнопку не думаю, можно пункт меню использовать как кнопку...
Код:
GUICreate("_GUICtrlCreateMenuItemEx", 200, 100)
$hMenu = GUICtrlCreateMenu("File")
$ExitItem = GUICtrlCreateMenuItem("Exit", $hMenu)
GUICtrlCreateMenuItem(" ", -1)
$MenuItem = _GUICtrlCreateMenuItemEx("Button", -1)
GUISetState()
While 1
Switch GUIGetMsg()
Case -3, $ExitItem
Exit
Case $MenuItem
MsgBox(0, "", "Menu Button Pressed")
EndSwitch
WEnd
Func _GUICtrlCreateMenuItemEx($sText, $iMenuID, $iMenuEntry=-1, $iMenuRadioItem=0)
Local $iAutoItVersion_Check = StringReplace(@AutoItVersion, ".", "") < 32120
If Not $iAutoItVersion_Check Then
Local $nDummyMenu = GUICtrlCreateMenu("")
Local $nDummyMenuItem = GUICtrlCreateMenuItem("", $nDummyMenu)
EndIf
Local $nMenuItem = GUICtrlCreateMenuItem($sText, $iMenuID, $iMenuEntry, $iMenuRadioItem)
If $iAutoItVersion_Check Then Return $nMenuItem
GUICtrlDelete($nDummyMenu)
GUICtrlDelete($nDummyMenuItem)
Return $nMenuItem
EndFunc |
UDF это для обхода бага(?) в последней версии.
----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни! |
|
