Sign in to follow this  
Followers 0
SkiFreak

Radio buttons on multi tabs

2 posts in this topic

I have an issue I hope someone can explain (and hopefully give a resolution to).

I have a multi tabbed form, each having a group with radio buttons in it. When I run the script all is good but the first tab page is blank. If I click on any other tab the radio buttons are visible and if I go back to tab1 the radio buttons appear.

How do I get the tabbed page to display the radio buttons on initilization?

An example of my code is below:

#include <GUIConstants.au3>
#include <GuiTab.au3>

Global $arrOne[4]
Global $arrTwo[5]

GUICreate("Multi tabbed form with radio buttons",800,400)

$fault=""
$tab=GUICtrlCreateTab (0,0,800,340)

$tab0=GUICtrlCreateTabitem ("Tab1")
GUISetFont (10, 400)
GUICtrlCreateGroup("Group1",60,40,290,140)
$arrOne[0] = GUICtrlCreateRadio (" text ", 130, 70, 190, 15)
$arrOne[1] = GUICtrlCreateRadio (" text ", 130, 90, 190, 15)
$arrOne[2] = GUICtrlCreateRadio (" text ", 130, 110, 190, 15)
$arrOne[3] = GUICtrlCreateRadio (" text ", 130, 130, 190, 15)


$Tab1=GUICtrlCreateTabitem ("Tab2")
GUISetFont (10, 400)
GUICtrlCreateGroup("Group2",60,40,290,140)
$arrTwo[0] = GUICtrlCreateRadio (" text ", 130, 70, 190, 15)
$arrTwo[1] = GUICtrlCreateRadio (" text ", 130, 90, 190, 15)
$arrTwo[2] = GUICtrlCreateRadio (" text ", 130, 110, 190, 15)
$arrTwo[3] = GUICtrlCreateRadio (" text ", 130, 130, 190, 15)
$arrTwo[4] = GUICtrlCreateRadio (" text ", 130, 150, 190, 15)

GUICtrlCreateTabitem ("")

$buttonsubmit=GUICtrlCreateButton ("Submit", 225,350,150,30)
$buttonCancel=GUICtrlCreateButton ("Cancel", 425,350,150,30)

GUISetState ()
_GUICtrlTabSetMinTabWidth ($tab, 125)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $buttonCancel
            ExitLoop
        Case $msg = $buttonsubmit
    EndSelect
WEnd

Share this post


Link to post
Share on other sites



Syntax placement - It's a wonderful thing :)

I Switched -

GUISetState ()
_GUICtrlTabSetMinTabWidth ($tab, 125)

To -

_GUICtrlTabSetMinTabWidth ($tab, 125)
GUISetState ()

and life, the universe and all other things are now back in harmony again.

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