Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Can use expression in Caption of check box?
Message
De
05/02/2013 11:32:29
Dragan Nedeljkovich (En ligne)
Now officially retired
Zrenjanin, Serbia
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP1
Divers
Thread ID:
01565148
Message ID:
01565167
Vues:
42
>Hi,
>
>I have check box in a container used in a grid. I want the check box caption say "Yes" if the field it is bound to is .T./1 or "No" if .F./0. First I tried to do it in the Refresh method of the check box but it never fires (probably because the checkbox is in the container). Then I tried to put an IIF() expression in the Caption field but all it does, is showing the expression.
>How would you do it?

Not sure if this works in a grid, but...
**************************************************
*-- Class:        gcheck (f:\rad\vfprc\generall.vcx)
*-- ParentClass:  checkbox
*-- BaseClass:    checkbox
*-- Time Stamp:   07/08/2006 07:13:01 PM
*
DEFINE CLASS gcheck AS checkbox

	Alignment = 0
	BackStyle = 0
	Caption = ("*******")
	*-- caption for .t.
	caption_yes = ("")
	*-- caption for .f.
	caption_no = ("")
	Name = "gcheck"


	PROCEDURE value_assign
		LPARAMETERS vNewVal
		*To do: Modify this routine for the Assign method
		if !empt(m.vNewVal) and !empt(this.caption_yes)
			this.caption=this.caption_yes
		endif
		if Empty(m.vNewVal) and !empt(this.caption_no)
			this.caption=this.caption_no
		endif
		this.refresh()
		THIS.Value = m.vNewVal
	ENDPROC


	PROCEDURE Init
		this.value=this.value
	ENDPROC


	PROCEDURE Click
		dodefault()
		this.refresh()
		nodefault
	ENDPROC


	PROCEDURE InteractiveChange
		this.value=this.value
	ENDPROC


ENDDEFINE
*
*-- EndDefine: gcheck
**************************************************

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform