Jump to content

Vista sidebar addons for XP


ashley
 Share

Recommended Posts

Vista sidebar addons for XP

Notepad *Updated 15/07/07*

#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 by ashley
Link to comment
Share on other sites

  • 7 months later...

你们好牛啊!可惜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 by Generator
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...