My Widget Program

[ConsultingJoe]

HOW TO USE: put your mouse in the bottom right corner to get the widgets, do this again to hide them. toggle F2 to move them.

Sorry I only have one. I just have to add some sample widgets. use this and make your own.

Features:

• Drag and Drop
• Mouse to the corner to activate
• Transparent
• Easy add/remove (Not yet)

Widgets:

• Text message
• Email message
• CPU usage
• HD strorage

Check this again tonight around 8PM Central

widget.zip

Edited November 15, 2006 by zerocool60544

[ConsultingJoe]

let me know what you think of the operation of it?

Thanks

[RazerM]

I like the concept. To prevent flicker, check to see whether the cpu has changed before updating the progress

Also, i think 200 is a better transparency, you should make it changeable.

expandcollapse popup

#include <GUIConstants.au3>
#include "DragControls.au3"

Local $gui, $menu_Config, $overlay, $label
Local $Usage, $Usage1
$on = False
$drag = False
$gui = 0
$emailsend = 0
Local $oldCpu = -1
While 1
    If $on Then
        $cpu = MemGetStats()
        If $cpu[0] <> $oldCpu Then
            GUICtrlSetData($Usage, $cpu[0])
            $oldCpu = $cpu[0]
        EndIf
        $msg = GUIGetMsg(1)
        Select
            Case $msg[0] = $overlay And $drag = True
                _InitDrag ($gui, $overlay)
            Case $drag = True
                _DragItem ($gui, $overlay, True)
        EndSelect
    EndIf
    $pos = MouseGetPos()
    If $pos[0] + 5 > @DesktopWidth And $pos[1] + 5 > @DesktopHeight Then
        Gui()
        Sleep(300)
    EndIf
    ;Sleep(50)
WEnd

Func Move()
    If $drag = True Then
        $drag = False
        GUICtrlSetData($label, "Arrange is OFF, Press F2 to toggle")
    Else
        $drag = True
        GUICtrlSetData($label, "Arrange is ON, Press F2 to toggle")
    EndIf
    ConsoleWrite("Drag = " & $drag & @CRLF)
EndFunc   ;==>Move

Func Gui()
    If $on = False Then
        $on = True
        HotKeySet("{F2}", "Move")
        $gui = GUICreate("BG", @DesktopWidth + 5, @DesktopHeight + 5)
        GUISetBkColor(0x111111)
        ;GUISetFont(10, 800, 0, "MS Sans Serif")
        $overlay = _CreateDragControls ()
        $label = GUICtrlCreateLabel("Arrange is OFF, Press F2 to toggle", 8, 8, 182, 24)
        GUICtrlSetColor(-1, 0xFF0000)
        $Usage = GUICtrlCreateProgress(112, 104, 389, 10, 0)
        $Usage1 = GUICtrlCreateLabel("CPU USAGE", 112, 72, 91, 20)
        GUICtrlSetFont(-1, 12)
        GUICtrlSetColor(-1, 0xFF0000)
        WinSetOnTop("BG", "", 1)
        WinSetTrans("BG", "", 200)
        GUISetState()
    Else
        $on = False
        $drag = False
        HotKeySet("{F2}")
        GUIDelete($gui)
    EndIf
    ConsoleWrite("On = " & $on & @CRLF)
EndFunc   ;==>Gui

Func CPU()
    
EndFunc   ;==>CPU

[Achilles]

let me know what you think of the operation of it?

Thanks

Nice, but two things, I think you should add a hotkey to bring up the screen and also add more widgets! But anyways, nice program

[spyrorocks]

try putting a box around the widgets.

[ConsultingJoe]

Nice, but two things, I think you should add a hotkey to bring up the screen and also add more widgets! But anyways, nice program

Thanks. i could add that but I wanted it to be like the Mac widgets. how you get to thiers.

[jvanegmond]

I am completely confused by how it works. If you tell how to operate this, I will probably be abled to but right now this really really confuses me. Can't this just be a standard toolbar?

[Achilles]

I am completely confused by how it works. If you tell how to operate this, I will probably be abled to but right now this really really confuses me. Can't this just be a standard toolbar?

As to how you bring up the screen, put your mouse at the very bottom right pixel (or at least really close to that)... besides that I think it's pretty simple and cool!

[Thatsgreat2345]

i think u should make it like mac where u have to press f12 to show it

[jvanegmond]

As to how you bring up the screen, put your mouse at the very bottom right pixel (or at least really close to that)... besides that I think it's pretty simple and cool!

I know, but how do I close it not using the Ctrl+Alt+Del keys?

[nitekram]

I know, but how do I close it not using the Ctrl+Alt+Del keys?

The only way I have been able to close is it to hover your mouse over the bottom right and then when the screen turns normal - slide you mouse to the autoit icon and right click and close.

Unless I am mistaken on this - I do not see the CPU (usage?) and I am not sure what the F2 does.

[Thatsgreat2345]

cpu usage is the bar

[nitekram]

cpu usage is the bar

I see that in the example pic - but on my computer the script starts, my screen turns dark and then I see two things in the upper left corner (F2 and CPU) but I do not see the bar that is in pic. THEN my screen turns light and then dark again - it continues until I close the script - I can do nothing (mouse clicks...) when the screen is dark (anything darker than the default screen brightness)