FoxInCloud
Re: Textbox Valid()
Messages
Reply
Edit
Delete
May. 6, 2013
06:25 am
3S10DS84N![Show this entire thread in new window]()
06:25 am
3S10DS84N
| From: | Thierry Nivelet (FoxInCloud) |
| To: | Michele |
you could add this to xxx.vcx!xxxTxt:
procedureinit wcPropSaveEdit(m.this, 'backColor')returndodefault()procedurevalid(luResult)IF wlWeb()this.backColor = iif(vartype(m.luResult) == 'L' AND NOT m.luResult); , rgb(255,0,0); && red , rgb(255,0,0); && white )endif
in your subclasses / instances:
procedurevalidlocal luResult luResult = <some value>dodefault(m.luResult)return m.luResult
I have this code
If (Type('m.thisForm.wlHTMLgen') == 'L' And m.thisForm.wlHTMLgen)ReturnDoDefault()ElseThis.Value = Left(Upper(This.Value),6)Local lRet lRet = .T. .......some controls ontable .......lRet now is falseReturn lRetEndIf
The problem is that even if the code returns a false value, the textbox is not locked and i can leave it and go to the next object....
Why ?
-- thn (FoxInCloud)
