Simulate blinking of a character

[Silvio.Falconi]

How I can Make to have a simulation of Old clipper colors : sample W*

I thinked to use a times but it not run well

DEFINE TIMER ::oTimer INTERVAL 50 ACTION (::nClrLedON := ::nClrLedOFF ) of ::oWnd

ACTIVATE TIMER ::oTimer

I wish change the color after n seconds no stop


Any help please ?

[ADutheil]

I don´t know if it´s possible with FW but you could try to use animated gif image.

[StefanHaupt]

xHarbour has the function ColorToN (cColor) to convert a clipper color string to a numeric color

[Antonio Linares]

Silvio,

FWH support Clipper colors format by default

Do you want to change the colors of the chars or to hide and show the chars ?

[Silvio.Falconi]

Antonio,
I need it for the class I 'm tring to create
I need to create a Timer to change a color after n seconds
Sample : the user set the timer to 25 secs and th eobject change the color in intermittently as christmas lights
How I can make it ?

[Antonio Linares]

Silvio,

Unless you show us how you are painting, its difficult to help you without it

[Silvio.Falconi]

see on your mail pls

[Antonio Linares]

Code: Select all  Expand view

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   local oTmr, oSay, oFnt

   DEFINE FONT oFnt NAME "Verdana" SIZE 0, -30

   DEFINE WINDOW oWnd TITLE "Silvio"

   @ 2, 2 SAY oSay PROMPT "Hello world" COLOR "GR+/W*" FONT oFnt SIZE 200, 50

   DEFINE TIMER oTmr INTERVAL 700 ACTION ChangeColor( oSay ) OF oWnd

   ACTIVATE TIMER oTmr

   ACTIVATE WINDOW oWnd
   
   oFnt:End()

return nil

//----------------------------------------------------------------------------//

function ChangeColor( oSay )

   static lStatus := .F.
   
   if lStatus
      oSay:SetColor( "GR+/W*" )
   else  
      oSay:SetColor( "R+/W*" )
   endif

   oSay:Refresh()
   lStatus = ! lStatus

return nil

//----------------------------------------------------------------------------//

[Silvio.Falconi]

thanks, nice it's that I wish