Vista sidebar addons for XP

[ashley]

Vista sidebar addons for XP

Notepad *Updated 15/07/07*

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.2.0
 Author:         Ashley

 Script Function:
    A Vista Style Sidebar addon for xp

#ce ----------------------------------------------------------------------------
#include <Color.au3>
#include <GuiConstants.au3>
#NoTrayIcon

HotKeySet("^p", "PopUp")
HotKeySet("^h", "Hide")

$Style = "Vista style sidebar addons for XP"


$sGUI = GUICreate("Notes" & $Style, 225, 110, @DesktopWidth / 2 + 358, @DesktopHeight / 170, BitOR($WS_POPUP, $WS_EX_TOPMOST), $WS_EX_TOOLWINDOW)
$Edit = GUICtrlCreateEdit(" Press ESC to exit Press Ctrl + P to show Press Ctrl + H to hide", 5, 5, 147, 72)
GUICtrlSetLimit($Edit, 500)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$save = GUICtrlCreateButton("(Not allowed)", 5, 80, 27, 25, $BS_BITMAP)
GUICtrlSetImage(-1, "C:\Documents and Settings\Windows\Desktop\save.bmp", 0)
$Open = GUICtrlCreateButton("", 125, 80, 27, 25, $BS_BITMAP)
GUICtrlSetImage(-1, "C:\Documents and Settings\Windows\Desktop\open.bmp", 0)
GUICtrlCreateLabel("Made by Ashley", 38, 85, 79, 17)

$size = WinGetClientSize($sGUI)
$step = $size[0] / 1
_GUICtrlCreateGradient(0x578A9D, 0x8AAE2E, 0*$step, 0, $step, $size[1])
GUISetState()


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Edit
            $sRead = GUICtrlRead($Edit)
        Case $Save
            $save_dialog = FileSaveDialog("Save Note as...", "", "Text files  (*.TXT)")
            FileWrite($save_dialog & ".Txt", GUICtrlRead($Edit))
            Case $Open
            $open_dialog = FileOpenDialog("Open Note...", "", "Text files  (*.TXT)")
            GUICtrlSetData($Edit, FileRead($open_dialog))
    EndSwitch
WEnd

Func PopUp()
GUISetState(@SW_SHOW, HWnd($sGUI))
WinSetOnTop($sGUI, "", 1)
EndFunc

Func Hide()
    GUISetState(@SW_HIDE, HWnd($sGUI))
EndFunc



Func _GUICtrlCreateGradient($nStartColor, $nEndColor, $nX, $nY, $nWidth, $nHeight)
    Local $color1R = _ColorGetRed($nStartColor)
    Local $color1G = _ColorGetGreen($nStartColor)
    Local $color1B = _ColorGetBlue($nStartColor)

    Local $nStepR = (_ColorGetRed($nEndColor) - $color1R) / $step
    Local $nStepG = (_ColorGetGreen($nEndColor) - $color1G) / $step
    Local $nStepB = (_ColorGetBlue($nEndColor) - $color1B) / $step

    GuiCtrlCreateGraphic($nX, $nY, $nWidth, $nHeight)
    For $i = 0 To $nWidth
        $sColor = "0x" & StringFormat("%02X%02X%02X", $color1R+$nStepR*$i, $color1G+$nStepG*$i, $color1B+$nStepB*$i)
        GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $sColor, 0xffffff)
        GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $i, 0)
        GUICtrlSetGraphic(-1, $GUI_GR_LINE, $i, $nHeight)
    Next
EndFunc

make your own sidebar addons and post them here

Edited July 15, 2007 by ashley

[James]

Use PaulIA's lib functions to get a transparent GUI etc. This could be way better

[ashley]

Use PaulIA's lib functions to get a transparent GUI etc. This could be way better

ok ...

ill look...

i had a look.. but i cant seem to find much... can u tell me the file names... to use...

Anybody gona make there own

Edited July 15, 2007 by ashley

[dabus]

Just watch the example page and search for "PNG as GUI, drop shadows, curved edges, you name it " , or click this one:

http://www.autoitscript.com/forum/index.php?showtopic=47651

[sbgwb0769]

你们好牛啊!可惜E文看不懂!

[i542]

I can not run this script on my laptop.

你们好牛啊!可惜E文看不懂!

Somebody explain this please? Edited March 9, 2008 by i542

[James]

Google translate:

How are you Niue! Unfortunately, the text read E!

[Generator]

你们好牛啊!可惜E文看不懂!

Corrrect translation since I am a Chinese.

You guys rock. Too bad I can't understand English.

Edit:Step to step translation

你们=You guys/fellas/folks 好牛=Rock啊=to emphasize !可惜=Unfortunately/Too bad E文=English 看不懂=Cannot understand!

To JamesB: I never talked about it, but sometimes you'll see me replying some topic with Chinese characters.

Edited March 9, 2008 by Generator

[James]

Shows how bad Googles translation is!

Your Chinese? Wow, I didn't know that!

[Generator]

On Topic: Doesn't look bad, but to be able to drag it around would be nice.

[ashley]

lol, i stopped making this ages ago....

[buzonjl]

very good work men, the true is tha i like me you idea