Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Yes/No as ControlSource
Message
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00675429
Message ID:
00675469
Views:
9
>>>>Hi everybody,
>>>>
>>>>How can I set controlsource for the textbox with the logical field to show Yes/No instead of T/F ?
>>>>
>>>>I tried to put iif(myField,'Yes','No'), but it doesn't allow me..
>>>>
>>>>How can I do it?
>>>
>>>Clear Controlsource and put in the textbox refresh
This.value = iif(myField,'Yes','No')
>>
>>That's another workaround, thanks.
>
>Yes, but it's a simple one. :)
>
>>
>>Anyway, I'm designing another container now. Are there scrollable containers available in Download section? I placed all info in one container, but it looks clattered...
>
>See file #10072.

Did you try this class? I put this class on form, added objects (using my little BuildForm program, I created today), set AutoScroll to .t. and ScrollBars to 2. I don't see vertical scrollbar.

What else should I do?

Here is my BuildForm program, though it's unrelevant:
********************************************************************
*  Description.......: BuildForm
*  Calling Samples...:
*  Parameter List....:
*  Created by........: Nadya Nosonovsky 07/04/2002 08:04:01 PM
*  Modified by.......:
********************************************************************
aselobj(arrObj)
loForm = arrObj[1]
lnTop = 10
lnLblLeft = 10
lnTxLeft = 0
select BrowFlds
scan for cEditType = 'Property'
	loForm.newobject('lbl'+ proper(alltrim(cFldName)),'wglabel','wgcontrols.vcx')
	
	loLblObj = evaluate('loForm.lbl'+proper(alltrim(cFldName)))
	loLblObj.caption = alltrim(ColHead)
	loLblObj.left = m.lnLblLeft
	loLblObj.top = m.lnTop+3
	*loLblObj.statusbartext = alltrim(colDesc)
	loLblObj.autosize = .t.
	loLblObj.visible = .t.
	
	m.lnTxtLeft = m.lnLblLeft+loLblObj.width + 2
	
	loForm.newobject('txt'+proper(alltrim(cFldName)),'wgtextbox','wgcontrols.vcx')
	loTxtObj = evaluate('loForm.txt'+proper(alltrim(cFldName)))
	loTxtObj.left = m.lnTxtLeft
	loTxtObj.top = m.lnTop
	loTxtObj.statusbartext = space(5)+alltrim(colDesc)
	loTxtObj.tooltiptext = alltrim(colDesc)
	loTxtObj.width = colWidth
	loTxtObj.controlsource = 'BldMstr.'+alltrim(proper(cFldName))
	loTxtObj.format = alltrim(colFormat)
	loTxtObj.inputmask = alltrim(colMask)
	loTxtObj.readonly = .t.
	loTxtObj.visible = .t.
	
	lnLblLeft = iif(m.lnLblLeft<470,m.lnTxtLeft + loTxtObj.width + 20,10)
	
	if m.lnLblLeft = 10
		lnTop = m.lnTop+ loTxtObj.height + 30
	endif

endscan
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