Finrod Narmolanya

Hello folks, does anyone has an idea how to shorten the code for the setting of the tranparency in this simple script (with a little explanation)? I know it's possible but i can't figure it out. There is a nice effect in having a transparent group. The title use the background color of the window in the back. I tried to get rid of it using GUICtrlSetBkColor but it doesn't work. Any idea? Thanx Finrod Narmolanya TrayandGUI_Transparenz.au3

I tried both scripts but I get the same error like masvil (-1h) even if the time zone settings are correct for my location (Berlin). regards Finrod Narmolanya @jjohn It seems that Westi ist right, it seems to be a language problem. I tried your tool on a mui Version (english with the german interface) and there ist no problem even if the region zone ist the same. i attached the Results from both systems. regards Finrod Narmolanya 1234.txt

Ok, I found a solution. Changing this part of code from "case" to "if... then... else..." seems to work fine ) While 1 $msgTray = TrayGetMsg() $msgGUI = GUIGetMsg() If $msgGUI = $ButtonendePref Then GUISwitch($PreferencesWindow) GUISetState(@SW_Hide) EndIf If $msgTray = $aboutitem Then MsgBox ("", "Über", $s_Title & " " & $s_Version) Endif If $msgTray = $exititem then ExitLoop EndIf wend

I'm new to AutoIT and i have a question about the tray function in the beta. to call a GUI from the tray menu works fine but using a button or any another control to hide the GUI and come back to the traymenu doesn't work ( or better i don't know how to!) Can someone tell me how to make it work? Here is my simple code #include <GUIConstants.au3> Global Const $s_Title = 'Tray & GUI' Global Const $s_Version = 'v0.1' Global Const $GUI_Height = '457' Global Const $GUI_Width = '412' Opt("TrayMenuMode",1) TraySetToolTip($s_Title & " - " & $s_Version) $settingsitem = TrayCreateItem("Preferences") TrayCreateItem("") $aboutitem = TrayCreateItem("About") TrayCreateItem("") $exititem = TrayCreateItem("End") TraySetState() $PreferencesWindow = GUICreate($s_Title &" " & $s_Version & " Preferences", $GUI_Width, $GUI_Height) $ButtonendePref = GUICtrlCreateButton("OK", 320,405,60) GUISetState(@SW_HIDE) While 1 $msgTray = TrayGetMsg() $msgGui = GUIGetMsg() Select Case $msgTray = 0 ContinueLoop Case $msgGui = $ButtonendePref MsgBox ("", "Ende", $s_Title & " " & $s_Version) Case $msgTray = $aboutitem MsgBox ("", "Über", $s_Title & " " & $s_Version) Case $msgTray = $settingsitem Switch2PreferencesWindow() Case $msgTray = $exititem ExitLoop EndSelect WEnd Exit Func Switch2PreferencesWindow() GUISwitch($PreferencesWindow) GUISetState(@SW_Show) EndFunc