Что нового

[Элементы GUI] Оформление элемента - GUICtrlCreateButton

Mancoffee

Свет проталкивает тьму ...
Сообщения
86
Репутация
1
Если подставляю картинку, то она становится поверх текста и выходить за рамки самой кнопки. Как более гибко управлять оформлением? То есть, как сделать прозрачность, размер, скругление, при наведении и прочее?

Код:
#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1) ;
$ctrlcon = GUICreate("Control Connections", 507, 107, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
$DisLan = GUICtrlCreateButton("Disable Lan", 0, 0, 121, 105, $BS_DEFPUSHBUTTON + $BS_BITMAP)
GUICtrlSetImage(-1, "DisLan.bmp", 0)
GUICtrlSetOnEvent($DisLan, "DisLan")
$EnLan = GUICtrlCreateButton("Enable Lan", 128, 0, 121, 105, $BS_BITMAP)
GUICtrlSetImage(-1, "EnLan.bmp")
GUICtrlSetOnEvent($EnLan, "EnLan")
$DisWF = GUICtrlCreateButton("Disable Wi-Fi", 256, 0, 121, 105)
GUICtrlSetImage(-1, "DisWF.bmp")
GUICtrlSetOnEvent($DisWF, "DisWF")
$EnWF = GUICtrlCreateButton("Enable Wi-Fi", 384, 0, 121, 105)
GUICtrlSetImage(-1, "EnWF.bmp")
GUICtrlSetOnEvent($EnWF, "EnWF")

GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Func DisLan()
	RunWait(@ScriptDir & '\devcon.exe disable @PCI\VEN_1969&DEV_1062*', '', @SW_HIDE)
EndFunc
Func EnLan()
	RunWait(@ScriptDir & '\devcon.exe enable @PCI\VEN_1969&DEV_1062*', '', @SW_HIDE)
EndFunc
Func DisWF()
	RunWait(@ScriptDir & '\devcon.exe disable @PCI\VEN_168C&DEV_002B*', '', @SW_HIDE)
EndFunc
Func EnWF()
	RunWait(@ScriptDir & '\devcon.exe enable @PCI\VEN_168C&DEV_002B*', '', @SW_HIDE)
EndFunc
Func Close()
	Exit
EndFunc
 
Верх