Sign in to follow this  
Followers 0
dost0011

Color of GUICtrlCreateGroup

3 posts in this topic

Hi,

I want to change the color of "GUICtrlCreateGroup". Why doesn't it work ?

Thanks !

; Example

$hGUI1 = GUICreate("Rundengong", 400, 400)

GUISetBkColor (0x000000) ; will change background color

; Label Rundengong

$font="Tiranti Solid LET"

GUICtrlCreateLabel ("Rundengong",10,20,400,70)

GUICtrlSetFont (-1,36, 400, 2, $font) ; will display underlined characters

GUICtrlSetColor(-1,0xff0000) ; Red

; Slider für Lautstärke

GUICtrlCreateGroup("Volume control", 20,280,170,105)

GUICtrlSetColor(-1,0xff0000) ; Red --> doesn't work !!!!!!!!!!!!

$iSlider1 = GUICtrlCreateSlider(25, 300, 160, 40)

GUICtrlSetBkColor (-1,0x000000) ; will change background color

$iSlider2 = GUICtrlCreateSlider(25, 340, 160, 40)

GUICtrlSetBkColor (-1,0x000000) ; will change background color

GUICtrlSetLimit($iSlider1, 100, 0)

GUICtrlSetData ($iSlider1, 50)

GUICtrlSetLimit($iSlider2, 100, 0)

GUICtrlSetData ($iSlider2, 50)

GUISetState()

While 1

Sleep(100)

WEnd

Share this post


Link to post
Share on other sites



A Group controls are always painted in "Windows Classic style".

You can use this trick:

$hGUI1 = GUICreate("Rundengong", 400, 400)

GUISetBkColor (0x000000) ; will change background color

; Label Rundengong
$font="Tiranti Solid LET"
GUICtrlCreateLabel ("Rundengong",10,20,400,70)
GUICtrlSetFont (-1,36, 400, 2, $font) ; will display underlined characters
GUICtrlSetColor(-1,0xff0000) ; Red

; Slider fur Lautstarke
$Group = GUICtrlCreateGroup("Volume control", 20,280,170,105)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($Group), "wstr", "", "wstr", "") ;Set classic style for Group control :)
GUICtrlSetColor(-1,0xff0000)

$iSlider1 = GUICtrlCreateSlider(25, 300, 160, 40)
GUICtrlSetBkColor (-1,0x000000) ; will change background color
$iSlider2 = GUICtrlCreateSlider(25, 340, 160, 40)
GUICtrlSetBkColor (-1,0x000000) ; will change background color
GUICtrlSetLimit($iSlider1, 100, 0)
GUICtrlSetData ($iSlider1, 50)
GUICtrlSetLimit($iSlider2, 100, 0)
GUICtrlSetData ($iSlider2, 50)

GUISetState()

While 1
    Sleep(100)
WEnd

Share this post


Link to post
Share on other sites

You can switch off the XP theme for the control:

; Example
$hGUI1 = GUICreate("Rundengong", 400, 400)
GUISetBkColor (0x000000) ; will change background color

; Label Rundengong
$font = "Tiranti Solid LET"
GUICtrlCreateLabel ("Rundengong",10,20,400,70)
GUICtrlSetFont (-1,36, 400, 2, $font) ; will display underlined characters
GUICtrlSetColor(-1,0xff0000) ; Red

$iOldTheme = _SetThemeAppProperties(-1)

; Slider fur Lautstarke
GUICtrlCreateGroup("Volume control", 20,280,170,105)
GUICtrlSetColor(-1,0xff0000) ; Red --> doesn't work !!!!!!!!!!!!

_SetThemeAppProperties($iOldTheme)

$iSlider1 = GUICtrlCreateSlider(25, 300, 160, 40)
GUICtrlSetBkColor (-1,0x000000) ; will change background color
$iSlider2 = GUICtrlCreateSlider(25, 340, 160, 40)
GUICtrlSetBkColor (-1,0x000000) ; will change background color
GUICtrlSetLimit($iSlider1, 100, 0)
GUICtrlSetData ($iSlider1, 50)
GUICtrlSetLimit($iSlider2, 100, 0)
GUICtrlSetData ($iSlider2, 50)
GUISetState()

While GUIGetMsg() <> -3
WEnd

Func _SetThemeAppProperties($iTheme = -1)
    If Not StringInStr(@OSTYPE, "WIN32_NT") Then Return 0
    
    Switch $iTheme
        Case -1
            Local $aOld_ThemeAppProperties = DllCall("Uxtheme.dll", "int", "GetThemeAppProperties")
            DllCall("Uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
            
            Return $aOld_ThemeAppProperties[0]
        Case Else
            DllCall("Uxtheme.dll", "none", "SetThemeAppProperties", "int", $iTheme)
    EndSwitch
EndFunc

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

AutoIt is simple, subtle, elegant. © AutoIt Team

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