Small led (on/off) in my Gui

[myspacee]

Hello to all,

Try to script little screen on desktop keyboard, and search a nice effect to put

a 'led' on my gui that alert user that caps lock is on or off.

Anyone want to suggest me a nice way to do this without use external graphics ? (jpg, gif, etc.)

thank you,

m.

[Aceguy]

create a square label, diable it, and use guictrlsetbkcolor()

[Negative1]

This should get you started on your way.

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

GUICreate("Keyboard",100,100)
Opt("GUICoordMode",2)
Opt("GUIOnEventMode", 1)
$Capslock= guictrlcreatelabel("CAPSLOCK",1,-1,100,50,bitor($SS_CENTERIMAGE, $SS_CENTER))
$Numlock= guictrlcreatelabel("Numlock",-1,1,100,50,bitor($SS_CENTERIMAGE, $SS_CENTER))
GUICtrlSetBkColor($Capslock,0xFF0000);set red

GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUICtrlSetOnEvent($Capslock,"Capslock")
GUICtrlSetOnEvent($Numlock,"Numlock")
GUISetState()

while 1
    sleep(50)
WEnd

Func Close()
    Exit
EndFunc

Func Capslock()
    GUICtrlSetBkColor($Capslock,0x00FF00)
EndFunc

Func Numlock()
    GUICtrlSetBkColor($Numlock,0x00FF00)
EndFunc

[muncherw]

Almost anyone could do this better than me but it looked like a fun exercise and this is what I came up with.

expandcollapse popup

</P><P>#include <GUIConstantsEx.au3>
Global Const $VK_CAPITAL = 0x14
Global $ret
Global $circle
Local $msg

Func _GetCaps()
 $ret = DllCall("user32.dll", "long", "GetKeyState", "long", $VK_CAPITAL)
 Return $ret[0]
EndFunc  ;==>_GetCaps

$ret = _GetCaps()
$dll = DllOpen("user32.dll")

GUICreate("Caps Lock Status", 150, 75, 100, 100)
GUICtrlCreateLabel("Caps Lock", 8, 30, 60, 15)
$circle = GUICtrlCreateGraphic(60, 20, 10, 10)
GUISetState()


While $msg <> $GUI_EVENT_CLOSE
 Sleep(50)
 $ret = _GetCaps()
 If $ret = 0 Then; CAPS are OFF
    GUICtrlDelete($circle)
    $circle = GUICtrlCreateGraphic(60, 20, 10, 10)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0, 0xFF0000)
    GUICtrlSetGraphic(-1, $GUI_GR_ELLIPSE, 8, 8, 20, 20)
    GUICtrlSetGraphic($circle, $GUI_GR_REFRESH)

 ElseIf $ret = 1 Then; CAPS are ON
    GUICtrlDelete($circle)
    $circle = GUICtrlCreateGraphic(60, 20, 10, 10)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0, 0x00FF00)
    GUICtrlSetGraphic(-1, $GUI_GR_ELLIPSE, 8, 8, 20, 20)
    GUICtrlSetGraphic($circle, $GUI_GR_REFRESH)
 EndIf
 
 $msg = GUIGetMsg()
WEnd
DllClose($dll)