ashley Posted July 15, 2007 Share Posted July 15, 2007 (edited) Vista sidebar addons for XPNotepad *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 Free icons for your programs Link to comment Share on other sites More sharing options...
James Posted July 15, 2007 Share Posted July 15, 2007 Use PaulIA's lib functions to get a transparent GUI etc. This could be way better Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
ashley Posted July 15, 2007 Author Share Posted July 15, 2007 (edited) 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 Free icons for your programs Link to comment Share on other sites More sharing options...
dabus Posted July 15, 2007 Share Posted July 15, 2007 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 Link to comment Share on other sites More sharing options...
sbgwb0769 Posted March 7, 2008 Share Posted March 7, 2008 你们好牛啊!可惜E文看不懂! Link to comment Share on other sites More sharing options...
i542 Posted March 9, 2008 Share Posted March 9, 2008 (edited) I can not run this script on my laptop.你们好牛啊!可惜E文看不懂!Somebody explain this please? Edited March 9, 2008 by i542 I can do signature me. Link to comment Share on other sites More sharing options...
James Posted March 9, 2008 Share Posted March 9, 2008 Google translate:How are you Niue! Unfortunately, the text read E! Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
Generator Posted March 9, 2008 Share Posted March 9, 2008 (edited) 你们好牛啊!可惜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 Link to comment Share on other sites More sharing options...
James Posted March 9, 2008 Share Posted March 9, 2008 Shows how bad Googles translation is! Your Chinese? Wow, I didn't know that! Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
Generator Posted March 9, 2008 Share Posted March 9, 2008 On Topic: Doesn't look bad, but to be able to drag it around would be nice. Link to comment Share on other sites More sharing options...
ashley Posted March 11, 2008 Author Share Posted March 11, 2008 lol, i stopped making this ages ago.... Free icons for your programs Link to comment Share on other sites More sharing options...
buzonjl Posted March 14, 2008 Share Posted March 14, 2008 very good work men, the true is tha i like me you idea Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now