change color

[mike]

how to change the GUI color the same with the picture below with/or without Xskin ?

[Melba23]

@mike,

Start by looking at the following in the help file: GUISetBkColor, GUICtrlSetBkColor and GUICtrlSetColor. Then you might like to look at _WinAPI_SetSysColors.

If you run into trouble, post your code!

M23

[mike]

thanks Melba...

[ss3vegeta]

I don't mean to hijack someone else's thread but this seams an appropriate question to follow up with. I'm got this code from the help file:

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

_Main()

Func _Main()
    Local $aElements[2] = [$COLOR_ACTIVECAPTION, $COLOR_GRADIENTACTIVECAPTION]
  ; Red and Yellow
    Local $aColors[2] = [255, 65535], $aSaveColors[2]
    GUICreate("My GUI", 300, 200)

    $aSaveColors[0] = _WinAPI_GetSysColor($COLOR_ACTIVECAPTION)
    $aSaveColors[1] = _WinAPI_GetSysColor($COLOR_GRADIENTACTIVECAPTION)

    _WinAPI_SetSysColors($aElements, $aColors)
    GUISetState()

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

        EndSwitch
    WEnd

    GUIDelete()

    _WinAPI_SetSysColors($aElements, $aSaveColors)

    Exit

EndFunc ;==>_Main

I guess I'm wondering if this will only work on XP when the theme is set to Classic? It works fine on classic but when I switch to the XP theme it doesn't work. Any advice?

Thanks

ss3

Edited January 13, 2009 by ss3vegeta

[martin]

I don't mean to hijack someone else's thread but this seams an appropriate question to follow up with. I'm got this code from the help file:

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

_Main()

Func _Main()
    Local $aElements[2] = [$COLOR_ACTIVECAPTION, $COLOR_GRADIENTACTIVECAPTION]
 ; Red and Yellow
    Local $aColors[2] = [255, 65535], $aSaveColors[2]
    GUICreate("My GUI", 300, 200)

    $aSaveColors[0] = _WinAPI_GetSysColor($COLOR_ACTIVECAPTION)
    $aSaveColors[1] = _WinAPI_GetSysColor($COLOR_GRADIENTACTIVECAPTION)

    _WinAPI_SetSysColors($aElements, $aColors)
    GUISetState()

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

        EndSwitch
    WEnd

    GUIDelete()

    _WinAPI_SetSysColors($aElements, $aSaveColors)

    Exit

EndFunc;==>_Main

I guess I'm wondering if this will only work on XP when the theme is set to Classic? It works fine on classic but when I switch to the XP theme it doesn't work. Any advice?

Thanks

ss3

With XP themes on Windows decides how thgings are done. You need to turn XP themes off before you create whatever you want to be different.

expandcollapse popup

#include <GuiConstants.au3>
#include <windowsconstants.au3>
Global $XS_n
XPStyleToggle(1);turn xp themes off
$Gui = GuiCreate("Test")
GUISetBkColor(0xa9a9a8)

XPStyleToggle(0);trun xp themes back on
$RadioButton = GUICtrlCreateRadio("Text", 20, 40, 40)
GUICtrlCreateGroup("group 1",10,60,300,200)

GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateLabel("",20,70,300,50,$WS_CLIPSIBLINGS)
GUICtrlSetBkColor(-1,0xffff00)
;GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

GUISetState()
GUISetBkColor(0xffff00)

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func XPStyleToggle($OnOff = 1)
    If Not StringInStr(@OSTYPE, "WIN32_NT") Then Return 0
     
    If $OnOff Then
       $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
        Return 1
    ElseIf IsArray($XS_n) Then
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
        $XS_n = ""
        Return 1
    EndIf
    Return 0
EndFunc

[ss3vegeta]

With XP themes on Windows decides how thgings are done. You need to turn XP themes off before you create whatever you want to be different.

#include <GuiConstants.au3>

Global $XS_n

Func XPStyleToggle($OnOff = 1)
    If Not StringInStr(@OSTYPE, "WIN32_NT") Then Return 0
     
    If $OnOff Then
       $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
        Return 1
    ElseIf IsArray($XS_n) Then
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
        $XS_n = ""
        Return 1
    EndIf
    Return 0
EndFunc

Thanks Martin!

Great tip. I hope you don't mind but I've actually just incorporated your function into my program.