Radiobuttons

[Ysengrim]

$Keuze[1] = GUICtrlCreateRadio (" Windows XP", 150, 110, 300, 20,)

$Keuze[2] = GUICtrlCreateRadio (" Windows Vista", 150, 140, 300, 20)

GUICtrlSetState ($Keuze[2], $GUI_CHECKED)

the function "GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)" isn't working but in the help files it seems that it has to work (extended styles)

can somehelp me how to change the color of the text and make the background transparant?

THANKS & happy newyear

[MrCreatoR]

Hi,

With Checkbox/RadioButton there is a problem on set color/Bkcolor on Win XP... you can use a workaround:

#include <GuiConstants.au3>
Global $XS_n

$Gui = GuiCreate("Test")
GUISetBkColor(0x0)

XPStyleToggle(1)
$RadioButton = GUICtrlCreateRadio("Text", 20, 40, 40)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
XPStyleToggle(0)

GUISetState()

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

[Ysengrim]

thank you for your reply

I added your code within mine but on the screen there is no difference to see

the text still remains black and the background remains grey

but thanks anyway !!!

[MrCreatoR]

I added your code within mine but on the screen there is no difference to see

the text still remains black and the background remains grey

What system are you runing? can you show a screenshot of what you get (from my example)?

[MisterPseudonym]

What system are you runing? can you show a screenshot of what you get (from my example)?

:^/ I'm running Windows® 2000, and from your script I get an AutoIt Error:

Line 18, Case $GUI_EVENT_CLOSE

Error: "Case" statement with no matching "Select" statement.

[Valuater]

There should be no error if you use the posted code from MSCreator

8)

[MisterPseudonym]

:^/ Here's a screen shot of a demo I cooked up to show you. The background for each lable is grey, covering over the background image.

The background for radio button 2 uses the line:

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

-Which makes it white, instead of truly transparant. The background for radio button 3 uses the line:

GUICtrlSetBkColor(-1, $WS_EX_TRANSPARENT)

-Which makes it black, instead of truly transparent. I suspect that there is another flag that needs to be set, or something. The effect I want is for the text to appear with the backdrop visible behind the letters, instead of being masked out. The added text in the second image illustrates the concept, though I had to use a paint program to do it....

:^/ Soooo, how does one do that?

;^) Thanks.

[Valuater]

Post the code so i can have a look

8)

[MisterPseudonym]

;^) Here's the code below. It's quick and dirty, and won't exit on its own, but it'll illustrate the concept.

;^) Demonstrate trouble with transparency.

;^) Let's create the GUI.=======================================================

#include <GUIConstants.au3>

GUICreate("Transparency", 265,295, @DesktopWidth/2-160, @DesktopHeight/2-90, -1, 0x00000218)

GUISetState(@SW_SHOW)

$BI = GUICtrlCreatePic ("Background.gif", 0, 0, 265, 295)

;^) Make a group.

$Group = GUICtrlCreateGroup ("Group", 10, 10, 100, 170)

;^) Radio buttons.

$radio1 = GUICtrlCreateRadio ("Radio 1", 20, 30, 80, 15)

$radio2 = GUICtrlCreateRadio ("Radio 2", 20, 50, 0, 0)

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

;^| White instead of transparent....

$radio3 = GUICtrlCreateRadio ("Radio 3", 20, 70, 0, 0)

GUICtrlSetBkColor(-1, $WS_EX_TRANSPARENT)

;^| Black instead of transparent....

$radio4 = GUICtrlCreateRadio ("Radio 4", 20, 90, 0, 0)

$radio5 = GUICtrlCreateRadio ("Radio 5", 20, 110, 0, 0)

$radio6 = GUICtrlCreateRadio ("Radio 6", 20, 130, 0, 0)

$radio7 = GUICtrlCreateRadio ("Radio 7", 20, 150, 0, 0)

;^) Buttons

$Butt1 = GUICtrlCreateButton ("One", 10, 263, 50, 20)

$Butt2 = GUICtrlCreateButton ("Two", 75, 263, 50, 20)

$Butt3 = GUICtrlCreateButton ("Three", 140, 263, 50, 20)

$Butt4 = GUICtrlCreateButton ("Four", 205, 263, 50, 20)

;^) List with label

GUICtrlCreateLabel("List", 130, 10, 80, 15)

$List=GUICtrlCreateList ("", 120, 25, 135, 227,$LBS_NoIntegralHeight)

;^) GUI is done.================================================================

While 1

Sleep(100)

