Toggle Control UDF

[Andreik]

Here is a small UDF to create simple toggle buttons. I made this for one of my projects but I decided to make it available for those who might find it useful for their projects. It has no other dependencies except GDI+. Basically call _GDIPlus_Startup() before using any other function from this UDF and _GDIPlus_Shutdown() after you properly deleted all controls created with this UDF. Colors and sizes are customizable and there is a picture control that is associated with each toggle button so you can use other AutoIt functions with these buttons, like GUICtrlSetCursor(), GUICtrlSetTip(), etc.

Here is a simple example:

expandcollapse popup

#include <ToggleButton.au3>

_GDIPlus_Startup()

$mAdminOn = GUICtrlToggle_CreateTheme(0xFF2C6E49, 0x30B5C99A, 0xFFB5C99A, 5, 2)
$mAdminOff = GUICtrlToggle_CreateTheme(0xFF800F2F, 0x30F45B69, 0xFFF45B69, 5, 2)

$hMain = GUICreate('Toggle Button UDF', 300, 200)
GUICtrlCreateLabel('Admin mode', 10, 10, 80, 25, 0x200) ; SS_CENTERIMAGE
GUICtrlSetFont(-1, 10, 500, 0, 'Segoe UI')
$mHToggle = GUICtrlCreateToggle($hMain, 90, 10, 50, 25)
GUICtrlSetTip(GUICtrlToggle_CtrlID($mHToggle), 'Click me')
GUICtrlToggle_SetTheme($mHToggle, $mAdminOff)
$mVToggle = GUICtrlCreateToggle($hMain, 200, 20, 40, 170, $TOGGLE_VERTICAL)
GUICtrlSetTip(GUICtrlToggle_CtrlID($mVToggle), 'Click me multiple times')
GUISetState()

While True
    Switch GUIGetMsg()
        Case $mHToggle['ID']
            ToggleState($mHToggle)
            If GUICtrlToggle_State($mHToggle) Then
                GUICtrlToggle_SetTheme($mHToggle, $mAdminOn)
            Else
                GUICtrlToggle_SetTheme($mHToggle, $mAdminOff)
            EndIf
        Case $mVToggle['ID']
            ToggleState($mVToggle)
            $iSwitchSize = GUICtrlToggle_SwitchSize($mVToggle)
            $iSwitchSize += 1
            If $iSwitchSize > 10 Then $iSwitchSize = 3
            GUICtrlToggle_SwitchSize($mVToggle, $iSwitchSize)
            GUICtrlToggle_SwitchColor($mVToggle, 0xFF000000 + Random(0, 0xFFFFFF, 1))
        Case -3 ; GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd

GUICtrlDeleteToggle($mVToggle)
GUICtrlDeleteToggle($mHToggle)
_GDIPlus_Shutdown()

Enjoy!

Edit: added a little bit of code to detect the background color of the parent window, if it's not provided.

 

ToggleButton.au3

Edited February 19 by Andreik

[water]

Added to the wiki 🙂