Jump to content

Sticky your desktop


testingtest
 Share

Recommended Posts

heres a cute script

#include <GUIConstants.au3>
#include <Misc.au3>
HotKeySet("{F2}" , "_Stickey")
Global $Name , $Text , $Trans 
$GUI = GUICreate("Stickey", 413, 302, 303, 219)
$Text = GUICtrlCreateEdit("", 0, 0, 409, 273)
GUICtrlSetData(-1, StringFormat("Type a reminder here\r\n\r\nNote when finished hit F2"))
$Name = GUICtrlCreateInput("name for the reminder", 0, 280, 121, 21)
$Trans = GUICtrlCreateInput("150", 128, 280, 121, 21)
$Label1 = GUICtrlCreateLabel("set the transparenty", 256, 280, 97, 17)
GUISetState(@SW_SHOW)

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

Func _Stickey()

$Msg = MsgBox(4,"","Are you sure you want the stickey to say this...")
Select
    Case $Msg = 6 ;Yes
        GUISetState(@SW_HIDE)
        MsgBox(0 , "" , "Choose the background colour")
        $color = _ChooseColor (2, 0xFF0000, 2)
        MsgBox(0 , "" , "Choose the text colour")
        $color2 = _ChooseColor (2, 0xFF0000, 2)
        $Stickey = GUICreate(GUICtrlRead($Name) , 250 , 250)
        GUISetBkColor($color)
        GUICtrlCreateLabel(GUICtrlRead($Text), 0, 0, 250, 250)
        GUICtrlSetColor(-1, $color2)
        WinSetTrans($Stickey , "" , GUICtrlRead($Trans))
        GUISetState(@SW_SHOW)
        GUIDelete($GUI)
        While 1
            $nMsg = GUIGetMsg()
            Switch $nMsg
                Case $GUI_EVENT_CLOSE
            Exit
        EndSwitch
        WEnd
        EndSelect
    EndFunc

only problem is how do you hide it from task bar

Link to comment
Share on other sites

Maybe....

#include <GUIConstants.au3>
#include <Misc.au3>
#NoTrayIcon
HotKeySet("{F2}", "_Stickey")
Global $Name, $Text, $Trans
$Dummy = GUICreate("")
$GUI = GUICreate("Stickey", 413, 302, 303, 219, -1, -1, $Dummy)
$Text = GUICtrlCreateEdit("", 0, 0, 409, 273)
GUICtrlSetData(-1, StringFormat("Type a reminder here\r\n\r\nNote when finished hit F2"))
$Name = GUICtrlCreateInput("name for the reminder", 0, 280, 121, 21)
$Trans = GUICtrlCreateInput("150", 128, 280, 121, 21)
$Label1 = GUICtrlCreateLabel("set the transparenty", 256, 280, 97, 17)
GUISetState(@SW_SHOW)

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

Func _Stickey()

    $Msg = MsgBox(4, "", "Are you sure you want the stickey to say this...")
    Select
        Case $Msg = 6 ;Yes
            GUISetState(@SW_HIDE)
            MsgBox(0, "", "Choose the background colour")
            $color = _ChooseColor(2, 0xFF0000, 2)
            MsgBox(0, "", "Choose the text colour")
            $color2 = _ChooseColor(2, 0xFF0000, 2)
            $Stickey = GUICreate(GUICtrlRead($Name), 250, 250, -1, -1, -1, -1, $Dummy)
            GUISetBkColor($color)
            GUICtrlCreateLabel(GUICtrlRead($Text), 0, 0, 250, 250)
            GUICtrlSetColor(-1, $color2)
            WinSetTrans($Stickey, "", GUICtrlRead($Trans))
            GUISetState(@SW_SHOW)
            GUIDelete($GUI)
            While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                    Case $GUI_EVENT_CLOSE
                        Exit
                EndSwitch
            WEnd
    EndSelect
EndFunc   ;==>_Stickey

8)

NEWHeader1.png

Link to comment
Share on other sites

Maybe....

#include <GUIConstants.au3>
#include <Misc.au3>
#NoTrayIcon
HotKeySet("{F2}", "_Stickey")
Global $Name, $Text, $Trans
$Dummy = GUICreate("")
$GUI = GUICreate("Stickey", 413, 302, 303, 219, -1, -1, $Dummy)
$Text = GUICtrlCreateEdit("", 0, 0, 409, 273)
GUICtrlSetData(-1, StringFormat("Type a reminder here\r\n\r\nNote when finished hit F2"))
$Name = GUICtrlCreateInput("name for the reminder", 0, 280, 121, 21)
$Trans = GUICtrlCreateInput("150", 128, 280, 121, 21)
$Label1 = GUICtrlCreateLabel("set the transparenty", 256, 280, 97, 17)
GUISetState(@SW_SHOW)

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

Func _Stickey()

    $Msg = MsgBox(4, "", "Are you sure you want the stickey to say this...")
    Select
        Case $Msg = 6 ;Yes
            GUISetState(@SW_HIDE)
            MsgBox(0, "", "Choose the background colour")
            $color = _ChooseColor(2, 0xFF0000, 2)
            MsgBox(0, "", "Choose the text colour")
            $color2 = _ChooseColor(2, 0xFF0000, 2)
            $Stickey = GUICreate(GUICtrlRead($Name), 250, 250, -1, -1, -1, -1, $Dummy)
            GUISetBkColor($color)
            GUICtrlCreateLabel(GUICtrlRead($Text), 0, 0, 250, 250)
            GUICtrlSetColor(-1, $color2)
            WinSetTrans($Stickey, "", GUICtrlRead($Trans))
            GUISetState(@SW_SHOW)
            GUIDelete($GUI)
            While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                    Case $GUI_EVENT_CLOSE
                        Exit
                EndSwitch
            WEnd
    EndSelect
EndFunc   ;==>_Stickey

8)

wow thanks val , but how does it do it with --> $Dummy or was that for me :whistle:

[edited] just say I want more on my desktop would the title and transparent be the same for every window ... illl check

Edited by testingtest
Link to comment
Share on other sites

heres a cute script

only problem is how do you hide it from task bar

Nice and useful.

EDIT:

To make it so that your taskbar won't see it do this:

GuiCreate('', -1, -1, -1, -1, '', $WS_EX_TOOLWINDOW)

The "toolwindow" part makes so that you can't see it, but it also changes the layout a little bit.

Edited by Piano_Man
My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...