Jump to content

change the color of group


Recommended Posts

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

Link to comment
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.
Link to comment
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.
Link to comment
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.
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...