Sorry, I made a couple of mistakes in my code...see revised code below:
Hi,
Has anyone run into background color problems when trying to use a Skip 0
(or a property <ComponentID> set_focus "true") in an Exit EEP with the
"background color when focused" set?
I have a DBEdit field, RPDYEAR, TEXT 4, whose color is white and whose
background color is gray when it has the focus. The Component ID for this
field is FORM_RPDYEAR.
I have an On Exit EEP for the field RPDYEAR that says:
set var vtemp text = null
getproperty form_rpdyear textvalue "vtemp"
if vtemp <> "2009" then
pause 1 using "Invalid value"
skip 0 (or property form_rpdyear set_focus "true")
endif
return
-- When you tab to that field initially, it becomes gray when it gets the
focus.
-- When you tab out of that field, it returns to color white.
-- If you are in the field and delete the value and hit <enter>, you will
get the message "Invalid value"; and if you THEN enter "2008" (or some
other value not equal to 2009) and hit <enter>, the field SHOULD change back
to
white when the cursor goes to the next field; but it remains gray - the
background color when the field has the focus -- even though the field no
longer has the focus.
Does anyone know a work-around or is this just a bug in 7.6/Turbo 8? The
background color only stays "stuck" if I use a SKIP 0 (or the set_focus
property) in my Exit EEP; and it happens on any form I try it on so I know it's
not just this form or field.
