updating checkboxes?

[deanomeano]

I am using several checkboxes in my program, and when I declare them i call a function for each one so that if one is ticked, if the user selects a different one then the focus will be changed and the first checkbox they selected will become blank.

CODE;

REDEFINE CHECKBOX oRubble VAR mRubble ID 104 OF oDlg VALID RubbleVal()
REDEFINE CHECKBOX oHardboard VAR mHardboard ID 105 OF oDlg VALID HardboardVal()
REDEFINE CHECKBOX oTreated VAR mTreated ID 106 OF oDlg VALID TreatedVal()
REDEFINE CHECKBOX oFerrous VAR mFerrous ID 107 OF oDlg VALID FerrousVal()
REDEFINE CHECKBOX oOrganic VAR mOrganic ID 108 OF oDlg VALID OrganicVal()

However, when testing this, I notice that I can still select multiple checkboxes and nothing is updated. here is the code I am using for the val functions i am calling in the VALIDS.

CODE;

STATIC FUNCTION RubbleVal

IF mRubble
mHardboard := .F.
mTreated := .F.
mFerrous := .F.
mOrganic := .F.

oHarboard:Refresh()
oTreated:Refresh()
oFerrous:Refresh()
oOrganic:Refresh()
ENDIF

RETURN .T.

STATIC FUNCTION HardboardVal

IF mHardboard
mRubble := .F.
mTreated := .F.
mFerrous := .F.
mOrganic := .F.

oRubble:Refresh()
oTreated:Refresh()
oFerrous:Refresh()
oOrganic:Refresh()
ENDIF

RETURN .T.

STATIC FUNCTION TreatedVal

IF mTreated
mRubble := .F.
mHardboard := .F.
mFerrous := .F.
mOrganic := .F.

oRubble:Refresh()
oHardboard:Refresh()
oFerrous:Refresh()
oOrganic:Refresh()
ENDIF

RETURN .T.

STATIC FUNCTION FerrousVal

IF mFerrous
mRubble := .F.
mHardboard := .F.
mTreated := .F.
mOrganic := .F.

oRubble:Refresh()
oHardBoard:Refresh()
oTreated:Refresh()
oOrganic:Refresh()
ENDIF

RETURN .T.

STATIC FUNCTION OrganicVal

IF mOrganic
mRubble := .F.
mHardboard := .F.
mTreated := .F.
mFerrous := .F.

oRubble:Refresh()
oHardboard:Refresh()
oTreated:Refresh()
oFerrous:Refresh()
ENDIF

RETURN .T.

Is what I am trying to do possible with checkboxes, or am I wasting my time with them. I know I could use radiobuttons but if I could get this to work in the same way that would be preferable.

Thanks for any comments or advice.

[Enrico Maria Giordano]

Use radiobuttons instead of checkboxes for mutually exclusive options.

EMG

[deanomeano]

Enrico,

As I said in my post, I know I can use radio buttons for this, but I would like that to be a last resort. Is what I am trying to do possible, if not then I shall rethink.

Thank You for your comments.

[deanomeano]

Enrico,

It is possible to do this with checkboxes, I have replaced VALID with ON CLICK and works fine.

Thanks for your comments.

[Enrico Maria Giordano]

Enrico,

It is possible to do this with checkboxes, I have replaced VALID with ON CLICK and works fine.

Thanks for your comments.

Ok, but I still think that you should use radiobuttons.

EMG

[James Bott]

As Enrico stated, you should use radio buttons for this. What you are doing is not standard windows behavior and thus not what the users will expect. It will just confuse them.

James

[manuramos]

Try this

REDEFINE CHECKBOX aCHK[1] VAR aVar[1] ID 171 OF oDlg ON CLICK CompChek(aCHK,aVar,1)
REDEFINE CHECKBOX aCHK[2] VAR aVar[2] ID 172 OF oDlg ON CLICK CompChek(aCHK,aVar,2)
...
REDEFINE CHECKBOX aCHK[n] VAR aVar[n] ID 1nn OF oDlg ON CLICK CompChek(aCHK,aVar,n)

FUNCTION CompChek(aChk,aVar,nDat)
*
AFILL(aVar,.F.) // you could replace this 2 lines with your own conditions
aVar[nDat] := .T.
*
AEVAL(aChk, { |oCtrl| oCtrl:Refresh() }
RETURN NIL

You must build your CHEKBOXES with arrays. It runs like radiobuttons.

[deanomeano]

manuramos, thank you for your help, although I found a solution to the problem.

James, yes I agree that radio buttons are more user friendly, but that is what the user of the system has asked for, that is why I said that ideally I would like to have used them instead of radio buttons.

Thank you for commenting

[James Bott]

but that is what the user of the system has asked for

Ah, yes of course, you must do what the customer wants.

James