{{tag>category:"None Specified" author:"Bertil Strom" author:"Oystein Reigem"}}

[[https://www.revelation.com/the-works|Join The Works program to have access to the most current content, and to be able to ask questions and get answers from Revelation staff and the Revelation community]]


==== How to get a blinking text ? (None Specified) ====
=== At 10 SEP 1999 05:38:52AM Bertil Strom wrote: ===
 
 
<QUOTE>
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
</QUOTE>
----

=== At 10 SEP 1999 06:26AM Oystein Reigem wrote:  ===

<QUOTE>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 -



</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=WORKS_READ&SUMMARY=1&KEY=29C50E23AE6AC1F9852567E80034FF8C|View this thread on the Works forum...]]