Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Option button deselect
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01229161
Message ID:
01229349
Views:
22
>I went with the optiongroup solution since it seemed more simplistic. Sorry to put you through trouble Naomi. Here is the code the worked out for me.
>
>
>		.column8.controlsource = "crs_grid1.crsbox"		
>		IF TYPE('.Column8.Text1.name') = 'C'
>			.Column8.RemoveObject('Text1')
>		ENDIF
>		IF !TYPE('.Column8.Check1.name') = 'C'
>			.Column8.NewObject("optiongroup1", "Optiongroup")
>		ENDIF
>		.column8.header1.ToolTipText = 'checkmark if Sending a box of orders to institution'
>		.column8.header1.caption = 'Box'
>
>		WITH .Column8.optiongroup1
>			.Visible  = .T.
>			.Enabled  = .T.
>			.buttoncount = 3
>			.option1.caption = "None"
>			*.option1.top = 0
>			.option1.width = 47
>			.option1.left = 1
>			.option2.caption = "Item"
>			*.option2.top = 0
>			.option2.left = 53
>			.option2.width = 41
>			.option3.caption = "Box"
>			*.option3.top = 0
>			.option3.left = 100
>		ENDWITH
>		.Column8.optiongroup1.autosize = .t.
>		WITH .Column8.optiongroup1
>			.option1.top = 0
>			.option2.top = 0					
>			.option3.top = 0		
>		ENDWITH
>		.Column8.Sparse = .F.
>		*.column8.Check1.caption = ""
>		.column8.Alignment = 2 		
>		.column8.width = 200
>		.column8.backcolor = RGB(255,255,0)
>		.column8.forecolor = RGB(255,0,0)	
>		.column8.fontbold = .T.
>
>
>thanks again guys for helping out.
>
>nick

I think it's a better choice, you're right.

Just this line
> IF !TYPE('.Column8.Check1.name') = 'C'

Seems to be left from the previous code and should be replaced with optiongroup1 instead.
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform