Q7Basic.org

Hi,

I really liked the KB way of creating and accessing Control Arrays.

Assume a row of QPushButtons named pb000 - pb007.
Dim MUX2[8] As QPushButton
Dim MX2 As QButtonGroup
For i = 0 to 7
MUX2[i] = Control("pb00" & i)
MX2.AddButton(MUX2[i])
Next

It must be easy to make MUX2[0] a pointer or image to pb000. So I can use:
If MUX2[0]!BackColor = "Grn" Then
MUX2[0]!BackColor = "Red"
MUX2[0].setStyleSheet("background-color: rgb(255, 0, 0)") 'set pb000 background color to RED
Else
MUX2[0]!BackColor = "Grn"
MUX2[0].setStyleSheet("background-color: rgb(0, 255, 0)") 'set pb000 background color to GREEN
End If

Signal on_MX2_buttonClicked(n As Index)

/Henning