Radio that looks like a button with colour.

[jacQues]

Simplified code:

DIM $button[11]

$button[0] = 10

GUICtrlCreateGroup(...)

FOR $x = 1 TO $button[0]

$button[$x] = GUICtrlCreateRadio(...,$BS_PUSHLIKE) ; style 0x1000

GUICtrlSetBkColor($button[$x],0x7F7FFF) ; blue background

NEXT

It shows ten radiobuttons in the GUI that look like buttons. However, GUICtrlSetBkColor() doesn't work. When I use $BS_CHECKBOX (style 0x0002) instead the colours do change as expected. Thus, are colours simply disables with $BS_PUSHLIKE or do I need to add another style or extended style to make it work?

jacQues

[martin]

Simplified code:

DIM $button[11]

$button[0] = 10

GUICtrlCreateGroup(...)

FOR $x = 1 TO $button[0]

$button[$x] = GUICtrlCreateRadio(...,$BS_PUSHLIKE) ; style 0x1000

GUICtrlSetBkColor($button[$x],0x7F7FFF) ; blue background

NEXT

It shows ten radiobuttons in the GUI that look like buttons. However, GUICtrlSetBkColor() doesn't work. When I use $BS_CHECKBOX (style 0x0002) instead the colours do change as expected. Thus, are colours simply disables with $BS_PUSHLIKE or do I need to add another style or extended style to make it work?

jacQues

I don't think you can do that without making an owner drawn button.

You could do something like this maybe

#include <windowsconstants.au3>
#include <buttonconstants.au3>

$gui = GUICreate("bcol")
GUICtrlCreateGroup("radios", 5, 5)
$b1 = GUICtrlCreateButton("one", 20, 20, 100, 21)
GUICtrlSetBkColor(-1, 0x7F7FFF)
$b2 = GUICtrlCreateButton("two", 20, 40, 100, 21)
GUICtrlSetBkColor(-1, 0x7F7FFF)
$b3 = GUICtrlCreateButton("three", 20, 60, 100, 21)
GUICtrlSetBkColor(-1, 0x7F7F7F)
GUICtrlCreateGroup("", -99, -99, 1, 1);close group
$pressed = $b1
GUISetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case - 3
            Exit
        Case $b1 To $b3
            For $n = $b1 To $b3
                If $n <> $msg Then                  
                    GUICtrlSetBkColor($n, 0x7F7FFF)
                Else
                    GUICtrlSetBkColor($n, 0x7F7F7F)
                EndIf
            Next
            $pressed = $n
    EndSwitch
    
WEnd

Edited February 12, 2008 by martin

[jacQues]

I don't think you can do that without making an owner drawn button.

You could do something like this maybe

Right, not possible with pure radio buttons so. :-(

Thanks for the workaround; I'll adapt something alike your code for my software.

jacQues