Subject Re: blinking text
From Ivar B. Jessen <nospam@nospam.com>
Date Fri, 22 Aug 2014 21:12:27 +0200
Newsgroups dbase.getting-started

On Fri, 22 Aug 2014 14:34:07 -0400 Ben Gattegno
Sender:  Ben Gattegno <benatbig@ca.rr.com>
wrote the following in:
Newsgroup: dbase.getting-started
Subject: blinking text:
MessageID:<#7tZoejvPHA.1984@ip-0AF2DFD4>
  
>Good Afternoon:
 >
 >How can I get text in a label to blink?
 >
 >Thanks
 >Ben

Try the code below my signature. The example was originally posted by Marc
Hamelin.


Ivar B. Jessen

//-----
//Here's an example, you can start from there:

f = new form()
f.blink1 = new BlinkingCheckBox(f)
f.open()

class BlinkingCheckBox(form) of CHECKBOX(form)
   with (this)
      onOpen = class::BLINKINGCHECKBOX_ONOPEN
   endwith

   function BlinkingCheckBox_onOpen
      this.blinkTimer = new timer()
      this.blinkTimer.parent = this
      this.blinkTimer.interval = 0.25
      this.blinkTimer.onTimer = class::CHANGECOLOR
      this.BlinkTimer.enabled = true
      return

   function ChangeColor()
      if this.parent.value == true
         if this.parent.colorNormal == "BtnText/BtnFace"
            this.parent.colorNormal = "Red/BtnFace"
         else
            this.parent.colorNormal = "BtnText/BtnFace"
         endif
      else
         this.parent.colorNormal = "BtnText/BtnFace"
      endif
      return

endclass

//Marc Hamelin
//-----