Wend

[Valuater]

Try this

expandcollapse popup

;^) Demonstrate trouble with transparency.
;^) Let's create the GUI.=======================================================
#include <GUIConstants.au3>

GUICreate("Transparency", 265,295, @DesktopWidth/2-160, @DesktopHeight/2-90, -1, 0x00000218)
GUISetState(@SW_SHOW)

$BI = GUICtrlCreatePic ("Background.gif", 0, 0, 265, 295)

;^) Make a group.
$Group = GUICtrlCreateGroup ("Group", 10, 10, 100, 170)

;^) Radio buttons.
$radio1 = _GUICtrlCreateRadio ("Radio 1", 20, 30, 80, 15, $GUI_BKCOLOR_TRANSPARENT, 0x00ff00) ; Green
$radio2 = _GUICtrlCreateRadio ("Radio 2", 20, 50, 80, 15, $GUI_BKCOLOR_TRANSPARENT, 0xFFFFFF) ; White
$radio3 = _GUICtrlCreateRadio ("Radio 3", 20, 70, 80, 15, $GUI_BKCOLOR_TRANSPARENT, 0xff0000) ; Red
$radio4 = _GUICtrlCreateRadio ("Radio 4", 20, 90, 80, 15, $GUI_BKCOLOR_TRANSPARENT)
$radio5 = _GUICtrlCreateRadio ("Radio 5", 20, 110, 80, 15, $GUI_BKCOLOR_TRANSPARENT)
$radio6 = _GUICtrlCreateRadio ("Radio 6", 20, 130, 80, 15, $GUI_BKCOLOR_TRANSPARENT)
$radio7 = _GUICtrlCreateRadio ("Radio 7", 20, 150, 80, 15, $GUI_BKCOLOR_TRANSPARENT)


;^) Buttons
$Butt1 = GUICtrlCreateButton ("One", 10, 263, 50, 20)
$Butt2 = GUICtrlCreateButton ("Two", 75, 263, 50, 20)
$Butt3 = GUICtrlCreateButton ("Three", 140, 263, 50, 20)
$Butt4 = GUICtrlCreateButton ("Four", 205, 263, 50, 20)

;^) List with label
GUICtrlCreateLabel("List", 130, 10, 80, 15)
$List=GUICtrlCreateList ("", 120, 25, 135, 227,$LBS_NoIntegralHeight)

;^) GUI is done.================================================================

While GUIGetMsg() <> -3
Wend

Func _GUICtrlCreateRadio( $rText, $rLeft, $rTop, $rLength, $rHieght, $rBackColor = "" , $rTextColor = "" )
    Local $PCRadio = GUICtrlCreateRadio("", $rLeft, $rTop, 15, 15)
    Local $PCLabel = GUICtrlCreateLabel($rText, $rLeft + 15, $rTop, $rLength - 15, $rHieght)
    If $rTextColor <> "" Then GUICtrlSetColor(-1, $rTextColor)
    If $rBackColor <> "" Then GUICtrlSetBkColor(-1, $rBackColor)
    Return $PCRadio
EndFunc

8)

[MisterPseudonym]

Try this

[snip!]

8)

:^/ Thanks for that, but on my Win2000 machine I get this:

The background behind the radio text is still white instead of the background image showing through.

[Valuater]

What Version of Autoit are you using?

Hopefully someone with a Win2000 can help you

You will need to do this also

$BI = GUICtrlCreatePic ("Background.gif", 0, 0, 265, 295)
GUICtrlSetState( -1, $GUI_DISABLE)

or else the radios etc wont work

8)

[MisterPseudonym]

;^) I'm using the latest version, version 3.

:^/ I'd have thought that if this were a bug, it'd have been noticed and fixed by now. Does your example work on your setup? Which OS are you using?

[Valuater]

Yes it works on mine

Windows Xp

With this code

expandcollapse popup

;^) Demonstrate trouble with transparency.
;^) Let's create the GUI.=======================================================
#include <GUIConstants.au3>

MsgBox(0x0,"", @AutoItVersion)

GUICreate("Transparency", 265,295, @DesktopWidth/2-160, @DesktopHeight/2-90, -1, 0x00000218)
GUISetState(@SW_SHOW)

$BI = GUICtrlCreatePic ("C:\Temp\Backgrnd.jpg", 0, 0, 265, 295)
GUICtrlSetState( -1, $GUI_DISABLE)

;^) Make a group.
$Group = GUICtrlCreateGroup ("", 10, 10, 100, 170)

