Hallo liebe Gemeinde ich habe ein Prob
ich habe mir selbst eine sidebar geschrieben um die umstellung von win 7 auf XP zu erleichtern und ich hätte gerne einen kalender mit eingebaut das problem ist nur leider das ich relativ wenig platz habe weshalb ich den kalender (in einer Group) gerne ein oder ausblenden können würde welche optionen habe ich denn da zur verfügung ?
Freue mich schon auf eure antworten
MFG Eistee
p.S. hier der bisherige script
Spoiler anzeigen
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <audio.au3>
#Include <Constants.au3>
Global $MicVol = _SoundGetMicrophoneVolume ()
Global $Vol = _SoundGetMasterVolume ()
Opt('WinTitleMatchMode', 4)
$aTaskbarPos = WinGetPos('classname=Shell_TrayWnd')
$iWidth = 190
$iHeight = @DesktopHeight
$iLeft = $aTaskbarPos[2] - $iWidth - 3
$iTop = 0
$size = FileGetSize("C:\BS\SideBar\About.exe")
If $size = 0 then _1 ()
Func _1 ()
DirCreate("C:\BS\SideBar")
FileInstall("google.jpg", "C:\BS\SideBar\google.jpg")
FileInstall("Border.jpg", "C:\BS\SideBar\Border.jpg")
FileInstall("loka.jpg", "C:\BS\SideBar\loka.jpg")
FileInstall("gmx.jpg", "C:\BS\SideBar\gmx.jpg")
FileInstall("web.jpg", "C:\BS\SideBar\web.jpg")
FileInstall("ShutDown.jpg", "C:\BS\SideBar\ShutDown.jpg")
FileInstall("Neustarten.jpg", "C:\BS\SideBar\Neustarten.jpg")
FileInstall("Standby.jpg", "C:\BS\SideBar\Standby.jpg")
FileInstall("About.exe", "C:\BS\SideBar\About.exe")
EndFunc
$Form1 = GUICreate("Form1", $iWidth, $iHeight, $iLeft, $iTop,$WS_POPUP,$WS_EX_TOOLWINDOW)
GUISetBkColor(0x000000)
$Pic1 = GUICtrlCreatePic("C:\BS\SideBar\Border.jpg", 0, 0, 5, $iHeight, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup(" Kalender ", 3, 8, 184, 163)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$MonthCal1 = GUICtrlCreateMonthCal("2009/07/20", 8, 24, 174, 140)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup(" Uhrzeit ", 3, 174, 184, 41)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label1 = GUICtrlCreateLabel(@HOUR & ":" & @MIN & ":" & @SEC, 68, 193, 51, 19)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label2 = GUICtrlCreateLabel("VOL. :", 16, 236, 37, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1,"Lautstärke anpassen")
$Label3 = GUICtrlCreateLabel("MIC. :", 16, 268, 38, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1,"Microfon Lautstärke anpassen")
$Slider1 = GUICtrlCreateSlider(72, 233, 114, 20)
GUIctrlSetBkColor(-1, 0x000000)
GUICtrlSetLimit(-1,100,0)
GUICtrlSetData(-1, $Vol)
$Slider2 = GUICtrlCreateSlider(72, 265, 114, 20)
GUIctrlSetBkColor(-1, 0x000000)
GUICtrlSetLimit(-1,100,0)
GUICtrlSetData(-1, $MicVol)
$Group3 = GUICtrlCreateGroup(" Volume ", 3, 217, 185, 73)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic2 = GUICtrlCreatePic("C:\BS\SideBar\google.jpg", 12, 307, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Ruft http://www.google.de auf")
$Pic3 = GUICtrlCreatePic("C:\BS\SideBar\Loka.jpg", 76, 347, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Ruft http://www.lokalisten.de auf")
$Pic4 = GUICtrlCreatePic("C:\BS\SideBar\GMX.jpg", 12, 386, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Ruft http://www.gmx.net auf")
$Pic5 = GUICtrlCreatePic("C:\BS\SideBar\WEB.jpg", 76, 425, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Ruft http://www.web.de auf")
$Group4 = GUICtrlCreateGroup(" Internet ", 3, 291, 184, 177)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label4 = GUICtrlCreateLabel(@IPAddress1, 58, 486, 170, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
$Group5 = GUICtrlCreateGroup(" IP ", 3, 468, 184, 38)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic6 = GUICtrlCreatePic("C:\BS\SideBar\ShutDown.jpg", 8, 528, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Herunterfahren")
$Pic7 = GUICtrlCreatePic("C:\BS\SideBar\Neustarten.jpg", 76,528, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Neustarten")
$Pic8 = GUICtrlCreatePic("C:\BS\SideBar\Standby.jpg", 144, 528, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Standby")
$Group6 = GUICtrlCreateGroup(" Shut Down Control ", 3, 507, 184, 68)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
Opt("TrayMenuMode",1)
$AB = TrayCreateItem("About")
$EX = TrayCreateItem("Beenden")
TraySetState()
AdlibEnable("UHR",1000)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
$nMsg2 = TRayGetMsg()
Switch $nMsg
Case $Pic6
_Shut ()
Case $Pic7
_neu ()
Case $Pic8
_stan ()
Case $Pic2
_google ()
Case $Pic3
_lokalisten ()
Case $Pic4
_gmx ()
Case $Pic5
_web ()
Case $Slider2
_Mic ()
Case $Slider1
_Vol ()
EndSwitch
Switch $nMsg2
Case $EX
Exit
Case $AB
_AB ()
EndSwitch
WEnd
Func UHR ()
GUICtrlSetData($Label1,@HOUR & ":" & @MIN & ":" & @SEC)
Endfunc
Func _Shut ()
_AnimButton ($Form1, $Pic6)
Sleep(200)
Local $var = MsgBox(32 +4, " Shutdown", "Den PC Herunterfahren ?" & @TAB)
If $var = 6 Then
MsgBox(0,"Shutdown", "Einen schönen Tag noch.",3)
Shutdown(1)
EndIf
EndFunc
Func _neu ()
_AnimButton ($Form1, $Pic7)
Sleep(200)
Local $var = MsgBox(32 +4, " Shutdown", "Den PC Neustarten ?" & @TAB)
If $var = 6 Then
MsgBox(0,"Neustart", "Bis gleich.",5)
Shutdown(2)
EndIf
EndFunc
Func _stan ()
_AnimButton ($Form1, $Pic8)
Sleep(200)
Local $var = MsgBox(32 +4, " Shutdown", "Den PC in Standby ?" & @TAB)
If $var = 6 Then
MsgBox(0,"Standby", "Ich geh dan mal schlafen.",5)
Shutdown(64)
EndIf
EndFunc
Func _AnimButton($IDgui, $IDbtn, $delay=300)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
Sleep($delay)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc
Func _google ()
_AnimButton ($Form1, $Pic2)
ShellExecute("http://www.google.de")
EndFunc
Func _lokalisten ()
_AnimButton ($Form1, $Pic3)
ShellExecute("http://www.lokalisten.de")
EndFunc
Func _gmx ()
_AnimButton ($Form1, $Pic4)
ShellExecute("http://www.gmx.net")
EndFunc
Func _web ()
_AnimButton ($Form1, $Pic5)
ShellExecute("http://www.web.de")
EndFunc
Func _Mic ()
$NeuVolMIC = GUICtrlRead($Slider2)
_SoundSetMicrophoneVolume($NeuVolMIC)
EndFunc
Func _VOL ()
$NeuVol = GUICtrlRead($Slider1)
_SoundSetMasterVolume($NeuVol)
EndFunc
Func _AB ()
Run("C:\BS\SIDEBAR\About.exe")
EndFunc