Sign in to follow this  
Followers 0
EndFunc

change the color of group

6 posts in this topic

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.

Share this post


Link to post
Share on other sites



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)


NEWHeader1.png

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Guess the help above worked????

****************

maybe this one in Autoit Wrappers

http://www.autoitscript.com/forum/index.ph...st&p=186198

It 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.

Share this post


Link to post
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
Sign in to follow this  
Followers 0