Subject Re: Blinking Text From Mervyn Bick <invalid@invalid.invald> Date Sat, 8 Jun 2019 15:04:41 +0200 Newsgroups dbase.getting-started Attachment(s) blink_text.cc On 2019-06-08 2:44 PM, MUSTANSIR GHOR wrote: > Thank you All > Thank you Mervyn > > For my case it is a Hospital software. The reception collects receipt for sevices. This receipt creates a blank record for service povider. Therefore, we need on the service provider screen to blink to awake him that get ready to give service. So blinking feature continues to blink until it is attended. The little custom component I posted needs a little tweak so that one can stop the blink.  The revised code is attached. To stop the blink        form.blink_text1.stop_blink = true        form.blink_text1.visible = true       //in case it stopped with visible = false Mervyn. class blink_text(parentObj) of TEXT(parentObj) custom    with (this)          onOpen = class::TEXT_ONOPEN          onClose = class::TEXT_ONCLOSE          height = 1.0          left = 6.0          top = 3.0          width = 12.0          text = "Blink text"       endwith              function TEXT_onClose()          this.timer.enabled = false          return       function TEXT_onOpen()          this.stop_blink = false          this.timer = new Timer( )          this.timer.parent = this          this.timer.onTimer = this.blink          this.timer.interval = 0.5          this.timer.enabled = true          return                function blink          if this.parent.stop_blink = false             this.parent.visible = not this.parent.visible          endif                  return   endclass