How to get a blinking text ? (None Specified)
At 10 SEP 1999 05:38:52AM Bertil Strom wrote:
Hi
Is i possible to get a text to blink/flash with a warning like in AREV with user still entering data in the form as normal.
Let's say that you have a form with customer data and if the customer
has outstanding invoices a text shout show a warning when entering
the customers key in the form.
Regaqrds
Bertil Ström
At 10 SEP 1999 06:26AM Oystein Reigem wrote:
Bertil,
Tried something similar as a crude experiment. But haven't used it in a real app. See if you can modify to your purpose:
- Create new window.
- Add a static text control called "BLINKER".
- Make window TIMER event:
$insert Color_Equates
BC=Get_Property( @Window : ".BLINKER", "BACKCOLOR" )
if BC=PALE_YELLOW$ then
NewBC=RED$
end else
NewBC=PALE_YELLOW$
end
Void=Set_Property( @Window : ".BLINKER", "BACKCOLOR", NewBC )
RETURN 0
- Add three edit lines.
- Make GOTFOCUS handler for the middle one…
Void=Set_Property( @Window, "TIMER", 100 )
RETURN 0
- …and a LOSTFOCUS handler:
Void=Set_Property( @Window, "TIMER", 0 )
RETURN 0
- Run!
- Oystein -