Conflict with radiogroups and dcget

[wkedv]

Hi Roger,

maybe i make anything wrong, but i think there is a conflict, when you have more than 1 radiogroups combined with a get,
because the value i input in the get will be ignored.

Please have look at my sa´mple i made you for this

regards Kurt

[rdonnay]

Kurt -

Radio buttons are group by having a common parent.
Your 3 groups will interfere with each other because they all have the same parent.

You need to insure that each radio group has a different parent.

Roger

Code: Select all

#INCLUDE "dcdialog.CH"

FUNCTION Main()

LOCAL GetList[0]
LOCAL nRadio1, nRadio2, nRadio3, nRadio4, nRadio5
LOCAL nRow := 1

nRadio1 := nRadio2 := nRadio3 := nRadio4 := nRadio5 := 1

RadioGroup(GetList,@nRadio1,nRow++)
RadioGroup(GetList,@nRadio2,nRow++)
RadioGroup(GetList,@nRadio3,nRow++)
RadioGroup(GetList,@nRadio4,nRow++)
RadioGroup(GetList,@nRadio5,nRow++)

DCREAD GUI FIT ADDBUTTONS TITLE 'Radio Groups'

RETURN nil

* -------------

STATIC FUNCTION RadioGroup( GetList, nRadio, nRow )

LOCAL oStatic

@ nRow,0 DCSTATIC TYPE XBPSTATIC_TYPE_TEXT SIZE 40,1 OBJECT oStatic
@ 0,0 DCRADIO nRadio VALUE 1 PROMPT 'Geen' PARENT oStatic
@ DCGUI_ROW, DCGUI_COL + 20 DCRADIO nRadio VALUE 2 PROMPT 'Punten' PARENT oStatic
@ DCGUI_ROW, DCGUI_COL + 20 DCRADIO nRadio VALUE 3 PROMPT 'Credits' PARENT oStatic

RETURN nil

* ----------

PROC Appsys ; RETURN