EndFunc Posted April 6, 2007 Posted April 6, 2007 I have been trying to set the color for a Grouping and it will only stay as a blue color. Is there anyway to change it. The normal syntax doesn't seem to have any effect. EndFuncAutoIt is the shiznit. I love it.
Valuater Posted April 6, 2007 Posted April 6, 2007 Maybe... #include<guiconstants.au3> Dim $XS_n $GUI = GUICreate("my GUI") XPStyle (1) $group = GUICtrlCreateGroup(" This is a group", 40, 40, 300, 300) GUICtrlSetColor($group, 0xff0000) XPStyle (0) GUISetState() Sleep(2000) GUICtrlSetColor($group, 0x0ff) While 1 If GUIGetMsg() = -3 Then Exit WEnd Func XPStyle ($OnOff = 1) If $OnOff And StringInStr(@OSTYPE, "WIN32_NT") Then $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties") DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0) Return 1 ElseIf StringInStr(@OSTYPE, "WIN32_NT") And IsArray($XS_n) Then DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0]) $XS_n = "" Return 1 EndIf Return 0 EndFunc ;==>XPStyle 8)
EndFunc Posted April 6, 2007 Author Posted April 6, 2007 Maybe... #include<guiconstants.au3> Dim $XS_n $GUI = GUICreate("my GUI") XPStyle (1) $group = GUICtrlCreateGroup(" This is a group", 40, 40, 300, 300) GUICtrlSetColor($group, 0xff0000) XPStyle (0) GUISetState() Sleep(2000) GUICtrlSetColor($group, 0x0ff) While 1 If GUIGetMsg() = -3 Then Exit WEnd Func XPStyle ($OnOff = 1) If $OnOff And StringInStr(@OSTYPE, "WIN32_NT") Then $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties") DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0) Return 1 ElseIf StringInStr(@OSTYPE, "WIN32_NT") And IsArray($XS_n) Then DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0]) $XS_n = "" Return 1 EndIf Return 0 EndFunc ;==>XPStyle 8)thanks i will give it a try. EndFuncAutoIt is the shiznit. I love it.
EndFunc Posted April 6, 2007 Author Posted April 6, 2007 I quick thing. I found a while back a udf example that showed how to have animated windows for folder copy progress. it showed the different ways that the folders act when files are copying. Does anyone remember or know where that is? EndFuncAutoIt is the shiznit. I love it.
Valuater Posted April 6, 2007 Posted April 6, 2007 Guess the help above worked????****************maybe this one in Autoit Wrappershttp://www.autoitscript.com/forum/index.ph...st&p=186198
EndFunc Posted April 7, 2007 Author Posted April 7, 2007 Guess the help above worked????****************maybe this one in Autoit Wrappershttp://www.autoitscript.com/forum/index.ph...st&p=186198It works in your example but not yet in mine, I will try and get it working. Also I still didn't see which wrapper showed those file copy windows. I am looking for the windows copy where it shows the files flying into the folder etc. I found it somewhere and i can't find the UDF that had the examples. If it is one of those can you direct me to which one. EndFuncAutoIt is the shiznit. I love it.
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