;^) Radio buttons.
$radio1 = _GUICtrlCreateRadio ("Radio 1", 20, 30, 80, 15, $GUI_BKCOLOR_TRANSPARENT, 0x00ff00) ; Green
$radio2 = _GUICtrlCreateRadio ("Radio 2", 20, 50, 80, 15, $GUI_BKCOLOR_TRANSPARENT, 0xFFFFFF) ; White
$radio3 = _GUICtrlCreateRadio ("Radio 3", 20, 70, 80, 15, $GUI_BKCOLOR_TRANSPARENT, 0xff0000) ; Red
$radio4 = _GUICtrlCreateRadio ("Radio 4", 20, 90, 80, 15, $GUI_BKCOLOR_TRANSPARENT)
$radio5 = _GUICtrlCreateRadio ("Radio 5", 20, 110, 80, 15, $GUI_BKCOLOR_TRANSPARENT)
$radio6 = _GUICtrlCreateRadio ("Radio 6", 20, 130, 80, 15, $GUI_BKCOLOR_TRANSPARENT)
$radio7 = _GUICtrlCreateRadio ("Radio 7", 20, 150, 80, 15, $GUI_BKCOLOR_TRANSPARENT)


;^) Buttons
$Butt1 = GUICtrlCreateButton ("One", 10, 263, 50, 20)
$Butt2 = GUICtrlCreateButton ("Two", 75, 263, 50, 20)
$Butt3 = GUICtrlCreateButton ("Three", 140, 263, 50, 20)
$Butt4 = GUICtrlCreateButton ("Four", 205, 263, 50, 20)

;^) List with label
GUICtrlCreateLabel("List", 130, 10, 80, 15)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$List=GUICtrlCreateList ("", 120, 25, 135, 227,$LBS_NoIntegralHeight)

;^) GUI is done.================================================================

While GUIGetMsg() <> -3
Wend

Func _GUICtrlCreateRadio( $rText, $rLeft, $rTop, $rLength, $rHieght, $rBackColor = "" , $rTextColor = "" )
    Local $PCRadio = GUICtrlCreateRadio("", $rLeft, $rTop, 12, 12)
    Local $PCLabel = GUICtrlCreateLabel($rText, $rLeft + 15, $rTop, $rLength - 15, $rHieght)
    If $rTextColor <> "" Then GUICtrlSetColor(-1, $rTextColor)
    If $rBackColor <> "" Then GUICtrlSetBkColor(-1, $rBackColor)
    Return $PCRadio
EndFunc

8)

[MisterPseudonym]

Yes it works on mine

Windows Xp

8)

:^/ I'm running version 3.1.1.0

Your new script gets an error code with the function

_GUICtrlCreateRadio

-it seems that it's an "Unknown Function Name." The underscore in front is different from my original script.

[Edit]

:^( I tried editing the undescores out. The script runs now, but now not only is the radio text background transparant, the radio text and radio gadgets themselves are transparent, as is the group label. As shown here:

:^/ That I could already do....

Edited December 29, 2007 by MisterPseudonym

[Valuater]

I added that Function to the bottom of the script to create the effect you wanted. By placing the "_" (underscore) it will use the UDF I created and not the Autoit command

thats the way the first script i posted was also

... update to the newest Autoit 3.2.10

8)

Edited December 29, 2007 by Valuater

[MisterPseudonym]

I added that Function to the bottom of the script to create the effect you wanted. By placing the "_" (underscore) it will use the UDF I created and not the Autoit command

thats the way the first script i posted was also

... update to the newest Autoit 3.2.10

8)

:^/ Okay, the script you posted was longer than the pane it appeared in, and I missed out the bit at the end. That's corrected now, and I put the underscores back. Now, the radio button text still has the white background, while the buttons themselves have separate gray backgrounds. The group label is still invisible. Screen shot in a minute.

[Edit]

I'll try the newest AutoIt, too.

[Edit 2]

:^o Hokey Smokes, Bullwinkle! That did it.

;^) Thanks, dude; I appreciate it.

:^/ The only trouble is that at work we have an earlier version. Any executable I create here should work fine there, but compiling the script there wouldn't work... But that's a separate challenge. Thanks for your help again.

[Edit 3]

:^( Wait... the backgrounds for the radio buttons themselves are still little gray squares...

:^/ Anyway, I'm happy enough for now. I've got other things to do today, so ciao for now!

Edited December 29, 2007 by MisterPseudonym

[Valuater]

All-Righty-Then!

lol

8)